"八一"薄礼[CZW--I],[CZW--fg]源码,献给当过兵的战友及所有的朋友们.

"八一"薄礼--------源码,献给当过兵的战友及所有的朋友们.

请把图片文件放到安装目录下的FmIDLL文件夹中.

{CZW-I}

DRAWBKBMP(CLOSE>0,'b001');
B1:=REF(CLOSE,1);
B2:=REF(CLOSE,2);
B3:=REF(CLOSE,3);
B4:=REF(CLOSE,4);
CMAX:=MAX(MAX(MAX(CLOSE,B1),B2),B3);
CMIN:=MIN(MIN(MIN(CLOSE,B1),B2),B3);
持股:STICKLINE(CLOSE=CMAX AND (B1>=B2 OR B1>=B3) OR B1=CMAX AND (B2=CMIN OR B3=CMIN) AND CLOSE>=B2 OR
B2=CMAX AND B3=CMIN AND CLOSE>=B1 OR B3=CMAX AND CLOSE>=B1 AND CLOSE>=B2,B1,CLOSE,8,0),COLOR0000ff;
变盘:STICKLINE(CLOSE=CMAX AND B1=CMIN,B2,CLOSE,8,0),COLOR0099ef;
下跌:STICKLINE(CLOSE=CMIN AND (B1 B2=CMIN AND B3=CMAX AND CLOSE STICKLINE(B1=CMAX AND CLOSE=CMIN,B2,CLOSE,8,0),COLOR009900;
买入:STICKLINE(B1=CMIN AND CLOSE>=B2 OR (B2=CMIN AND B1<=B3 OR
B3=CMIN AND B1<=B2) AND B2=B1,B1,B2,8,0),COLORffffff;
抛售:STICKLINE(B1=CMAX AND CLOSEB3 OR
B3=CMAX AND B1>B2) AND B2>=B4 AND CLOSE
sa0:=MA(CLOSE,3);
sa1:=(h+l+c)/3;
sa2:=hhv(sa1,15);
sa3:=llv(sa1,5);
sa4:=sa2-sa3;
sa5:=ma((sa1-sa3)/sa4,2)*100;
sa6:=hhv(sa1,4*15);
sa7:=llv(sa1,4*15);
sa8:=sa6-sa7;
sa9:=ma((sa1-sa7)/sa8,2)*100;
saA:=hhv(sa1,16*15);
saB:=llv(sa1,16*15);
saC:=saA-saB;
saD:=ma((sa1-saB)/saC,2)*100;
s底线:=1;
sxx:=(sa9<1 and sa5<1);
{买卖信号}
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),4.1,1)/SMA(ABS(CLOSE-LC),4.1,1)*100;
DRAWICON(CROSS(84,RSI) ,h*1.03,5),ALIGN1;
DRAWICON(CROSS(RSI,11) ,l*0.99,4),ALIGN1;
Var27:=REF(CLOSE,1);
Var28:=SMA(MAX(CLOSE-Var27,0),5.5,1)/SMA(ABS(CLOSE-Var27),6,1)*100;
DRAWICON(IF(CROSS(76,Var28),1,0),h*1.03,5),ALIGN1;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),
LOW,'☆'),linethick3 , COLORMAGENTA;

VARA:=((AMOUNT)/(VOL))/(100);
VARB:=((3)*(HIGH)+LOW+OPEN+(2)*(CLOSE))/(7);
VARC:=((SUM(AMOUNT,7))/(VARA))/(100);
VARD:=DMA(VARB,(VOL)/(VARC));
VARE:=((CLOSE-VARD)/(VARD))*(100);
VARF:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*(100);
VARJ:=MA(VARE,20)+STD(VARE,20);
BIAS18:=((CLOSE-MA(CLOSE,18))/(MA(CLOSE,18)))*(100);
aa:=SMA(VARF,3,1);
ss:=(REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND (aa>79);
DRAWTEXT((REF(BIAS18,1)>=5) AND CROSS(VARJ,VARE) AND
(aa>ss),h*1.02,'☆'),LINETHICK3,colorgreen;

Var4:=(LOW+HIGH+CLOSE*2)/4;
aa:= MA(Var4,4),;
压力:HHV(aa,60),colorred;
支撐:LLV(aa,60),colorffcccc;
v压力:=HHV(aa,10);
vgg:=ma(v压力,3);
vgg1:=if(vgg vgg3:=ma(v压力,3);
vgg31:=1.25*vgg3-0.25*v压力;
大1:if(vgg3>v压力,v压力,vgg31),color00ff00;
vgg33:=2.5*v压力-1.5*vgg3;
大2:if(vgg33 v支撐:=LLV(aa,10);
vhh:=ma(v支撐,3);
vhh2:=ma(v支撐,3);
vhh31:=1.25*vhh2-0.25*v支撐;
小1:if(vhh31 vhh33:=2.25*v支撐-1.25*vhh2;
小2:if(vhh33>v支撐,v支撐,vhh33),coloryellow;

a1:=cost(95);
a2:=cost(5);
ly:=(a1-a2)*100/(a1+a2);
drawicon(ly>ref(ly,1), l*0.98,8)ALIGN5;
a:=HHV(MA((L+H+C)/3,3),3);
b:=llv(MA((L+H+C)/3,3),5);
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),a,a,15,0),Coloryellow,linethick2,shift1;
DRAWNUMBER(BARSCOUNT(C)=SYSPARAM(1),a,a,3),shift3,colorYELLOW;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),b,b,15,0),Colorred,linethick2,shift1;
DRAWNUMBER(BARSCOUNT(C)=SYSPARAM(1),b,b,3),shift3,Colorred;
STICKLINE(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2),((h+l)/2),4,0),,Colorblue,linethick2;
DRAWNUMBER(BARSCOUNT(C)=SYSPARAM(1),(h+l)/2,(h+l)/2,3),colorgreen,shift2;
drawtext(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.05,'+5%'),Color63806A,shift2;
drawtext(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*1.03,'+3%'),Color63806A,shift2;
drawtext(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.95,'-5%'),Color63806A,shift2,linethick2;
drawtext(BARSCOUNT(C)=SYSPARAM(1),((h+l)/2)*0.97,'-3%'),Color63806A,shift2,linethick2;
DRAWTEXT( c>=a AND BARSCOUNT(C)=SYSPARAM(1),A*1.015,'←多'),COLORYELLOW,shift1;
DRAWTEXT(ref(c,1)=a AND BARSCOUNT(C)=SYSPARAM(1),A*0.995,'←进'),COLORYELLOW,shift1;
DRAWTEXT(ref(c,1)>ref(a,1) and c DRAWTEXT(ref(c,1)>ref(b,1) and c DRAWTEXT(sysparam(2)=BARPOS,c,' '+BLKNAME),COLORccffcc,ALIGN4;//板块
上市年:REF(YEAR,BARSCOUNT(C)-1),LINETHICK0,COLORGREEN;
月:REF(MONTH,BARSCOUNT(C)-1),LINETHICK0,COLORMAGENTA;


{CZW-fg}

DRAWBKBMP(CLOSE>0,'f010');
aa:=WINNER(C)*100 ;
bb:=(WINNER(C*1.05)-WINNER(C*0.988))*100;
牛线:MA(aa,3),LINETHICK1,colorred;
熊线:MA(bb,3),LINETHICK1,colorgreen;
洗盘线:MA((H-L)*capital/(ref(c,1)*v),3)*4,LINETHICK1,colorwhite;
Var1:=MA(AMOUNT/(100*VOL),5);
Var2:=MA(AMOUNT/(100*VOL),13);
Var3:=MA(AMOUNT/(100*VOL),34);
Var4:=DMA(CLOSE,VOL/CAPITAL);
CYS13:= (CLOSE-Var2)/Var2*100;
Var5:=WINNER(CLOSE)*100;
Var6:=100*VOL/CAPITAL;

高控盘:STICKLINE(Var5>=80 AND Var6<3 ,80,50,4,0),colorgreen;
a1:=VOL/CAPITAL*100 ;
a2:=CLOSE/REF(CLOSE,1);
STICKLINE(CROSS(牛线 , 50),0 ,60 ,6 , 0),colorred;
STICKLINE( CROSS(牛线 ,熊线 ),50 ,0 ,2 , 1),coloryellow;
STICKLINE( CROSS(牛线 ,熊线 ) and CROSS(牛线 ,洗盘线),100 ,0 ,2 , 1),coloryellow;
V2:=REF(LOW,1);
V3:=SMA(ABS(LOW-V2),3,1)/SMA(MAX(LOW-V2,0),3,1)*100;
V4:=EMA(IF(CLOSE*1.2,V3*10,V3/10),3);
V5:=LLV(LOW,38);
V6:=HHV(V4,38);
V7:=IF(LLV(LOW,90),1,0);
V8:=EMA(IF(LOW<=V5,(V4+V6*2)/2,0),3)/618*v7;
底部吸筹: STICKLINE(V8/2,0,V8,6,1),  COLORMAGENTA;

50,Color9D9A98,POINTDOT;
60,colorred,POINTDOT;
70,Color9D9A98,POINTDOT;
80,colorred,POINTDOT;
半仓买:CROSS(牛线 ,熊线) and CROSS(牛线 ,洗盘线);
冲天炮:CROSS(牛线 , 50);
DRAWTEXT(CROSS(牛线 ,熊线 ) ,50 ,'少买'),Color9D9A98;
DRAWTEXT(CROSS(牛线 ,熊线) and CROSS(牛线 ,洗盘线) ,70 ,'全仓买'),Color9D9A98;
V1:=ABS(WINNER(CLOSE)-WINNER(REF(CLOSE,1)))/(VOL/CAPITAL);
V2:=V1>15;
V3:=ABS(WINNER(CLOSE)-WINNER(OPEN))*100;
DRAWICON(V3>=20AND V2 ,80,10);
DRAWTEXT(V3>=20AND V2,80,'主力异动'),coloryellow;
x:=c-ref(ma(c,20),11);
lgl:=IF(EMA(C,5)/EMA(EMA(C,9),16)<=0.85 and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and VOL/CAPITAL*100<5,50,0);
wr1:=-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))+100*x;
wr2:=-100*(HHV(HIGH,50)-CLOSE)/(HHV(HIGH,50)-LLV(LOW,50))+100;
wr3:=-100*(HHV(HIGH,70)-CLOSE)/(HHV(HIGH,70)-LLV(LOW,70))+100*x;
BIAS1:=((CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100+10)*5;
BIAS2:=((CLOSE-MA(CLOSE,50))/MA(CLOSE,50)*100+10)*5;
BIAS3:=((CLOSE-MA(CLOSE,70))/MA(CLOSE,70)*100+10)*5;
s1:=(wr1+wr2+wr3+bias1+bias2+bias3)/6*x;
s2:=ema(s1,3);
s3:=abs(bias1-bias3);
sx:=(s1+s3)/2;
xc1:=(-1)*(ema(100*(1-WINNER(CLOSE)),1)-50)+50;
ccc:=xc1+sx;
zjz:=IF( lgl>0 and ccc<0,200,0)*x;
lxl:=if(sx<0 and c=llV(c,5) and c/ref(c,1)>0.905 and c/ref(c,1)<1.05 and VOL/CAPITAL*100<5,-50,0);
jbj:=if(ccc<0 and lxl=-50,100,0)*x;
ma3:= ma(c,3);
c0:=ref(c,2)*0.865;
c1:=ref(c,13)*0.772;
bot:=MIN(c0,c1);
hsl:=100*vol/capital*x;
ma13:=ma(c,13)*x;
cxc:=if((c-bot)/c<3/100 and sum(hsl,5)/5<1.8,1,0);
vmc:=if(cxc>0 and (lxl<0 or lgl>0),10,0);
满仓:if((vmc>0),70,0),colorred;
半仓:if(((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or (cxc>0 and ref(c,1)/ref(c,2)>0.902)) or (((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or cxc>0) and (lxl<0 or lgl>0)) and vmc<10 ,50,0);
v93:=(((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or cxc>0) and (lxl<0 or lgl>0)) ;
v90:=((zjz>0 and jbj>0 and SUM(VOL/CAPITAL*100,5)/5<1) or (cxc>0 and ref(c,1)/ref(c,2)>0.902));
买一点:if((v93 or v90),20,0);
Var2q:=(MA(CLOSE,80)-MA(CLOSE,13)/3);
神奇线:= MA((CLOSE-Var2q)/Var2q,1);
买二点:IF(CROSS(神奇线,0) AND LOW/REF(HIGH,1)<1.012 and ((c-ref(c,2))/c)>0.06,30,0);
yy:=SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,18,1),12,1);
yt:=SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,12,1);
st:=if(cross(yt,yy),30,0);
Var5pt:=(HIGH+LOW+CLOSE)/3;
Var6pt:=(Var5pt-MA(Var5pt,14))/(0.015*AVEDEV(Var5pt,14));
Var7pt:=(Var5pt-MA(Var5pt,85))/(0.015*AVEDEV(Var5pt,85));
sa:=IF(Var7pt>=200 AND Var6pt>=150,10,0);
Varq:=REF(CLOSE,1);
Var4qq:=SMA(MAX(CLOSE-Varq,0),6,1)/SMA(ABS(CLOSE-Varq),6,1)*100;
sm:=if(CROSS(80,Var4qq),50,0);
卖点:if((sm and (sa or st)),50,0),colorwhite;
DRAWTEXT(sm and (sa or st),50,'逃顶'),coloryellow;

{财务数据}
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;

[返回顶部↑]  [推荐好友]