{日周K線}

底部支撐:HHV(MA(L,11),98),COLORGREEN,LINETHICK1;

HZ1:MA(底部支撐,12),COLORCYAN;

HZ2:MA(底部支撐,18),COLORMAGENTA;

HZ3:MA(底部支撐,24),COLORRED;

HZ4:MA(底部支撐,30),COLORBLUE,LINETHICK1;

MA120:=MA(C,120),COLORCYAN,POINTDOT;

MA240:=MA(C,240),COLORYELLOW,LINETHICK1,POINTDOT;

{胡子均線}

M47:MA(C,47),COLORGREEN;

M48:EMA(M47,3),COLORGREEN,LINETHICK1;

M49:EMA(M48,3),COLORMAGENTA;

M50:EMA(M49,2),COLORMAGENTA;

N:=13;

WO1:="Y01.O1#WEEK";

WC:="Y01.C1#WEEK";

WH:="Y01.H1#WEEK";

WL:="Y01.L1#WEEK";

WQ:="Y01.RQ#WEEK";

K1:=WO1=REF(WO1,1) AND WC=REF(WC,1) AND WH=REF(WH,1) AND WL=REF(WL,1);

K3:=REF(C,1)=DYNAINFO(3) AND O=DYNAINFO(4) AND C=DYNAINFO(7) AND H=DYNAINFO(5) AND L=DYNAINFO(6);

DD:=REF(BARSLAST(K1=0)+1,1),LINETHICK0;

DD1:=CROSS(BACKSET((K1=0 OR K3) AND DD=5,4),0.5),NODRAW;

DD2:=CROSS(BACKSET((K1=0 OR K3) AND (DD=4 OR DD=3),3),0.5),NODRAW;

DD3:=CROSS(BACKSET((K1=0 OR K3) AND DD<=2,2),0.5),LINETHICK0;

BK1:=DD1 OR DD2 OR DD3;

BK2:=CROSS(BACKSET(K1=0,2),0.5);

BK3:=CROSS(BACKSET(K1=0 AND REF(K1=0,1),2),0.5);

WO:=IF(BARSLAST(K1=0)=0,O,REF(O,BARSLAST(K1=0))),NODRAW;

K0:=WC>WO OR (WC=WO AND WC>REF(WC,BARSLAST(K1=0)+1));

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND BK1,WH,WC,0,0),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND BK1,WO,WL,0,0),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND K1=0,WC,WO,0,0),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND (BK2 OR K3),WC,WO,0,0),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),WC,WC,8,1),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND K0 AND ((K1 AND BK2=0 AND K3=0) OR BK3),WO,WO,8,1),COLOR000099;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND BK1,WH,WO,0,0),COLORFF0000;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND BK1,WC,WL,0,0),COLORFF0000;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND K1=0,WC,WO,0,0),COLORFF0000;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND (BK2 OR K3),WC,WO,0,0),COLORFF0000;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),WC,WC,8,1),COLORFF0000;

STICKLINE(PERIOD=5 AND WQ<N AND NOT(K0) AND ((K1 AND BK2=0 AND K3=0) OR BK3),WO,WO,8,1),COLORFF0000;

{買點信號文字}

XL2:=(((CLOSE - EMA(CLOSE,21)) / EMA(CLOSE,21)) * 100);

XL3:=CROSS(XL2,(0 - 20));

DRAWTEXT((XL3 > 0),(LOW - 0.2),'絕對底部');

VAR2S:=(2*CLOSE+HIGH+LOW)/4;

VAR3S:=IF(YEAR>=2099 AND MONTH>2,0,1);

VAR4S:=LLV(LOW,5);

VAR5S:=HHV(HIGH,4);

散戶:=EMA((VAR2S-VAR4S)/(VAR5S-VAR4S)*100,4)*VAR3S;

XX:=EMA(0.667*REF(散戶,1)+0.333*散戶,2)*VAR3S;

DRAWTEXT(CROSS(散戶,XX) AND 散戶<30,L-0.05,'吸'),COLORRED;

VAR1R:=LLV(LOW,2)=LLV(LOW,16) AND CLOSE>=OPEN*1.04;

VAR2R:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;

VAR3R:=VAR1R AND VAR2R;

DRAWTEXT(VAR3R,LOW,'逢低買入 '),COLORFFFF00;

VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0);

VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0);

DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.99),'大膽搏 '),COLORYELLOW;

{買點信號}

N0:=9;

M:=14;

N1:=6;

TYP:=(HIGH + LOW + CLOSE)/3;

CC1:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M)),COLORFF00FF;

C1:=SMA(CC1,3,1);

C2:=SMA(C1,3,1);

C3:=3*C1-2*C2;

CB1:=EMA(C3,5);

CB2:=REF(CB1,1);

CC2:=(TYP-MA(TYP,M))/(0.015*AVEDEV(TYP,M)),COLORFF00FF;

LC:=REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;

RSI:=(RSI1-50)*5.3,LINETHICK2,COLORFFFFFF;

R1:=SMA(RSI,3,1);

D1:=SMA(R1,3,1);

J1:=3*R1-2*D1;

RR1:=EMA(J1,5);

RR2:=REF(RR1,1);

RR:=RR1>RR2;

RSV:=(CLOSE-LLV(LOW,N0))/(HHV(HIGH,N0)-LLV(LOW,N0))*100;

K:=SMA(RSV,3,1);

KZ:=(K-50)*5,,COLOR00FF00;

K2:=SMA(KZ,3,1);

D2:=SMA(K2,3,1);

J2:=3*K2-2*D2;

BB1:=EMA(J2,5);

BB2:=REF(BB1,1);

XG5:=(RR AND NOT(REF(RR,1)) AND (RR1<-100 AND BB1<-100) AND CB1<-100);

DRAWICON(XG5,L*0.987,38);

DRAWICON(XG5,L*0.966,38);

DRAWICON(XG5,L*0.939,34);

{買點信號2}

VAR22:=((LLV(LOW,3) = LLV(LOW,3)) AND (CLOSE >= (OPEN * 1.04)));

VAR333:=(CLOSE > ((REF(HIGH,1) + REF(LOW,1)) / 2));

VAR44:=(VAR22 AND VAR333);

VAR55:=BARSLAST(VAR333);

VAR66:=BARSLAST(VAR44);

VAR77:=IF((VAR66 > 0),(((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100),0);

VAR88:=SUM(VAR77,1);

VAR93:=IF((VAR55 > 3),(0 - 2),0);

特準:=(REF(VAR93,1) = (0 - 2)) AND (VAR93 = 0);

DRAWICON(特準,L*0.987,38);

DRAWICON(特準,L*0.966,9);

{買點信號3}

DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);

DEA:=EMA(DIF,9);

AAA:=(DIF-DEA)*2*60;

啟動:=CROSS(AAA-REF(AAA,1),15),COLORRED,LINETHICK2;

DRAWICON(啟動,L*0.987,38);

DRAWICON(啟動,L*0.935,11);

{起爆點}

L1:=LLV(L,10);

爆發(fā)點:=(DCLOSE-REF(C,1))/REF(C,1)*100;

起爆:=CROSS(爆發(fā)點,20) OR CROSS(爆發(fā)點,18);

DRAWICON(起爆,L*0.985,23);

{賣點信號}

VAR1:=((REF(HIGH,1) + REF(LOW,1)) / 2);

VAR2:=((REF(HIGH,1) + REF(LOW,1)) / 2);

VAR3:=(MA(CLOSE,N) + (2 * STD(CLOSE,N)));

賣點:=CROSS(VAR2,VAR3);

DRAWICON(賣點,HIGH*1.01,12);

{瞬間突破}

獲利%:WINNER(CLOSE)*100,NODRAW,COLORWHITE;

DRAWTEXT_FIX(獲利%>=95 AND ISLASTBAR,0.97,0.97,0,'高危'),COLORRED;

DRAWTEXT_FIX(獲利%>=80 AND 獲利%<95 AND ISLASTBAR,0.97,0.97,0,'風險'),COLORYELLOW;

DRAWTEXT_FIX(獲利%>=50 AND 獲利%<80 AND ISLASTBAR,0.97,0.97,0,'安全'),COLORGREEN;

DRAWTEXT_FIX(獲利%<50 AND ISLASTBAR,0.97,0.97,0,'空頭'),COLORBLUE;

STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLOR0055FF;

STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLOR00FF00;

N6:=10;

T1:=CONST(HHVBARS(V,N6));

T0:IF(CURRBARSCOUNT<=N6+3,CONST(IF(T1=0,C,REF(C,T1))),DRAWNULL),COLORFF00FF;

IF(CURRBARSCOUNT=T1+1,T0,DRAWNULL),CIRCLEDOT,COLORFF00FF;

DRAWTEXT(ISLASTBAR,T0,'  量能平臺'),COLORCC00CC;

M6:=10;

Q1:=CONST(REF(HHVBARS(V,M6),T1+1)+T1+1);

Q0:IF(CURRBARSCOUNT<=T1+M6+3 AND CURRBARSCOUNT>=T1+1,CONST(REF(C,Q1)),DRAWNULL),COLOR009900;

IF(CURRBARSCOUNT=Q1+1,Q0,DRAWNULL),CIRCLEDOT,COLOR00CC00;

M1:=CONST(LLVBARS(V,M6));

M0:IF(CURRBARSCOUNT<=M6+7,CONST(IF(M1=0,O,REF(O,M1))),DRAWNULL);

IF(CURRBARSCOUNT=M1+1,M0,DRAWNULL),CIRCLEDOT;

DRAWTEXT(ISLASTBAR,M0,'  地量反量能平臺');

HV:=HHV(V,8)=V OR V/REF(V,1)>=2;

FT:=BARSLAST(HV);

量能平臺:IF(HV,C,REF(C,FT)),COLORYELLOW,LINETHICK1;

DP:=IF(C=INDEXC,0,1);

GJ:=AMOUNT/V/100;

【明日阻力】:L+(GJ-L)+(C-L),COLORRED,NODRAW;

【明日支撐】:L+(C-GJ),NODRAW;

年:=YEAR,NODRAW;

月:=MONTH,NODRAW;

星期:=WEEKDAY,NODRAW;

日1:=DATETODAY(DATE);

上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);

自然日:=日1-DATETODAY(上市日)+1;

ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)

OR TOTALBARSCOUNT-CURRBARSCOUNT=0;

本周第幾天:=BARSLAST(ZB)+1;

本月第幾天:=BARSLAST(年*100+月!=REF(年*100+月,1))+1;

MA1:=REF(C,本周第幾天);

MA2:=REF(MA1,本周第幾天);

MA3:=REF(MA2,本周第幾天);

MA4:=REF(MA3,本周第幾天);

MA5:=REF(MA4,本周第幾天);

MA6:=REF(MA5,本周第幾天);

MA7:=REF(MA6,本周第幾天);

MA8:=REF(MA7,本周第幾天);

MA9:=REF(MA8,本周第幾天);

十周價:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9)/10;

決策:REFDATE(十周價,DATE),COLORYELLOW,LINETHICK1;

DRAWTEXT(ISLASTBAR,決策,' 決策線'),COLORYELLOW;

{漲停中位線}

DF:=BETWEEN(CLOSE/REF(CLOSE,1),1.0983,1.110);

Z:=(O+H)/2;

漲停中位:DRAWLINE(DF,Z,REF(DF,1),REF(Z,1),1),COLOR00FF11 POINTDOT LINETHICK4;

{上一個漲停至今}

TT:=C>REF(C,1)*1.095 AND C=H;

漲停至今:BARSLAST(TT)+1, COLOR9900FF,NODRAW;

{買點參考}

AAA2:=SUM(IF( CLOSE>REF(CLOSE,1),VOL*C,0),0);

AAA3:=SUM(IF( CLOSE<REF(CLOSE,1),VOL*C,0),0);

AAA4:=SUM(IF( CLOSE=REF(CLOSE,1),VOL*C,0),0);

B1萬元:=DVOL*DCLOSE/100;

B1差:=B1萬元-REF(B1萬元,1);

B2萬元:=DVOL*DCLOSE/100;

B2比:=B2萬元/REF(B2萬元,1);

凈流入萬元:=(AAA2-AAA3-0.5*AAA4);

PM:=MA(凈流入萬元,1);

PMA:=PM/REF(PM,1)>1;

PMB:=REF(PMA,1)<1 AND PMA;

密碼:(EMA(MA(B1萬元,2),2))/100000,COLORYELLOW,NODRAW;

二日比:=密碼/REF(密碼,1);

選股:=PMB AND 密碼>REF(密碼,1) AND 二日比>1,COLORRED,NODRAW;

DRAWICON(選股,L*1,1);

{量能突破預(yù)警}

N9:=10;

T2:=CONST(HHVBARS(V,N9));

T3:=IF(CURRBARSCOUNT<=N9+3,CONST(IF(T2=0,C,REF(C,T2))),DRAWNULL),COLORFF00FF;

量能突破預(yù)警:=CROSS(C,T3);

DRAWICON(量能突破預(yù)警,L*0.987,38);

DRAWICON(量能突破預(yù)警,L*0.966,38);

DRAWICON(量能突破預(yù)警,L*0.945,26);

{LSP抓牛信號}

趨勢:=EMA(EMA(C,4),4);

月K:="KDJ.K#MONTH";

月D:="KDJ.D#MONTH";

周K:="KDJ.K#WEEK";

周D:="KDJ.D#WEEK";

日K:="KD.K";

日D:="KD.D";

日金叉:=IF(CROSS(日K,日D),15,0);

周金叉:=IF(CROSS(周K,周D),25,0);

月金叉:=IF(CROSS(月K,月D),35,0);

日周月:=IF(日金叉=15 AND 周金叉=25 AND 月金叉=35,1,0);

日周月賺:=日周月=1;

日周:=IF(日金叉=15 AND 周金叉=25,2,0);

日周賺:=日周=2;

周月:=IF(周金叉=25 AND 月金叉=35,3,0);

日月:=IF(日金叉=15 AND 月金叉=35,4,0);

日月賺:=日月=4;

周月賺:=周月=3;

DRAWTEXT(日周月賺,趨勢*0.96,'↖LSP大牛'),COLORRED;

DRAWTEXT(周月賺,趨勢*0.973,'↖LSP金牛'),COLORFF00FF;

DRAWTEXT(日月賺,趨勢*0.985,'↖LSP牛牛'),COLORYELLOW;

{異動K線}

VAR111:=(2*CLOSE+HIGH+LOW)/4;

VAR222:=LLV(LOW,5);

VAR3333:=HHV(HIGH,5);

VAR444:=EMA((VAR111-VAR222)/(VAR3333-VAR222)*100,6);

MA111:=MA(VAR444,2);

AA:=STICKLINE(VAR444>MA111,VAR444,MA111,3,1),COLORRED;

均價線:=AMOUNT/V/100;

均價線2:=MA(均價線,M111);

均價線5:=MA(均價線,5);

均價線10:=MA(均價線,10);

均價線30:=MA(均價線,30);

突破:=C>均價線2 AND 均價線2<REF(均價線2,1) AND REF(均價線2,1)<REF(均價線2,2)

AND REF(均價線2,2)<REF(均價線2,3) AND VAR444>MA111;

STICKLINE(突破,H,L,3,0),LINETHICK1,COLORRED;

STICKLINE(突破,H,L,0.2,0),COLORYELLOW;

STICKLINE(突破,O,C,2,0),LINETHICK1,COLORYELLOW;

{一陽穿3，4，5信號}

MA555:=MA(C,5),LINETHICK1,COLORYELLOW;

MA17:=MA(C,17),LINETHICK1,COLORMAGENTA;

MA30:=MA(C,30),LINETHICK1,COLORGREEN;

MA55:=MA(C,55),LINETHICK1,COLORRED;

MA250:=MA(CLOSE,250),COLORBROWN,LINETHICK2;

X2:=MA2>=O AND MA2<=C;

X5:=MA555>=O AND MA555<=C;

X17:=MA17>=O AND MA17<=C;

X30:=MA30>=O AND MA30<=C;

X55:=MA55>=O AND MA55<=C;

一陽穿3線:=X5 AND X17 AND X30;

一陽穿4線:=X2 AND X5 AND X17 AND X30;

一陽穿5線:=X2 AND X5 AND X17 AND X30 AND X55;

STICKLINE(一陽穿3線,O,C,2,0),COLORMAGENTA;{洋紅色柱}

STICKLINE(一陽穿4線,O,C,2,0),COLORCC3299;{紫羅蘭紅色柱}

STICKLINE(一陽穿5線,O,C,2,0),COLORRED,COLOR0000FF;{紅色柱};

{上下影線分類}

ZF:=H>=INTPART(REF(C,1)*1.1*100+0.5)/100 AND H>C;

DT:=L<=INTPART(REF(C,1)*0.9*100+0.5)/100 AND L<C;

上影線幅度:=((H-REF(C,1))/REF(C,1)-(MAX(O,C)-REF(C,1))/REF(C,1))*100;

下影線幅度:=((REF(C,1)-L)/REF(C,1)-(REF(C,1)-MIN(O,C))/REF(C,1))*100;

上影線長:=H-MAX(O,C);

下影線長:=MIN(O,C)-L;

長度比較:=上影線長/下影線長;{上下影線長度比}

STICKLINE((MIN(O,C)=L OR  長度比較>1) AND 上影線幅度>3.5,MAX(O,C),H,0.01,0),COLORMAGENTA;

STICKLINE((MAX(O,C)=H OR  長度比較<1) AND 下影線幅度>3.5,MIN(O,C),L,0.01,0),COLORLIGREEN;

STICKLINE((MIN(O,C)=L OR  長度比較>1) AND ZF,H-上影線長*0.2,H,0.01,0),COLORYELLOW;

STICKLINE((MAX(O,C)=H OR  長度比較<1) AND DT,L+下影線長*0.2,L,0.01,0),COLORBLUE;

{所屬板塊}

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;

成本0:=COST(0.5);