『底部.一网打尽』(飞狐副图): 请把图片文件放到安装目录下的FmIDLL文件夹中。(不喜欢该背景的朋友,可找一自己喜欢的bmp格式的图片,重命名为f14替换即可) 分析家把源码中第一行去掉即可。 源码: DRAWBKBMP(CLOSE>0,'f14'); VAAR1:=MA(WINNER(CLOSE),9)*100; CROSS(VAAR1,2)*30,COLOR0000FF ,LINETHICK3 ; VAAR2:=(1-EMA((HHV(HIGH,15)-CLOSE)/(HHV(HIGH,15)-LLV(LOW,15)),15))*100; VAAR3:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100; VAAR4:=SMA(VAAR3,9,1); VAAR5:=SMA(VAAR4,9,1); VAAR6:=(CLOSE-SMA(CLOSE,13,1))/SMA(CLOSE,13,1)*(-100); VAAR7:=REF(VAAR6,1)>13 AND REF(VAAR6,1)/VAAR6>1.23 AND CLOSE/REF(CLOSE,1)>1.03; IF(VAAR7 AND REF(CLOSE,1)<=COST(5),20,0),LINESTICK ,COLOR00FF00,LINETHICK2; VAAR8:=MA(CLOSE,27); VAAR9:=(CLOSE-VAAR8)/VAAR8*100; VAARA:=MA(VAAR9,2); VAARB:=BARSLAST(CROSS(-10,VAARA)=1); VAARC:=BARSLAST(CROSS(VAARA,10)=1); VAARD:=VAARA<-10 AND VAARB>3; VAARE:=VAARA>10 AND VAARC>3; IF(VAARD,VAARA,0),LINESTICK ,LINETHICK2, COLORYELLOW; IF(VAARE,VAARA,0),LINESTICK , COLORGREEN; 哈: IF(VAARA>REF(VAARA,1) AND VAARD AND VAARA<-15,30,0),LINETHICK2,LINESTICK,COLORFFA2AF; DRAWICON(哈>0,40,1); VAARF:=REF(LOW,1)*0.9; VAAR10:=LOW*0.9; VAAR11:=(VAAR10*VOL+VAARF*(CAPITAL-VOL))/CAPITAL; VAAR12:=EMA(VAAR11,30); VAAR13:=CLOSE-REF(CLOSE,1); VAAR14:=MAX(VAAR13,0); VAAR15:=ABS(VAAR13); VAAR16:=SMA(VAAR14,7,1)/SMA(VAAR15,7,1)*100; VAAR17:=SMA(VAAR14,13,1)/SMA(VAAR15,13,1)*100; VAAR18:=BARSCOUNT(CLOSE); VAAR19:=SMA(MAX(VAAR13,0),6,1)/SMA(ABS(VAAR13),6,1)*100; VAAR1A:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100; VAAR1B:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100; VAAR1C:=SMA((SMA(VAAR1B,4,1)-50)*2,3,1); VAAR1D:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100; VAAR1E:=SMA(VAAR1D,4,1); VAAR1F:=SMA(VAAR1E,3,1); VAAR20:=(HHV(HIGH,30)-CLOSE)/CLOSE*100; VAAR21:=VAAR19<=25 AND VAAR1A<-95 AND VAAR20>20 AND VAAR1C<-30 AND VAAR1F<30 AND VAAR12-CLOSE>=-0.25 AND VAAR16<22 AND VAAR17<28 AND VAAR18>50; STICKLINE(VAAR21,0,60,5,0); VABR1:=1; VABR2:=(MA(CLOSE,80)-MA(CLOSE,13)/3)*VABR1; qqq:=MA((CLOSE-VABR2)/VABR2,1); IF(CROSS(qqq,0) AND LOW/REF(HIGH,1)<1.012,35,0), STICK; IF(COUNT(qqq>REF(qqq,1),3)=3 AND COUNT(qqq<0,10)=10 AND REF(qqq,3)=LLV(qqq,10),35,0); IF(REF(qqq,2)=LLV(qqq,20) AND REF(qqq,2)<0.071 AND REF(qqq,2)<REF(qqq,1) AND NOT(REF(LOW,1)>REF(HIGH,2) AND LOW>REF(HIGH,1)) AND CLOSE>REF(CLOSE,1),35,0); lcj:=COUNT(C<REF(C,1),12)>=8; gkh:=DMA(CLOSE,VOL/SUM(VOL,5)); af:=CLOSE/gkh<0.92; 买入:IF(FILTER(lcj AND CLOSE>LOW,10),37,0),COLORRED; VCF1:=LLV(LOW,5); VCF2:=HHV(HIGH,5); VCF3:=EMA((CLOSE-VCF1)/(VCF2-VCF1)*100,4); VCF4:=EMA(0.667*REF(VCF3,1)+0.333*VCF3,2); VCF5:=(HIGH+LOW)/2; VCF6:=DMA(VCF5,VOL/SUM(VOL,MIN(5,BARSCOUNT(CLOSE)))); VCF7:=DMA(VCF5,VOL/SUM(VOL,MIN(13,BARSCOUNT(CLOSE)))); VCF8:=DMA(VCF5,VOL/SUM(VOL,MIN(34,BARSCOUNT(CLOSE)))); VCF9:=DMA(VCF5,VOL/SUM(VOL,MIN(75,BARSCOUNT(CLOSE)))); VCFA:=EMA(WINNER(0.9*CLOSE),5); VCFB:=1-EMA(WINNER(1.2*CLOSE),5); VCFC:=EMA(WINNER(CLOSE),5); VCFD:=100*(CLOSE-VCF6)/VCF6; VCFE:=100*(CLOSE-VCF7)/VCF7; VCFF:=100*(MIN(CLOSE,OPEN)-VCF8)/VCF8; VCF10:=BARSLAST(VCF8>VCF9 AND REF(VCF8,1)<=REF(VCF9,1)); VCF11:=(COUNT(WINNER(CLOSE)<0.11 AND EMA(WINNER(CLOSE),5)<0.15,2)>0 OR 1-WINNER(1.2*CLOSE)>=0.8 AND WINNER(CLOSE)<0.05) AND COUNT(VCFE<-16,2)>0 AND COUNT(VCFF<-20,2)>0; VCF12:=COUNT(VCFD<-10,2)>0 AND COUNT(VCFE<-15,2)>0 AND COUNT(VCFF<-15,2)>0 AND COUNT(VCFA>0.8,VCF10)=0; VCF13:=COUNT(VCF11 OR VCF12,2)>0 AND VCF3>REF(VCF3,1) AND (1-WINNER(1.15*CLOSE))*100>80; IF(VCF13 AND COUNT(VCF13,5)<=1,40,0); [ Last edited by 炒着玩 on 2005-3-21 at 10:24 ]股票论坛 www. |
|