源码
{DRAWGBK(1,colorrgb(0,0,100),colorrgb(0,0,0),1);}
DRAWTEXT(sysparam(2)=BARPOS,c,'总股本='+NUMTOSTR(FINANCE(1) ,0 )+'万股'+' 流通A股='
+ NUMTOSTR(FINANCE(7),0)+'万股'+' 净资产='+NUMTOSTR(FINANCE(34),2 ) +
' 收益='+ NUMTOSTR(FINANCE(33),2)+' 公积金='+
NUMTOSTR(FINANCE(18),2)+' 市盈率='+NUMTOSTR(DYNAINFO(39),2)+
' 振幅='+ NUMTOSTR((h/l-1)*100,2)+'%'+' 换手率='+
NUMTOSTR(100*VOL/CAPITAL,2)+'%'),COLORccffcc,ALIGN4;
DRAWTEXTEX(C,1,4,40,'黄点工作线'),linethick1,colorYellow;
DRAWTEXTEX(C,1,120,40,'多空停损线'),linethick1,colorMagenta;
DRAWTEXTEX(C,1,230,40,'线上工作|线下休息'),linethick1,colorWhite;
DRAWTEXTEX(C,1,390,40,'最低点靠近工作线低吸'),linethick1,colorYellow;
DRAWTEXTEX(C,1,4,85,STKLABEL+''+STKNAME),linethick4,ColorFFFF80;
DRAWTEXTEX(C,1,4,140,'线上阴线买|买错也要买'),linethick1,colorRed;
DRAWTEXTEX(C,1,4,190,'线下阳线卖|卖错也要卖'),linethick1,colorGreen;
工作线:(EMA(C,13)),POINTDOT,linethick5,colorYellow;
姊妹线:(EMA(C,55)),POINTDOT,linethick3,colorWhite;
长线启动:(MA(C,99)),linethick1,Color0099FF;
A3:=EMA((((SLOPE(C,21)) * 20) + C),68);
A4:=EMA(C,10);
A5:=REF(C,2);
A6:=((SMA((MAX((C - A5),0)),6,1)) / (SMA(ABS((C - A5)),6,1))) * 100;
A7:=IF(((A6 < (REF(A6,1))) AND (A6 > 79)),A6,0);
DRAWTEXT((CROSS(A4,A3)),L,'加'),linethick2,ALIGN2,colorYellow;
DRAWtext(A7,H,'高'),linethick3,align2,colorGreen;
A8:=LLV(L,21);
A9:=HHV(H,21);
A10:=EMA((((CLOSE - A8) / (A9 - A8)) * 100),5);
A11:=EMA((((CLOSE - A8) / (A9 - A8)) * 50),13);
A12:=EMA(((0.667 * (REF(A10,1))) + (0.333 * A10)),2);
A13:=LLV(L,55);
A14:=HHV(H,34);
A15:=EMA((((C - A13) / (A14 - A13)) * 100),3);
A16:=(A11 + A15) / 2;
A17:=EMA(((0.667 * (REF(A15,1))) + (0.333 * A10)),2);
A18:=EMA(A16,5);
A19:=EMA(((0.667 * (REF(A18,1))) + (0.333 * A18)),2);
A20:=CROSS(A10,A11);
A21:=(CROSS(A10,A19)) AND (A19 < 30);
A22:=A21 * 0.6;
DRAWTEXT((A22 = 0.6),L,'底'),linethick4,ALIGN1,colorYellow;
DRAWTEXT((A20 = 1),L,'底'),linethick4,ALIGN1,colorWhite;
A23:=((C + L) + H) / 3;
A24:=EMA(A23,6);
A25:=EMA(A24,5);
A26:=CROSS(A24,A25);
DRAWicon(A26,(LOW / 1.005),1),linethick2,ALIGN1,colorMagenta;
var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
varbQ:=c=llv(c,4) and (ref(c,1)
vardQ:=ref(c,1)=hhv(c,4) and c
VAR1w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2w:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3w:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
Var3p:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;
红:=var9Q;
stickline(var9Q,c,(o+c)/2,7,0),color000055;
stickline(var9Q,c,(o+c)/2,6,0),color000066;
stickline(var9Q,c,(o+c)/2,5,0),color000077;
stickline(var9Q,c,(o+c)/2,4,0),color000099;
stickline(var9Q,c,(o+c)/2,3,0),color0000bb;
stickline(var9Q,c,(o+c)/2,2,0),color0000dd;
stickline(var9Q,c,(o+c)/2,1,0),color0000ff;
粉:=varaQ;
stickline(varaQ,c,(o+c)/2,7,0),colorff11ff;
stickline(varaQ,c,(o+c)/2,6,0),colorff33ff;
stickline(varaQ,c,(o+c)/2,5,0),colorff55ff;
stickline(varaQ,c,(o+c)/2,4,0),colorff77ff;
stickline(varaQ,c,(o+c)/2,3,0),colorff99ff;
stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;
stickline(varaQ,c,(o+c)/2,1,0),colorffddff;
灰:=varbQ;
stickline(varbQ,c,(o+c)/2,7,0),color333333;
stickline(varbQ,c,(o+c)/2,6,0),color555555;
stickline(varbQ,c,(o+c)/2,5,0),color777777;
stickline(varbQ,c,(o+c)/2,4,0),color999999;
stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;
stickline(varbQ,c,(o+c)/2,2,0),colordddddd;
stickline(varbQ,c,(o+c)/2,1,0),colorffffff;
绿:=varcQ;
stickline(varcQ,o,(o+c)/2,7,0),color003300;
stickline(varcQ,o,(o+c)/2,6,0),color005500;
stickline(varcQ,o,(o+c)/2,5,0),color007700;
stickline(varcQ,o,(o+c)/2,4,0),color009900;
stickline(varcQ,o,(o+c)/2,3,0),color00bb00;
stickline(varcQ,o,(o+c)/2,2,0),color00dd00;
stickline(varcQ,o,(o+c)/2,1,0),color00ff00;
蓝:=vardQ;
stickline(vardQ,o,(o+c)/2,7,0),colorff1100;
stickline(vardQ,o,(o+c)/2,6,0),colorff3300;
stickline(vardQ,o,(o+c)/2,5,0),colorff5500;
stickline(vardQ,o,(o+c)/2,4,0),colorff7700;
stickline(vardQ,o,(o+c)/2,3,0),colorff9900;
stickline(vardQ,o,(o+c)/2,2,0),colorffbb00;
stickline(vardQ,o,(o+c)/2,1,0),colorffdd00;
A19:=1;
RSV:=((((CLOSE - LLV(LOW,13)) / (HHV(HIGH,13) - LLV(LOW,13))) * 100) * A19);
K:=SMA(RSV,3,1);
D1:=SMA(K,3,1);
J:=((3 * K) - (2 * D1));
RSV12:=((((CLOSE - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100) * A19);
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=((3 * K12) - (2 * D12));
RSV24:=((((CLOSE - LLV(LOW,55)) / (HHV(HIGH,55) - LLV(LOW,55))) * 100) * A19);
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=((3 * K24) - (2 * D24));
压力位:=IF(CROSS(J24,J),HIGH,REF(HIGH,BARSLAST(CROSS(J24,J))));
PARTLINE(A19,压力位),LINETHICK1,color00FF00;
U2L:=IF((CLOSE >= MA(CLOSE,20)),80,50);
L2L:=IF((CLOSE >= MA(CLOSE,20)),50,20);
RH1:=IF(((J < U2L) AND (REF(J,1) >= U2L)),HHV(REF(HIGH,1),(BARSLAST(((J >= U2L) AND (REF(J,1) < U2L))) - 1)),REF(HHV(REF(HIGH,1),(BARSLAST(((J >= U2L) AND (REF(J,1) < U2L))) - 1)),BARSLAST(((J < U2L) AND REF(J,1)))));
RH4:=IF((HIGH > RH1),LOW,REF(LOW,BARSLAST((HIGH > RH1))));
RH42:=IF((HIGH > RH1),J,REF(J,BARSLAST((HIGH > RH1))));
RH5:=IF((((HIGH > RH4) AND (J < RH42)) AND (J < J24)),HIGH,REF(HIGH,BARSLAST((((HIGH > RH4) AND (J < RH42)) AND (J < J24)))));
PARTLINE(A19,RH5),colorFFcccc;
RL1:=IF(((J > L2L) AND (REF(J,1) <= L2L)),LLV(REF(LOW,1),(BARSLAST(((J <= L2L) AND (REF(J,1) > L2L))) - 1)),REF(LLV(REF(LOW,1),(BARSLAST(((J <= L2L) AND (REF(J,1) > L2L))) - 1)),BARSLAST(((J > L2L) AND REF(J,1)))));
RL4:=IF((LOW < RL1),HIGH,REF(HIGH,BARSLAST((LOW < RL1))));
RL42:=IF((LOW < RL1),J,REF(J,BARSLAST((LOW < RL1))));
RL5:=IF((((LOW < RL4) AND (J > RL42)) AND (J > J24)),LOW,REF(LOW,BARSLAST((((LOW < RL4) AND (J > RL42)) AND (J > J24)))));
导航:=MA(CLOSE,5);
PARTLINE((A19 AND (导航 > REF(导航,1))),导航),color0000FF;
PARTLINE((A19 AND (导航 < REF(导航,1))),导航),color00FF00;
VAR4:=(REF(CLOSE,1) * A19);
VAR5:=((SMA(MAX((CLOSE - VAR4),0),6,1) / SMA(ABS((CLOSE - VAR4)),6,1)) * 100);
VAR6:=(((CLOSE - MA(CLOSE,30)) / STD(CLOSE,15)) * 100);
VAR7:=(MA(CLOSE,60) - (MA(CLOSE,5) / 3.2));
VAR7A:=(CROSS((((CLOSE - MA(CLOSE,30)) / STD(CLOSE,15)) * 100),EMA(VAR6,18)) AND (CLOSE < VAR7));
VAR12:=FORCAST(CLOSE,10);
VAR13:=EMA((VAR12 * (1 - 0.05)),3);
VAR14:=LLV(LOW,36);
VAR15:=HHV(HIGH,30);
VAR16:=(EMA((((CLOSE - VAR14) / (VAR15 - VAR14)) * 4),4) * 25);
VAR17:=(MA(CLOSE,27) * A19);
VAR18:=COST(98);
VAR19:=CROSS(VAR18,CLOSE);
VAR20:=(((((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) * 100) < 2) OR ((((OPEN - CLOSE) / CLOSE) * 100) > 3));
VAR21:=((COUNT(VAR19,2) > 0) AND (COUNT(VAR20,2) > 0));
STICKLINE(VAR21,(HIGH * 1.01),(HIGH * 1.02),8,0),color00FF00;
VAR00:=((100 * (CLOSE - MA((AMOUNT / (100 * VOL)),5))) / MA((AMOUNT / (100 * VOL)),5));
VAR28:=(((HIGH + LOW) + (CLOSE * 2)) / 4);
VAR29:=(((((VAR28 - EMA(VAR28,21)) / STD(VAR28,21)) * 100) + 200) / 4);
VAR30:=((EMA(VAR29,5) - 25) * 1.56);
VAR31:=EMA((EMA(VAR30,2) * 1.22),2);
VAR32:=(((3 * EMA(VAR30,2)) * 1.22) - (2 * VAR31));
VAR33:=EMA((((VAR28 - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100),13);
VAR34:=EMA(((0.667 * REF(VAR33,1)) + (0.333 * VAR33)),2);
VAR35:=(EMA(VAR28,13) - EMA(VAR28,21));
VAR36:=((2 * (VAR35 - EMA(VAR33,2))) * 3.8);
VAR37:=(((((((((((VAR36 > REF(VAR36,1)) AND (VAR33 < 63)) AND (VAR34 < 63)) AND ((EMA(VAR30,2) * 1.22) < 63)) AND (VAR31 < 63)) AND (VAR32 < 63)) AND CROSS(VAR32,(EMA(VAR30,2) * 1.22))) AND (FINANCE(33) > 0.01)) AND (FINANCE(34) > 1)) AND ((REF(CLOSE,23) / CLOSE) > 1.2)) AND ((REF(CLOSE,10) / CLOSE) < 1.5));
VAR38:=MIN((REF(CLOSE,2) * 0.865),(REF(CLOSE,13) * 0.772));
VAR39:=IF((((((CLOSE - VAR38) / CLOSE) < (4 / 100)) AND ((SUM(((100 * VOL) / CAPITAL),5) / 5) < 1.8)) AND ((WINNER(CLOSE) * 100) < 0.1)),1,0);
VAR40:=(MA(CLOSE,80) - (MA(CLOSE,10) / 3));
VAR41:=((((CLOSE < VAR40) AND ((VOL / 240) > (MA(VOL,5) / 240))) AND (CLOSE > (REF(CLOSE,1) * 1.08))) AND (CLOSE < (MA(CLOSE,13) * 1.3)));
VAR42:=(((VAR00 < (0 - 10)) AND (CLOSE < 10)) AND ((CLOSE / REF(CLOSE,1)) > 0.935));
VAR43:=EMA((((VAR28 - LLV(LOW,34)) / (HHV(HIGH,34) - LLV(LOW,34))) * 100),13);
VAR44:=EMA(((0.667 * REF(VAR43,1)) + (0.333 * VAR43)),2);
XNW:=((((VAR39 > 0) OR (VAR41 > 0)) OR (VAR42 > 0)) * A19);
HZ:=(((((VAR39 > 0) OR (VAR37 > 0)) OR (VAR41 > 0)) OR (VAR42 > 0)) * A19);
决胜:=XNW,LINETHICK0;
短线:=HZ,LINETHICK0;
波段:=VAR7A,LINETHICK0;
中轨:=(SQRT(SQRT((((LOW * HIGH) * OPEN) * CLOSE))) * A19);
超买:=(SMA(((AMOUNT / VOL) / 100),13,1) * 1.21);
VAR51:=EMA(中轨,51);
VAR519:=EMA(中轨,21);
VAR41:=EMA(中轨,15);
主线:=EMA(VAR51,51);
主线1:=EMA(VAR519,8);
PARTLINE(A19,主线1);
PARTLINE(((A19 * VAR41) > VAR51),主线1),LINETHICK2,colorFF00CC;
PARTLINE(((A19 * VAR41) < VAR51),主线1),LINETHICK2,colorFFFF00;
AA9:=NOT(((((((CROSS(84,VAR5) OR CROSS(VAR5,11)) OR VAR7A) OR (CROSS(90,VAR16) AND (VAR13 > VAR17))) OR VAR21) OR XNW) OR HZ));
EXPLAIN((1 = 1),'--- --- --- --- --- --- '),colorFFFF00;
EXPLAIN((MA(CLOSE,5) > REF(MA(CLOSE,5),1)),'〖短线多头趋势〗'),color0000FF;
EXPLAIN((MA(CLOSE,5) < REF(MA(CLOSE,5),1)),'〖短线空头趋势〗'),color00FF00;
EXPLAIN(CROSS(84,VAR5),'●波段高抛点'),color00FF00;
EXPLAIN(CROSS(VAR5,11),'●波段低吸点'),colorFFFFFF;
EXPLAIN(VAR7A,'●点股成金'),color99CCFF;
EXPLAIN((CROSS(90,VAR16) AND (VAR13 > VAR17)),'●出局点，结合主图线'),color00FFFF;
EXPLAIN(VAR21,'●波段逃顶点，单边市不适合'),color00FF00;
EXPLAIN(XNW,'●买点1'),color0000FF;
EXPLAIN(HZ,'●买点2'),color00FF00;
