oncotarget杂志简介:海风1、2、3号和益盟操盘手、操盘手BS线的通达信源码

来源:百度文库 编辑:偶看新闻 时间:2024/05/03 06:54:10
1、海风2号MA5:MA(CLOSE,5),COLORFFFFFF,LINETHICK2;MA13:MA(CLOSE,13),COLOR00FF00;MA21:MA(CLOSE,21),COLOR00FFFF,LINETHICK2;MA34:MA(CLOSE,34),COLORFF00FF;{MA55:MA(CLOSE,55),COLOR0000FF;}{MA120:=MA(CLOSE,120),COLORFFFF00;}天使:=EMA(C,2),COLOR000000;魔鬼:=EMA(SLOPE(C,21)*20+C,42),COLOR000000;买:=CROSS(天使,魔鬼);卖:=CROSS(魔鬼,天使);DRAWICON(买,L*0.97,1);DRAWTEXT(买,L*0.95,'进攻'),COLORYELLOW;DRAWICON(卖,H*1.03,2);DRAWTEXT(卖,H*1.05,'撤退'),COLORWHITE;STICKLINE(天使>=魔鬼,LOW,HIGH,0.01,0),COLOR0000DD;STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,1),COLORRED;{STICKLINE(天使>=魔鬼,CLOSE,OPEN,3,0),COLOR0000CC;STICKLINE(天使>=魔鬼,CLOSE,OPEN,2,0),COLOR0000DD;STICKLINE(天使>=魔鬼,CLOSE,OPEN,1,0),COLOR0000FF;}{STICKLINE(天使<魔鬼,CLOSE,OPEN,1,0),COLOREEEE00;STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORDDDD00;STICKLINE(天使<魔鬼,CLOSE,OPEN,3,0),COLORCCCC00;}STICKLINE(天使<魔鬼,LOW,HIGH,0.01,0),COLORFFDD00;STICKLINE(天使<魔鬼,CLOSE,OPEN,2,0),COLORFFFF00;STICKLINE(CROSS(天使,魔鬼),OPEN,CLOSE,2.5,0),COLORYELLOW;STICKLINE(CROSS(魔鬼,天使),OPEN,CLOSE,2.5,0),COLORWHITE;2、益盟操盘手VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));DIR1:=ABS(CLOSE-REF(CLOSE,5));VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);ER1:=DIR1/VIR1;CS1:=ER1*(0.8-2/8)+2/8;CQ1:=CS1*CS1;AMA1:EMA(DMA(CLOSE,CQ1),2) ,COLORWHITE;DIR2:=ABS(CLOSE-REF(CLOSE,10));VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);ER2:=DIR2/VIR2;CS2:=ER2*(0.8-2/24)+2/24;CQ2:=CS2*CS2;AMA2:EMA(DMA(CLOSE,CQ2),2),COLORGREEN,LINETHICK2;AMA3:IF(AMA2/REF(AMA2,1)>0.997,AMA2,DRAWNULL),COLORYELLOW,LINETHICK2;AMA4:IF(AMA2/REF(AMA2,1)>1.001,AMA2,DRAWNULL),COLORRED,LINETHICK2;STICKLINE((VAR2 < MA(VAR3,6)),CLOSE,OPEN,3,1),COLOR008000;STICKLINE((VAR2 > MA(VAR3,6)),OPEN,CLOSE,3,1),COLORRED;STICKLINE(((OPEN > CLOSE) AND (VAR2 > MA(VAR3,6))),(OPEN * 0.998),(CLOSE * 1.0001),2.3,0),COLOR008000;STICKLINE(((OPEN < CLOSE) AND (VAR2 < MA(VAR3,6))),(CLOSE * 0.998),(OPEN * 1.002),2.3,0),COLORRED;STICKLINE(((OPEN > CLOSE) AND (VAR2 < MA(VAR3,6))),CLOSE,OPEN,2.3,0),COLOR008000;DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW - (LOW*0.04)),7);DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH+(HIGH*0.03)),8);PT:=REF(H,1)-REF(L,1);CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;AH:=CDP+PT;AL:=CDP-PT;NH:=CDP*2-REF(L,1);NL:=CDP*2-REF(H,1);强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORCYAN;M:=IF(AL=X3,LOW,HIGH,0.1,1),COLORRED;STICKLINE(X2>=X3,CLOSE,OPEN,2,2),COLORRED;STICKLINE(X2>=X3,CLOSE,OPEN,2,8),COLORBROWN;STICKLINE(X2HY1,LOW,HIGH,1,0),COLORRED;STICKLINE(C>HY1,CLOSE,OPEN,4.5,0),COLORRED;STICKLINE(C>HY1,CLOSE,OPEN,4,0),COLORRED;STICKLINE(C>HY1,CLOSE,OPEN,3,0),COLORRED;STICKLINE(C>HY1,CLOSE,OPEN,2,0),COLORRED;STICKLINE(C<=HY1,CLOSE,OPEN,4.5,0),COLORFF4242;STICKLINE(C<=HY1,CLOSE,OPEN,4,0),COLORFF4242;STICKLINE(C<=HY1,CLOSE,OPEN,3,0),COLORFF4242;STICKLINE(C<=HY1,CLOSE,OPEN,2,0),COLORFF4242;STICKLINE(C<=HY1,LOW,HIGH,1,0),COLORFF4242;DRAWTEXT(CROSS(CLOSE,HY1),LOW,'买点'),LINETHICK2,COLORYELLOW;DRAWTEXT(CROSS(HY1,CLOSE),HIGH*1.08,'卖点'),LINETHICK3,COLORWHITE;APP:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN))));ZL:=IF((CLOSE > OPEN),(APP * (HIGH - LOW)),IF((CLOSE < OPEN),(APP * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2)));SF:=IF((CLOSE > OPEN),(0 - (APP * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (APP * (HIGH - LOW))),(0 - (VOL / 2))));库存能量:=MA((ZL + SF),2);库存平均:=MA((ZL + SF),5);DRAWTEXT(CROSS(库存能量,库存平均),L*0.97,''),COLORFF00FF,LINETHICK4;5、上出下买+三背离A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);分水岭:IF(MA(CLOSE,17)操作线);IF(S,分水岭,DRAWNULL),COLOR00FF00,POINTDOT,LINETHICK4;PM:MA(C,5),COLORFFFFCC,LINETHICK2;IF(PM>REF(PM,1),PM,DRAWNULL),COLORRED,LINETHICK2;IF(PM=REF(PM,1),PM,DRAWNULL),COLORRED;IF(PMC AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA");DRAWTEXT(B1>0,L-0.02,'★M'),COLOR00FFFF;A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");DRAWTEXT(B2,L-0.10,'◎K'),COLORFF00FF;A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");DRAWTEXT(B3>0,L-0.18,'◆R'),COLOR0000FF;C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));D1:=REF(C,C1+1)"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF");DRAWTEXT(D1>0,H+0.16,'★M'),COLOR00FF00;C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));D2:=REF(C,C2+1)"KDJ.K" AND CROSS("KDJ.D","KDJ.K");DRAWTEXT(D2>0,H+0.08,'◎K'),COLORFFFFCC;C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));D3:=REF(C,C3+1)"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");DRAWTEXT(D3>0,H+0.04,'◆R'),COLORFF9900;6、变色KDJRSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;K:SMA(RSV,3,1),COLORWHITE;D:SMA(K,3,1),COLORYELLOW;J:3*K-2*D,COLORYELLOW;IF(KREF(K,1),K,DRAWNULL),COLORRED,LINETHICK1;IF(D>REF(D,1),D,DRAWNULL),COLORRED,LINETHICK1;IF(J>REF(J,1),J,DRAWNULL),COLORFF00FF,LINETHICK1;7、变色RSIN:=3;N1:=5;N2:=10;N3:=20;N4:=1;M1:=7;M2:=2;LC :=REF(C,N4);RSI1:SMA(MAX(C-LC,0),N1,1)/SMA(ABS(C-LC),N1,1)*100,COLORRED,LINETHICK1;RSI2:SMA(MAX(C-LC,0),N2,1)/SMA(ABS(C-LC),N2,1)*100,COLOR0099FF;RSI3:SMA(MAX(C-LC,0),N3,1)/SMA(ABS(C-LC),N3,1)*100,COLORYELLOW,LINETHICK1;IF(RSI1RSI1,RSI2,DRAWNULL),COLORAA8800,LINETHICK1;IF(RSI3>RSI2,RSI3,DRAWNULL)COLORAA8800,LINETHICK1;TY:=RSI1;{通用曲线值的引入}AA:=REF(TY,N)=HHV(TY,2*N+1);BB:=BACKSET(AA,N+1);CC:=FILTER(BB,N) AND TY=HHV(TY,N+1);DRAWICON(CC,TY*1.07,10);AA2:=REF(TY,N)=LLV(TY,2*N+1);BB2:=BACKSET(AA2,N+1);CC2:=FILTER(BB2,N) AND TY=LLV(TY,N+1);DRAWICON(CC2,TY*0.95,11);GG:=ISLASTBAR AND REF(CC,BARSLAST(CC));HH:=BACKSET(GG,BARSLAST(CC)+1);II:=HH>REF(HH,1);JJ:=REF(BARSLAST(CC),1);KK:=BACKSET(II,JJ+2);LL:=KK>REF(KK,1);DRAWLINE(LL,TY,II,TY,1),COLORRED;CS:=(REF(TY,BARSLAST(II))-REF(TY,BARSLAST(LL)))/(BARSLAST(LL)-BARSLAST(II));阻力线:=REF(TY,BARSLAST(II))+BARSLAST(II)*CS;阻力值:阻力线,LINETHICK0;DRAWICON(CROSS(TY,阻力线),阻力线*0.99,12);GG2:=ISLASTBAR AND REF(CC2,BARSLAST(CC2));HH2:=BACKSET(GG2,BARSLAST(CC2)+1);II2:=HH2>REF(HH2,1);JJ2:=REF(BARSLAST(CC2),1);KK2:=BACKSET(II2,JJ2+2);LL2:=KK2>REF(KK2,1);DRAWLINE(LL2,TY,II2,TY,1),COLORGREEN;8、变色MACDDIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);DEA1:=EMA(DIF1,9);MACD1:=2*(DIF1-DEA1),STICK;MACD2:=EMA(MACD1,3);STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORRED;STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORGREEN;STICKLINE(MACD1=0 OR MACD1<=0,0,0,50,1),COLORWHITE;DIF:DIF1,COLOR33FF33;DEA:DEA1,COLORYELLOW;MACD:MACD1,NODRAW,COLORMAGENTA;强:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORRED,LINETHICK2;