a:="LTFunc5@FORLT2"; {计算BS点}
s1:="LTFunc5@LT_S1"; {s1=0,向下; s1=1,向上}
hs:="LTFunc5@LT_HS"; {短线买入机会}
ls:="LTFunc5@LT_LS"; {短线卖出机会}
p1:="LTFunc5@LT_P1"; {p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}
upp:="LTFunc5@LT_UPP";{明日B点预测}
udd:="LTFunc5@LT_UDD";{明日S点预测}{hs;ls;hhs;lls;us;ds;s1;p1;p0;upp;udd};
d1:=ema(abs("ddx.ddx"),60); {ddx绝对值60日指数平滑移动平均}
d2:=max("ddx.ddx"/d1+7.5,7.5);
d3:=min("ddx.ddx"/d1,10); {能量级别:当日ddx与60日平均值的比值,最高10.0}
fb:=if(s1=0,hs,ls);
tr0:=ifs(p1=1,'明日收盘价<'+numtostrn(udd,2)+',出现S点\n','若明日收盘价>'+numtostrn(upp,2)+',出现B点\n');
tr1:=ifs(s1=1,'明日收盘价<'+numtostrn(ls,2)+',短线卖出机会','若明日收盘价>'+numtostrn(hs,2)+'短线买入机会');
tr2:=ifs(p1=1,ifs(cross(p1,0),'B点','持股'),ifs(cross(1,p1),'S点','持币'));
tr3:=ifs(s1=0,'向下,','向上,');
tr4:='3.能量级别:'+numtostrn(d3,1)+'级';bs:='<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'买卖点决策系统提示\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'1.BS点:'+tr2+','+tr0+'<*t=E7FFFF*><*c=000000*><*p=95*>'+'2.短线:'+tr3+tr1+'\n'+'<*t=E7FFFF*><*c=000000*><*p=95*>'+tr4;
drawflagtext(1,fb,bs);STICKLINE(p1=1 and c>=o and o<>0,c,o,d2,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,c,o,7.5,0),colorblack;
STICKLINE(p1=1 and c>=o and o<>0,c,c,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,o,7.5,0),color5454ff;
STICKLINE(p1=1 and c>=o and o<>0,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,o,c,7.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,l,c,0.5,1),color5454ff;
STICKLINE(p1=1 and c<=o,h,o,0.5,1),color5454ff;STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,o,7.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,c,h,0.5,1),colorffff54;
STICKLINE((p1<>1 or barscount(c)<3) and c>=o,l,o,0.5,1),colorffff54;drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
Var1:=EMA(CLOSE,8);
Var2:=EMA(CLOSE,20);
STICKLINE(Var1>Var2,Var2,Var1,8,1),COLORYELLOW;
STICKLINE(Var1< Var2,Var1,Var2,8,1),COLOR00CC33;
分水岭:EMA(Var2,20), COLORFFFF99;
Var3:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14,1);
Var4:=HIGH-REF(HIGH,1);
Var5:=REF(LOW,1)-LOW;
Var6:=SMA(IF(Var4>0 AND Var4>Var5,Var4,0),12,1);
Var7:=SMA(IF(Var5>0 AND Var5>Var4,Var5,0),12,1);
Var8:=Var6*100/Var3;
Var9:=Var7*100/Var3;
VarA:=SMA(ABS(Var9-Var8)/(Var9+Var8)*100,12,1);
VarB:=(VarA+REF(VarA,5))/2;
VarC:=SUM(HIGH-OPEN,12)/SUM(OPEN-LOW,12)*100;
VarD:=SUM(MAX(0,HIGH-REF(CLOSE,1)),12)/SUM(MAX(0,REF(CLOSE,1)-LOW),12)*100;
VarE:=AMOUNT/VOL/100;
VarF:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
Var10:=SUM(AMOUNT,5)/VarE/100;
Var11:=SUM(AMOUNT,13)/VarE/100;
Var12:=SUM(AMOUNT,34)/VarE/100;
Var13:=SUM(AMOUNT,209)/VarE/100;
Var14:=REF(VOL,1)+REF(VOL,2)+REF(VOL,3)+REF(VOL,4);
Var15:=Var14/CAPITAL;
Var16:=VOL/CAPITAL*VarF+Var15*REF(VarE,1);
CYC5: IF(DATE<1500501,DMA(VarF,VOL/Var10),0);
CYC13: IF(DATE<1500501,DMA(VarF,VOL/Var11),0), COLOR9999CC ;
CYC34: IF(DATE<1500501,DMA(VarF,VOL/Var12),0),COLORgreen;
CYC无穷: IF(DATE<1500501,DMA(VarF,VOL/CAPITAL),0), COLORFF6666 ;
Var17:=100*(CLOSE-CYC5)/CYC5;
Var18:=100*(CLOSE-CYC13)/CYC13;
Var19:=100*(CLOSE-CYC34)/CYC34;
Var1A:=100*(CLOSE-CYC无穷)/CYC无穷;
Var1B:=MA(CLOSE,13);
Var1C:=100*(Var1B-REF(Var1B,1))/REF(Var1B,1);
Var1D:=CLOSE-LOW;
Var1E:=HIGH-LOW;
Var1F:=CLOSE-HIGH;
Var20:=IF(CLOSE>=0,(Var1D/Var1E+Var1F/Var1E)*VOL,(Var1F/Var1E+Var1D/Var1E)*VOL);
Var21:=SUM(Var20,10)/10000;
Var22:=100*(CYC13-REF(CYC13,1))/REF(CYC13,1);
Var23:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
Var24:=SMA(Var23,3,1);
Var25:=SMA(Var24,3,1);
Var26:=3*Var24-2*Var25;
Var27:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Var28:=SMA(Var27,5,1);
Var29:=SMA(Var28,10,1);
Var2A:=CROSS(Var29,Var28);
Var2B:=Var29>80 OR Var28>80;
Var2C:=Var2A AND Var2B;
Var2D:=Var1C>0 AND Var22>0 AND Var21>0;
Var2E:=Var1C<0 OR Var22<0 OR Var21<0 OR Var18<0;
Var2F:=CLOSE;
Var30:=OPEN;
Var31:=HIGH;
Var32:=LOW;
红色恋人: STICKLINE(Var2D,Var2F,Var30,8,0), color0000FF ;
STICKLINE(Var2D,Var31,MAX(Var2F,Var30),0,1), color0000FF ;
STICKLINE(Var2D,MIN(Var2F,Var30),Var32,0,1), color0000FF;
蓝色妖姬: STICKLINE(Var2E,Var2F,Var30,8,0), colorFFCC33 ;
STICKLINE(Var2E,Var31,MAX(Var2F,Var30),0,1), colorFFCC33 ;
STICKLINE(Var2E,MIN(Var2F,Var30),Var32,0,1), colorFFCC33 ;
DRAWTEXT(Var2C,HIGH,'逃顶'), COLORWHITE;
Var33:=LLV(LOW,240);
Var34:=100*(CLOSE-Var33)/Var33>15;
Var35:=100*(CLOSE-Var33)/Var33<45;
Var36:=100*(CLOSE-Var33)/Var33;
Var37:=Var34 AND Var35;
Var38:=100*(WINNER(CLOSE)-WINNER(0.7*CLOSE));
Var39:=100*(CYC5-REF(CYC5,1))/REF(CYC5,1);
Var3A:=Var38>70 AND Var39>1 AND Var37;
DRAWTEXT(Var3A,LOW,'密上'), COLORGREEN ;
Var3B:=(Var18-LLV(Var18,60))/(HHV(Var18,60)-LLV(Var18,60))*100;
Var3C:=LLV(LOW,240);
Var3D:=100*(CLOSE-Var3C)/Var3C;
Var3E:=WINNER(CLOSE)/SMA(VOL/CAPITAL,13,1);
Var3F:=100*VOL/CAPITAL;
Var40:=100*(WINNER(CLOSE)-REF(WINNER(CLOSE),1));
Var41:=Var40/Var3F;
Var42:=1.1*CLOSE;
Var43:=0.9*CLOSE;
Var44:=100*(WINNER(Var42)-WINNER(Var43));
Var45:=100*(CLOSE-COST(0))/(COST(100)-COST(0));
Var46:=(CLOSE-LLV(LOW,240))/(HHV(HIGH,240)-LLV(LOW,240))*100;
Var47:=(CLOSE-LLV(LOW,480))/(HHV(HIGH,480)-LLV(LOW,480))*100;
Var48:=WINNER(CLOSE)/(VOL/CAPITAL);
Var49:=100*(1-WINNER(CLOSE));
Var4A:=Var36<1 AND Var48<0.3 AND Var3E<0.3 AND Var41<0 AND Var46<0.5 AND Var47<0.5 AND Var44<1.5 AND Var45<1 AND Var3B=0;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
