量学主图指标源码: {涨跌停虚拟} { ZTDT:=IF(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S'),0.05,0.1); XLZ:=IF(CURRBARSCOUNT=1 AND C>=REF(C,1),ZTPRICE(REF(CLOSE,1),ZTDT),DRAWNULL); XLD:=IF(CURRBARSCOUNT=1 AND C<REF(C,1),DTPRICE(REF(CLOSE,1),ZTDT),DRAWNULL); STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 STICKLINE(CURRBARSCOUNT=1 && (SETCODE=0 DRAWKLINE(HIGH,OPEN,LOW,CLOSE); } {涨跌停标识} 涨跌:=REF(C,1); 涨停:=IF((C-涨跌)*100/涨跌>=(10-0.01*100/涨跌),1,0); STICKLINE(涨停,OPEN,CLOSE,2,0),COLORRED; 跌停:=IF((涨跌-C)*100/涨跌>=(10-0.01*100/涨跌),1,0); STICKLINE(跌停,OPEN,CLOSE,2,0),COLOR808000; {21位画线} FLAG:=ABS(C-O)/IF((H-L) = 0,100,H-L); ZHANGF:=ABS(C-O)/O; WEI21:IF(CODELIKE('9999'),(H-L)*0.5+L,IF(C>O,(C-O)*0.5+O,(O-C)*0.5+C)),NODRAW; STICKLINE(ZHANGF>=0.03 && FLAG >= 0.03,WEI21,WEI21,-1,0),COLORMAGENTA; DRAWTEXT_FIX(ISLASTBAR,0,1,0,HYBLOCK),COLORLIBLUE; DRAWTEXT_FIX(ISLASTBAR,0.05,1,0,DYBLOCK),COLORBLUE; DRAWTEXT_FIX(ISLASTBAR,0.1,1,0,GNBLOCK),COLORMAGENTA; 明日涨停:ZTPRICE(C,0.1),NODRAW; 实三一:O+(C-O)*2/3,NODRAW; 实三二:O+(C-O)/3,NODRAW; 虚三一:H-(H-L)/3,NODRAW; 虚二一:H-(H-L)*0.5,NODRAW,COLORBLUE; 虚三二:H-(H-L)*2/3,NODRAW; TK:=C>O AND O>=REF(MAX(C,O),1)+0.01 OR O>=REF(C,1)+0.01 ; STICKLINE(TK, O,(C-O)*0.01+O,3,0),COLORBLUE; 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 ZF,H-上影线长*1,H,0.01,0),COLORRED; STICKLINE((MAX(O,C)=H OR 长度比较<1) AND DT,L+下影线长*1,L,0.01,0),COLORGREEN; {高量柱;} GLT:=CONST(HHVBARS(V,高量天数)); 高量顶:=IF(CURRBARSCOUNT<=GLT+1,CONST(REF(MAX(C,O),GLT)),DRAWNULL); 高量底:=IF(CURRBARSCOUNT<=GLT+1,CONST(IF((REF(MAX(C,O),GLT)-REF(MIN(C,O),GLT))/REF(O,GLT)<=0.033,REF(L,GLT),REF(MIN(C,O),GLT))),DRAWNULL); STICKLINE(高量底,高量底,高量底,5,0),COLORLIBLUE; STICKLINE(高量顶,高量顶,高量顶,5,0),COLORRED; DRAWTEXT(ISLASTBAR,高量顶,STRCAT(' ','A ')),COLORRED; DRAWTEXT(ISLASTBAR,高量底,STRCAT(' ','B ')),COLORLIBLUE; 量学副图源码: 量:VOL,VOLSTICK; {MAVOL1:MA(VOLUME,M1); MAVOL2:MA(VOLUME,M2);} {DRAWICON(CC,H,1); DRAWICON(DD,H,5);}; 换手:V/CAPITAL*100,COLORRED,NODRAW; 几倍:(V-REF(V,1))/REF(V,1),COLOR33CCFF,NODRAW; 平量:IF(V>=REF(V,1)*0.97 AND V<=REF(V,1)*1.03,1,0),COLORGRAY,NODRAW; 低量10:IF(V<REF(LLV(V,10),1),1,0),COLORRED,NODRAW; 低量50:IF(V<REF(LLV(V,50),1),1,0),COLORBLUE,NODRAW; 低量100:IF(V<REF(LLV(V,100),1),1,0),COLORFF00FF,NODRAW; 倍量:=V>=REF(V,1)*2; STICKLINE(倍量 ,V,0,0.01,0),COLOR33CCFF ; STICKLINE(平量,V ,0,0.01,0),COLORGRAY ; STICKLINE(低量10,V,0,0.01,0),COLORRED ; STICKLINE(低量50,V,0,0.01,0),COLORBLUE ; STICKLINE(低量100,V,0,0.01,0),COLORFF00FF ; FF1:=V=LLV(V,100) AND BARSCOUNT(V)>10; FF2:=V<REF(V,1)/2 AND NOT(FF1); GG:=IF(C>O,O,C); GG1:=IF(C>O,C,O); FF3:=V<REF(V,1)/1.5 AND NOT(FF2) AND NOT(FF1); DRAWTEXT(FF3,V*0.95,'3'),DRAWABOVE,COLORLIBLUE; DRAWTEXT(FF2,V*0.95,'2'),DRAWABOVE,COLORLIBLUE; DRAWTEXT(FF1,V*0.95,'1'),DRAWABOVE,COLORLIBLUE; DRAWTEXT(FF3,V*0.95,'3'),DRAWABOVE,COLORLIBLUE; DRAWTEXT(FF2,V*0.95,'2'),DRAWABOVE,COLORLIBLUE; DRAWTEXT(FF1,V*0.95,'1'),DRAWABOVE,COLORLIBLUE; AA:=V*0.67; BB:=V*0.5; CC:=C<O; DD:=C>REF(C,1) AND CC; DRAWTEXT(DD,V*0.95,'!'),DRAWABOVE,COLORLIBLUE; TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1))))); MTIME:=MOD(FROMOPEN,TOTAL); CTIME:=IF(MTIME<0.5,TOTAL,MTIME); VVOL:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VOL*(TOTAL+3)/(CTIME+3),DRAWNULL),NODRAW; STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VVOL,0,1.8,-1),COLORGRAY; {百日内500里} PT100:=CONST(HHVBARS(V,100)); PT0:=CONST(HHVBARS(V,0)); PT:=IF(高量开关=1 AND PT100>=PT0,PT100,DRAWNULL); TS:IF(CURRBARSCOUNT<=PT+1,CONST(IF(PT=0,V,REF(V,PT))),DRAWNULL),COLORBLUE,DOTLINE; IF(CURRBARSCOUNT=PT+1,TS,DRAWNULL),CIRCLEDOT,COLORBLUE,LINETHICK1; DRAWTEXT(ISLASTBAR,TS*0.975,' 500里'),COLORBLUE; {30日低量} CONST(LLV(V,30)),COLORRED,DOTLINE;
|
|
来自: killer_狙击手 > 《通达信公式》