改文华，谢谢2022179　[文华财经]

追风_: IF(追风>=REF(追风,1),追风,DRAWNULL),COLORRED,LINETHICK3;

J:=IF(BARSCOUNT(C)>=10,10,BARSCOUNT(C));

STICKLINE(C>=MA(C,J),MA(C,J),REF(MA(C,J),1),5,0),COLORYELLOW;

STICKLINE(C<MA(C,J),MA(C,J),REF(MA(C,J),1),5,0),COLORBLUE;

M:=IF(BARSCOUNT(C)>=45,45,BARSCOUNT(C));

STICKLINE(C>=MA(C,M),MA(C,M),REF(MA(C,M),1),5,0),COLORYELLOW;

STICKLINE(C<MA(C,M),MA(C,M),REF(MA(C,M),1),5,0),COLORBLUE;

高:=REF(HHV(H,80),3);

低:=REF(LLV(L,80),3);

顶点:REFDATE(高,DATE),COLORGREEN,LINETHICK2;

低点:REFDATE(低,DATE),COLORRED,LINETHICK2;  

DRAWTEXT(ISLASTBAR,顶点,'力',COLORYELLOW;

DRAWTEXT(ISLASTBAR,低点,'撑',COLOREA91B5; 

收盘:C,COLORMAGENTA,NODRAW; 

{追雄风主图}

日均价:=(C*3+H+L+O)/6;

SA:=EMA(日均价,5)*2-MA(日均价,5);

修正:=SMA(SMA(EMA(日均价,5)*2-MA(日均价,5),3,1),3,1);

补偿:=FLOOR(((修正-MA(修正,5))/MA(修正,5)*100));

雄风1:=SMA(SMA((EMA(SA,(5+ABS(补偿)))),2,1),2,1);

ZF:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;

STICKLINE((C>雄风1) ,HIGH,LOW,0,1 ),COLORRED;

STICKLINE((C>雄风1) ,OPEN,CLOSE,3,0 ),COLOR000055;

STICKLINE((C>雄风1) ,OPEN,CLOSE,2.7,0 ),COLOR000077;

STICKLINE((C>雄风1) ,OPEN,CLOSE,2.1,0 ),COLOR000099;

STICKLINE((C>雄风1) ,OPEN,CLOSE,1.5,0 ),COLOR0000BB;

STICKLINE((C>雄风1) ,OPEN,CLOSE,0.9,0 ),COLOR0000DD;

STICKLINE((C>雄风1) ,OPEN,CLOSE,0.3,0 ),COLOR0000FF;

STICKLINE((C<雄风1) ,HIGH,LOW,0,1 ),COLORCYAN;

STICKLINE((C<雄风1) ,OPEN,CLOSE,3,0 ),COLOR990000;

STICKLINE((C<雄风1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;

STICKLINE((C<雄风1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400;

STICKLINE((C<雄风1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800;

STICKLINE((C<雄风1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;

STICKLINE((C<雄风1) ,OPEN,CLOSE,0.3,0 ),COLORCYAN;

STICKLINE((OPEN>CLOSE),CLOSE,OPEN,0,0),COLORCYAN;

STICKLINE((OPEN<CLOSE),CLOSE,OPEN,0,0),COLORRED; 

STICKLINE((ZF>9) ,HIGH,LOW,0,1 ),COLORMAGENTA;

STICKLINE((ZF>9) ,OPEN,CLOSE,3,0 ),COLOR550055;

STICKLINE((ZF>9) ,OPEN,CLOSE,2.7,0 ),COLOR550055;

STICKLINE((ZF>9) ,OPEN,CLOSE,2.1,0 ),COLOR880088;

STICKLINE((ZF>9) ,OPEN,CLOSE,1.5,0 ),COLORAA00AA;

STICKLINE((ZF>9) ,OPEN,CLOSE,0.9,0 ),COLORCC00CC;

STICKLINE((ZF>9) ,OPEN,CLOSE,0.3,0 ),COLOREE00EE;

R:=((CLOSE - LLV(LOW,9))/(HHV(HIGH,9) - LLV(LOW,9)))*(100);

K:=EMA(R,3);

D:=EMA(K,3);

陡峭度:=IF((BARSCOUNT(CLOSE) > 7),(100)*((MA(CLOSE,7))/(LLV(MA(CLOSE,7),7)) - 1),1);

N:=IF((陡峭度 > 0.35),6,65);

VARB1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))))*((DATE < 20070110));

VARA1:=((-((100)*(HHV(HIGH,N) - CLOSE))/(HHV(HIGH,N) - LLV(LOW,N))) + 100)*((DATE < 20070110));

获利盘:=(WINNER(CLOSE))*(100);

获利线:=FORCAST(获利盘,7);

线:=(FORCAST(VARA1,7))*((DATE < 20070110));

满仓:=((线 > REF(线,1)) AND (线 < 25) AND (COUNT((线 > REF(线,1)),5) = 1) AND IF((N = 6),(获利盘 < 60),(获利盘 < 40)) AND (COUNT((获利线 > 20),20) > 0));

DRAWTEXT(满仓,LOW*0.99,'仓',COLORRED;

轻仓:=IF((获利盘 >= 60) AND (线 > REF(线,1)) AND (REF(线,1) < 20) AND (线 < 40) AND (COUNT((线 > REF(线,1)),5) = 1) AND (REF(N,1) = 6),1,0);

DRAWTEXT(轻仓,LOW*0.99,'仓',COLORYELLOW; 

进一:=CROSS(线,D) AND (D > 30) AND (D > REF(D,1)) AND (D < 80);

进二:=CROSS(线,获利线) AND (D > 30) AND (获利线 > 25) AND (D > REF(D,1));

低进:=IF(进一 AND (D > 获利线),进二,进一);

DRAWTEXT(低进,LOW*0.98,'进',COLORRED;

DRAWTEXT(进二,LOW*0.99,'进',COLORGRAY;

狂喜:=(CROSS(VARB1,(-2)));

DRAWTEXT(狂喜,(LOW*0.99),'涨停',COLORYELLOW;

恐慌:=(VARB1 < -99); 

DRAWTEXT(恐慌,(LOW*0.98),'慌',COLORWHITE;

半仓:=(CROSS(VARB1,(-94)) AND (COUNT(恐慌,5) > 0) AND (N = REF(N,1)) AND IF((N = 6),(获利盘 < 60),(获利盘 < 40)) AND (COUNT((获利线 > 20),20) > 0));

DRAWTEXT(半仓,LOW*0.99,'仓',COLORWHITE;

VAR1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);

VAR2:=REF(VAR1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR3:=REF(VAR2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR4:=REF(VAR3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR5:=REF(VAR4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR6:=REF(VAR5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR7:=REF(VAR6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR8:=REF(VAR7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR9:=REF(VAR8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARA:=REF(VAR9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VARB:=REF(VARA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARC:=REF(VARB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VARD:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);

VARE:=REF(VARD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VARF:=REF(VARE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR10:=REF(VARF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR11:=REF(VAR10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR12:=REF(VAR11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR13:=REF(VAR12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR14:=REF(VAR13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR15:=REF(VAR14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR16:=REF(VAR15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR17:=REF(VAR16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);

VAR18:=REF(VAR17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);

VAR19:=REF(VARD OR VARE OR VARF OR VAR10 OR VAR11 OR VAR12 OR VAR13 OR

VAR14 OR VAR15 OR VAR16 OR VAR17 OR VAR18,1) AND VAR1;

VAR1A:=REF(VAR1 OR VAR2 OR VAR3 OR VAR4 OR VAR5 OR VAR6 OR VAR7 OR

VAR8 OR VAR9 OR VARA OR VARB OR VARC,1) AND VARD; 

DRAWICON(FILTER(VAR19=1,5),(LOW * 0.98),7); 

DRAWICON(FILTER(VAR1A=1,5),(HIGH * 1.02),8);   

XL1:=((LLV(LOW,3) = LLV(LOW,60)) AND ((CLOSE / REF(CLOSE,1)) >= 1.04));

DRAWTEXT(FILTER(((XL1 > 0) AND LOW),5),(LOW * 1.01),'买点';

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

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

DRAWTEXT((XL3 > 0),(LOW * 1.01),'绝对底部';

JK:=BARSCOUNT(CLOSE);

AH:=HHV(HIGH,200);

AL:=LLV(LOW,200);

B0:=(AH-AL)/40;

B1:=HIGH+B0;

B2:=LOW-B0;

DRAWTEXT((JK+0)/34=FLOOR((JK+0)/34),B2-2.2*B0*-0.60,'窗,变盘',COLORRED;

DRAWTEXT(C>=MA(C,J) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,J),'黄色持股 (短线)',COLORYELLOW;

DRAWTEXT(C<MA(C,J) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,J),'蓝色持币 (短线)',COLORFF9933;  

DRAWTEXT(C>=MA(C,M) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,M),'黄色持股 (中线)',COLORYELLOW;

DRAWTEXT(C<MA(C,M) AND CURRBARSCOUNT=1 AND PERIOD=5,MA(C,M),'蓝色持币 (中线)',COLORFF9933;

 来源:程序化99

 来源: WWW.CXH99.COM