搜索
查看: 6992|回复: 30

飞狐公式专贴(源码)

[复制链接]
发表于 2003-8-9 22:27 | 显示全部楼层

飞狐公式专贴(源码)

来自:MACD论坛(bbs.shudaoyoufang.com) 作者:东方飞鹰 浏览:6992 回复:30

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
飞狐公式专贴(源码)
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:27 | 显示全部楼层
{五彩K线公式:短兵相接 ((五彩K线))  缺省周期:日线 }
CLOSE>SAR(20,1,20), COLORRED;
Var1:=(CLOSE-LLV(LOW,44))/(HHV(HIGH,44)-LLV(LOW,44))*100;
Var2:=SMA(Var1,4,1);
Var3:=SMA(Var2,245,1);
Var4:=(CLOSE-LLV(LOW,50))/(HHV(HIGH,50)-LLV(LOW,50))*100;
Var5:=SMA(Var4,3,1);
Var6:=SMA(Var5,10,1);
Var7:=(CLOSE-LLV(LOW,6))/(HHV(HIGH,6)-LLV(LOW,6))*100;
Var8:=SMA(Var7,2,1);
Var9:=SMA(Var8,22,1);
VarA:=EMA(CLOSE,5)-EMA(CLOSE,25);
VarB:=EMA(VarA,250);
VarC:=1.5*(VarA-VarB);
VarD:=EMA(CLOSE,10)-EMA(CLOSE,300);
VarE:=EMA(VarD,300);
VarF:=REF(CLOSE,1);
Var10:=SMA(MAX(CLOSE-VarF,0),2,1)/SMA(ABS(CLOSE-VarF),2,1)*100;
Var11:=SMA(MAX(CLOSE-VarF,0),7,1)/SMA(ABS(CLOSE-VarF),7,1)*100;
Var12:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
Var13:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
Var14:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
Var15:=REF(CLOSE,1);
Var16:=SMA(MAX(CLOSE-Var15,0),2,1)/SMA(ABS(CLOSE-Var15),2,1)*100;
Var17:=(HIGH+LOW+CLOSE)/3;
Var18:=(Var17-MA(Var17,14))/0.015*AVEDEV(Var17,14);
Var19:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
Var1A:=Var19+2*STD(Var19,13);
Var1B:=Var19-2*STD(Var19,13);
Var1C:=EMA(CLOSE,1);
Var1D:=VarC>0 AND HIGH>SAR(20,1,20) AND CLOSE>REF(CLOSE,1) AND
VOL/REF(MA(VOL,5),1)>1.3 AND Var3>56 AND CROSS(Var5,Var6);
Var1E:=VarC>0 AND Var10>95.5 AND Var3>54 AND VOL/REF(MA(VOL,5),1)>1.3 AND
HIGH>SAR(20,1,20) AND CROSS(VarD,VarE);
Var1F:=VarC>0 AND CLOSE>LOW*1.099 AND HIGH>SAR(20,1,20) AND MA(CLOSE,5)>MA(CLOSE,10);
Var20:=CROSS(CLOSE,"BOLL.LOWER"(25,2.3)) AND LLV(LOW,4)=LLV(LOW,120) AND
CLOSE/REF(CLOSE,1)>1.048 AND CLOSE>Var17;
Var21:=Var12>-15.8 AND Var12<-12.2 AND Var13<-20.8 AND Var14<-27.5 AND Var16<11.7 AND Var18<-145;
Var22:=VarC>0 AND HIGH>SAR(20,1,20) AND CLOSE>REF(CLOSE,1) AND
VOL/REF(MA(VOL,5),1)>1.3 AND Var9>70 AND CROSS(Var8,Var9);
Var23:=Var1A/REF(Var1A,1)>1.017 AND Var1B/REF(Var1B,1)>1.017 AND CROSS(Var1C,Var1A);
CLOSEVar1D OR Var1E OR Var1F OR Var20 OR Var21 OR Var22 OR Var23, COLORWHITE;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:28 | 显示全部楼层
{东海指标    N=1 90 13,N1=1 90 75,M=1 90 14,M1=1 90 15}
Var1:=3*SMA((CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100,20,1),15,1);
Var2:=3*SMA((OPEN-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100,20,1)-2*SMA(SMA((OPEN-LLV(LOW,N1))/(HHV(HIGH,N1)-LLV(LOW,N1))*100,20,1),15,1);
Var3:=0-Var2;
Var4:=0-Var1;
Var5:=MA(Var3,3);
STICKLINE((-1)*Var4>Var5,(-1)*Var4,(-1)*Var3,6,1), , COLORRED;
STICKLINE(Var4>=REF(Var3,1),(-1)*Var4,(-1)*Var3,6,1), , COLORGREEN;
Var6:=REF(LOW,1)*0.9;
Var7:=LOW*0.9;
Var8:=(Var7*VOL+Var6*(CAPITAL-VOL))/CAPITAL;
Var9:=EMA(Var8,30);
VarA:=CLOSE-REF(CLOSE,1);
VarB:=MAX(VarA,0);
VarC:=ABS(VarA);
VarD:=SMA(VarB,7,1)/SMA(VarC,7,1)*100;
VarE:=SMA(VarB,13,1)/SMA(VarC,13,1)*100;
VarF:=BARSCOUNT(CLOSE);
Var10:=SMA(MAX(VarA,0),6,1)/SMA(ABS(VarA),6,1)*100;
Var11:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
Var12:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
Var13:=SMA((SMA(Var12,4,1)-50)*2,3,1);
Var14:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
Var15:=SMA(Var14,4,1);
Var16:=SMA(Var15,3,1);
Var17:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
Var18:=Var10<=25 AND Var11<-95 AND Var17>20 AND Var13<-30 AND Var16<30 AND Var9-CLOSE>=-0.25 AND VarD<22 AND VarE<28 AND VarF>50;
Var19:=(HIGH+LOW+CLOSE)/3;
Var1A:=(Var19-MA(Var19,14))/(0.015*AVEDEV(Var19,14));
Var1B:=(Var19-MA(Var19,70))/(0.015*AVEDEV(Var19,70));
Var1C:=IF(Var1A>=150 AND Var1A<200 AND Var1B>=150 AND Var1B<200,10,0);
Var1D:=IF(Var1A<=-150 AND Var1A>-200 AND Var1B<=-150 AND Var1B>-200,-10,Var1C);
Var1E:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
Var1F:=REVERSE(Var1E);
Var20:=SMA(Var1E,3,1);
Var21:=SMA(Var20,3,1);
Var22:=SMA(Var21,3,1);
Var23:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
Var24:=SMA(Var23,M1,1);
牛朗: SMA(Var24,M1,1),linethick2 , COLORMAGENTA;
Var25:=(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M))*100;
Var26:=SMA(Var25,M1,1);
Var27:=SMA(Var26,M1,1);
织女: SMA(牛朗,M1,1),linethick2 , COLORYELLOW;
Var28:=COST(10);
Var29:=(CLOSE-Var28)/Var28*100;
Var2A:=COUNT(Var29<-2.05,3);
买: IF(Var2A>=3,10,0),linethick2 , COLORCYAN;
相遇: STICKLINE(CROSS(5,买),0,20,6,0), , COLORRED;
Var2B:=IF(CROSS(Var18,0.5),60,0);
相爱: STICKLINE(CROSS(SMA(Var27,M1,1),85),0,75,6,0), , COLORWHITE;
Var2C:=CROSS(SMA(MAX(CLOSE-(CLOSE+REF(CLOSE,1))/2,0),5,1)/SMA(ABS(CLOSE-(CLOSE+REF(CLOSE,1))/2),5,1)*100,(CLOSE+REF(CLOSE,1))/2) AND (CLOSE-REF(CLOSE,36))/REF(CLOSE,36)*100<-10 AND HHV(HIGH,40)*0.8>LLV(LOW,5) AND SMA((HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100,3,1)>80;
Var2D:=(CLOSE-OPEN)/OPEN*100;
Var2E:=REF(CLOSE,1);
Var2F:=SMA(MAX(CLOSE-Var2E,0),6,1)/SMA(ABS(CLOSE-Var2E),6,1)*100;
Var30:=COUNT(Var2F<20,20)>=1;
Var31:=IF(Var2D>9 AND Var30,60,0);
相识: STICKLINE(Var2B OR Var31 OR Var2C*60,0,60,6,0), , COLORGREEN;
Var32:=IF("RSI.RSI1">78 AND "ROC.ROC"20,80,100);
Var33:=IF(CROSS(Var22,Var21) AND Var22>75,80,100);
STICKLINE(CROSS(Var18,0.5) AND COUNT(Var18=1,10)=1,0,60,6,0), , COLORGREEN;
DRAWTEXT(CROSS(Var18,0.5) AND COUNT(Var18=1,10)=1,35,'$'), , COLORRED;
卖: IF(Var32<100 OR Var33<100,80,100),linethick2 , COLORRED
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:28 | 显示全部楼层
{使者看量("鬼眼使者"专用看量指标)  n,1,10,5  n1,5,20,10}
总:V,COLORWHITE POINTDOT;
Var1:=AMOUNT/(VOL*100);
Var2:=IF(H-L=0 AND C/REF(c,1)<0.95,1,(Var1-L)/(H-L));
Var3:=Var2-1;
Var4:=IF(REF(Var2,1)=0,0.01,REF(Var2,1));
Var5:=IF(REF(Var3,1)=0,0.01,REF(Var3,1));
Var6:=(Var2/Var4)/((Var2/Var4+Var3/Var5)/100)/100;
买:Var6*V,COLOR5050FF POINTDOT;
卖:V-买,COLORCYAN POINTDOT;
买比:买/v*100,COLORYELLOW POINTDOT;
买M1:MA(买,N ),COLORWHITE;
买M2:MA(买,N1),COLORGREEN;
STICKLINE(CLOSE<=REF(CLOSE ,1),v,0,4,1),COLORCYAN;
STICKLINE(CLOSE>=REF(CLOSE ,1),v,0,4,1),COLOR5050FF;
STICKLINE(买,0,买,4,0),COLOR5050FF;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:29 | 显示全部楼层
{股信指标   n,1,100,3  m,1,100,2}
Var1:=1080830;
DATE<=Var1;
Var2:=IF(YEAR>=2008 AND MONTH>=8,0,1);
Var3:=REF(HIGH,1)*1.1;
Var4:=HIGH*1.1;
Var5:=(Var4*VOL+Var3*(CAPITAL-VOL))/CAPITAL;
Var6:=REF(LOW,1)*0.9;
Var7:=LOW*0.9;
Var8:=(Var7*VOL+Var6*(CAPITAL-VOL))/CAPITAL;
Var9:=EMA(Var8,30);
VarA:=EMA(Var5,30);
VarB:=VarA-2;
VarC:=IF(CLOSE<=Var9,VarB,VarA);
VarD:=MA(CLOSE,80)-MA(CLOSE,10)/17;
出手: STICKLINE(VarC-VarB=0 AND Var2 AND CROSS((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,MA((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,M)),50,0,5,0),coloryellow;
赢: DRAWTEXT(FILTER(VarC-VarB=0 AND CROSS((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,MA((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,M)),4),55,'买入'),colorwhite , ;
VarE:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
卖出线: SMA(SMA(VarE,3,1),3,1),colorff6633 , ;
买入线: 3*SMA(VarE,3,1)-2*卖出线,colorred , ;
DRAWICON(CROSS(90,买入线),90,2);
顶: STICKLINE(CROSS(90,买入线),15,0,5,0),colorgreen ,;
黄金点: STICKLINE(SMA(VarE,3,1)>卖出线,SMA(VarE,3,1),卖出线,4,0),coloryellow , ;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:30 | 显示全部楼层
{XRZL3 仙人指路第三版  GLL,-20,20,-6}
Var1:=(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100;
Var2:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;
Var3:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100;
Var4:=(Var1+2*Var2+3*Var3)/6;
Var5:=MA(Var4,3);
Var6:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;
Var7:=SMA(SMA(Var6,2,1)+3,2,1);
STICKLINE(Var7<20,-30,-40,10,1),colorffff00 , ;
STICKLINE(Var5Var8:=IF(YEAR>=2008 AND MONTH>0,0,1);
Var9:=(CLOSE-LLV(LOW,80))/(HHV(HIGH,80)-LLV(LOW,80))*200;
VarA:=SMA(Var9,3,1);
VarB:=SMA(VarA,3,1);
VarC:=3*VarA-2*VarB;
VarD:=LLV(LOW,5);
VarE:=HHV(HIGH,5);
VarF:=EMA((CLOSE-VarD)/(VarE-VarD)*100,4)*2;
Var10:=EMA(0.667*REF(VarF,1)+0.333*VarF,2);
Var11:=3*VarF-2*Var10;
Var12:=POW(MA(CLOSE,5),2)+MA(CLOSE,5);
Var13:=POW(MA(LOW,5),2)+MA(LOW,5);
Var14:=POW(MA(HIGH,5),2)+MA(HIGH,5);
Var15:=(Var12-LLV(Var13,64))/(HHV(Var14,64)-LLV(Var13,64))*150+65-10;
Var16:=SMA(Var15,3,1)*1.5-100;
Var17:=SMA(Var16,3,1);
Var18:=3*Var16-2*Var17;
Var19:=(HIGH+LOW+CLOSE*2)/4;
Var1A:=EMA(Var19,13);
Var1B:=STD(Var19,13);
Var1C:=(Var19-Var1A)*100/Var1B;
Var1D:=EMA(Var1C,5);
Var1E:=EMA(Var1D,13);
Var1F:=EMA(Var1D,13)+200-100;
Var20:=EMA(Var1F,10);
Var21:=3*Var1F-2*Var20;
Var22:=VarA+VarF+Var16+Var1F;
Var23:=VarB+Var10+Var17+Var20;
Var24:=VarC+Var11+Var18+Var21;
Var25:=(HIGH+LOW+CLOSE)/3;
Var26:=AMOUNT/VOL/100;
Var27:=SUM(AMOUNT,5)/SUM(VOL,5)/100;
Var28:=(Var25-MA(Var25,34))/(0.015*AVEDEV(Var25,34));
Var29:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
Var2A:=(HIGH+LOW+CLOSE+Var25)/4;
Var2B:=EMA(Var2A,24);
Var2C:=STD(Var2A,24);
Var2D:=(Var2A-Var2B)/Var2C*100;
Var2E:=(Var25-MA(Var25,24))/(0.015*AVEDEV(Var25,24));
Var2F:=EMA(Var2D,5);
Var30:=(Var26-MA(Var26,21))/(0.015*AVEDEV(Var26,21));
Var31:=(Var27-MA(Var27,90))/(0.015*AVEDEV(Var27,90));
Var32:=((Var2F+Var2E+Var28)/3+165)/4;
Var33:=(EMA(EMA(EMA(Var32,15),10),5)-25)*2+Var29;
Var34:=(Var22+Var23+Var24*30)/32/5-15;
Var35:=EMA(Var34,13);
Var36:=(Var32+Var34)/2/1.1;
Var37:=Var36*Var8;
Var38:=EMA((Var33+Var35)/2,2)*Var8;
Var39:=EMA(Var38,34);
STICKLINE(Var37>Var38,Var37,Var38,6,1),coloryellow , ;
STICKLINE(Var37>Var39,Var37,Var39,3,0),colorred , ;
STICKLINE(Var37STICKLINE(Var37>Var38 AND Var5STICKLINE(Var37Var39,Var37,Var38,3,1),,colorwhite  ;
STICKLINE(Var37STICKLINE(Var37>Var39,120,125,3,0),colorred , ;
Var3A:=CROSS(Var37,0)*Var8 AND COUNT(Var5<-12,2)>=1 OR CROSS(Var37,Var38) AND COUNT(Var5<-12,2)>=1;
STICKLINE(Var3A,100,0,3,0),colorff0033 , ;
DRAWICON(Var3A,100,1);
DRAWICON(CROSS(Var37,Var38) AND COUNT(Var5=1 OR CROSS(Var37,0) AND COUNT(Var5=1,40,1);
Var3B:=1;
Var3C:=(HIGH+LOW+CLOSE*2)/4*Var3B*Var8;
Var3D:=EMA(Var3C,21);
Var3E:=STD(Var3C,21);
Var3F:=((Var3C-Var3D)/Var3E*100+200)/4*Var3B;
Var40:=(EMA(Var3F,5)-25)*1.56*Var3B;
Var41:=EMA(Var40,2)*1.22*Var3B*Var8;
AJD: EMA(Var41,2)*Var3B,colorgreen , ;
AJJ: 3*Var41-2*AJD*Var3B, , ;
STICKLINE(AJJ>100,120,125,8,0),colorwhite, ;
100;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:30 | 显示全部楼层
{00股票箱   (鬼眼使者)专用主图指标   n,5,240,30}
箱顶:MA(REF(HHV(CLOSE,N),1),2),COLOR663399;
箱底:MA(REF(LLV(CLOSE,N),1),2),COLOR81FF66;
回归线:MA((箱顶+箱底),1)/2,COLOR808000;  


{技术指标公式:N2次金叉 (用法看注释!)  缺省周期:日线}
0.97,colorred ,stick,linethick5 ;
0.67,color9933cc ,stick ,linethick5  ;
0.3,color0099cc ,stick,linethick5   ;
MACD二次金叉: FILTER(CLOSE>LLV(LOW,30)*1.01 AND CLOSE=2,10) AND COUNT(REF(CLOSE,BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1))+1)>CLOSE AND REF("MACD.DIFF",BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1))+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA"),5)>=1,coloryellow ;
0,linethick5,stick  ,color3366cc ;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:31 | 显示全部楼层
{M金龙起舞   N(1,111,20)N1(1,111,7)N2(1,111,69)}
M3: EMA(CLOSE,3);
M8: EMA(CLOSE,8), , COLORGREEN;
M13: EMA(M8,13), , COLORRED;
M62: EMA(M8,62), , COLORCYAN;
Var1:=EMA(M13,62);
M81: EMA(M62,81), , COLORYELLOW;
M144: EMA(Var1,144),LINETHICK2 , COLORRED;
M250: EMA(Var1,250),LINETHICK2 , COLORMAGENTA;
Var2:=(CLOSE+HIGH+LOW)/3;
Var3:=EMA(Var2,10);
Var4:=REF(Var3,1);
STICKLINE(Var3>Var4,Var3,Var4,15,0), , COLORYELLOW;
STICKLINE(Var3Var5:=(REF(HIGH,1)+REF(LOW,1))/2;
Var6:=MA(CLOSE,N)+2*STD(CLOSE,N);
DRAWICON(CROSS(Var5,Var6),HIGH*1.035,1);
DRAWTEXT(CROSS(Var5,Var6),HIGH*1.04,'卖出'), , COLORGREEN;
Var7:=REF(CLOSE,1);
Var8:=SMA(MAX(CLOSE-Var7,0),N1,1)/SMA(ABS(CLOSE-Var7),N1,1)*100;
Var9:=CROSS(N2,Var8);
VarA:=FILTER(Var9,4);
DRAWICON(VarA,HIGH*1.035,1);
DRAWTEXT(VarA,HIGH*1.04,'卖出'), , COLORWHITE;
VarB:=(2*CLOSE+HIGH+LOW)/4;
VarC:=LLV(LOW,34);
VarD:=HHV(HIGH,34);
VarE:=EMA((VarB-Var1)/(Var5-Var1)*100,7);
VarF:=EMA(0.667*REF(VarE,1)+0.333*VarE,5);
DRAWTEXT(IF(COUNT(CLOSE0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(VarE>=VarF,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'●买进'), , {00010001};
DRAWTEXT(IF(COUNT(CLOSE0.6 AND COUNT(VarE>VarF,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND OPEN>REF(CLOSE,1),1,0),LOW,'●买进'), , COLORYELLOW;
Var10:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:31 | 显示全部楼层
{金色家园}
蓝天:110,stick,colorblue;
花园:ema((CLOSE-llV(CLOSE,55))/(HHV(CLOSE,55)-LLV(LOW,55))*100,5),
stick,linethick1,colorgreen;
A:=EMA(WINNER(CLOSE),10);
B:=EMA(WINNER(CLOSE),34);
Var1:=MA(VOL,5)>MA(VOL,60);
别墅:IF(A<0.15 AND ABS(A-B)<0.05 AND CROSS(A,B) and var1,1,0)*100,
color0099ff,stick,linethick3;
var2:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)
-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);
var3:=IF(var2>90,50,100);
星星:IF(CROSS(var3,var2),1,0),coloryellow;
drawtext(星星,100,'★'),coloryellow;
stickline(别墅>0,15,别墅*1.1,1,0),pointdot,colorwhite;
stickline(别墅>0 and 别墅<400,40,别墅,1,0),colorred,linethick1;
stickline(别墅>0,15,别墅*0.7,5,0),coloryellow,linethick5;
stickline(别墅>0,15,别墅*0.4,5,0),coloryellow,linethick7;
stickline(别墅>0,15,别墅*0.1,5,0),color0099cc,linethick7;
dpMSD:=EMA(100*(INDEXC-LLV(INDEXL,34))/(HHV(INDEXH,34)-LLV(INDEXL,34)),3);
红*:DRAWTEXT(DPMSD<5,15,'↑'), COLOR0066ff;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:32 | 显示全部楼层
{技术指标公式:稳操胜券3 (自用)  缺省周期:日线}
Var1:=IF(DATE<=1080701,1,0);
Var2:=DMA(CLOSE,HIGH/MA(LOW,4)/4);
Var3:=DMA(CLOSE,CLOSE/MA(LOW,30)/30);
Var4:=(LOW-Var2)/Var2*100<-5.889;
Var5:=(Var2-Var3)/Var3*100<-15.889;
Var6:=Var4 AND Var5 AND (HIGH-MA(LOW,3))/REF(LOW,2)>-0.059;
Var7:=Var6>0;
Var8:=AMOUNT/VOL/100;
Var9:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VarA:=SUM(AMOUNT,13)/Var8/100;
VarB:=DMA(Var9,VOL/VarA);
VarC:=MA(HHV(HIGH,488),18);
VarD:=MA(HHV(HIGH,220),18);
VarE:=MA(HHV(HIGH,98),18);
VarF:=MA(LLV(LOW,488),18);
Var10:=MA(LLV(LOW,220),18);
Var11:=MA(LLV(LOW,98),18);
Var12:=MA((VarF*0.96+Var10*0.96+Var11*0.96+VarC*0.558+VarD*0.558+VarE*0.558)/6,18);
Var13:=MA((VarF*1.25+Var10*1.23+Var11*1.2+VarC*0.55+VarD*0.55+VarE*0.65)/6,18);
Var14:=MA((VarF*1.3+Var10*1.3+Var11*1.3+VarC*0.68+VarD*0.68+VarE*0.68)/6,18);
Var15:=MA((Var12*3+Var13*2+Var14)/6*1.738,18);
Var16:=IF(DATE<=1021231,Var15,Var15*DAY);
Var17:=LOW;
Var18:=REF(LOW,1);
Var19:=SMA(ABS(Var17-Var18),3,1)/SMA(MAX(Var17-Var18,0),3,1)*100;
Var1A:=MA(IF(CLOSE*1.35<=Var16,Var19*10,Var19/10),3);
Var1B:=LLV(LOW,30);
Var1C:=HHV(Var1A,30);
Var1D:=IF(LOW<=Var1B,(Var1A+Var1C*2)/2,0);
Var1E:=MA(Var1D AND CLOSEVar1F:=MA(CLOSE,5);
Var20:=MA(CLOSE,10);
Var21:=MA(CLOSE,20);
Var22:=MA(CLOSE,30);
Var23:=(Var1F+Var20+Var21+Var22)/4;
Var24:=(Var23-REF(Var23,15))/REF(Var23,15)*100;
Var25:=IF(Var24<-10 AND Var24买入: Var7*Var1 AND Var1E*Var1 AND Var25*Var1 AND (CLOSE-OPEN)*Var1>0,linethick2 , colorred;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:34 | 显示全部楼层
使者看盘  p1,1,100,13 p2,1,100,5}
强弱线:0,COLOR663399;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0), 4, 1)/SMA(ABS(CLOSE-LC),4,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0), 8, 1)/SMA(ABS(CLOSE-LC),8,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
Var1:=(RSI1+RSI2+RSI3)/3,COLORWHITE;
Var2:=MA(CLOSE, 5);
Var3:=MA(CLOSE,10);
Var4:=MA(CLOSE,20);
Var5:=MA(CLOSE,30);
Var6:=(Var2+Var3+Var4+Var5)/4;
Var7:=(Var6-REF(Var6, p1 ))/REF(Var6, 13)*100;
Var8:=(Var6-REF(Var6, p1 ))/REF(Var6, 13)*100;
Var9:=EMA(Var7, p2);
趋势:Var9,COLORWHITE POINTDOT;
反转:STICKLINE(Var9>1*REF(Var9, 1), Var7, 0, 0.1, 0),COLOR663399;
持股:STICKLINE(Var7>1*REF(Var7, 1), Var7,Var9, 7, 1), COLOR5050ff;
持币:STICKLINE(Var7<1*REF(Var7, 1), Var7,Var9, 7, 1), COLORGREEN;
离场或持股观望:STICKLINE(趋势>=0 AND Var7<1*REF(Var7, 1) ,var7,趋势,7,1),COLORC0C0C0;
预警:STICKLINE(趋势>=20 AND 趋势>REF(趋势 ,1),Var7 ,趋势,7 ,0 ),COLORYELLOW;
风险:STICKLINE(趋势>=40 AND 趋势>REF(趋势 ,1),Var7,趋势 ,7 ,0 ),COLOREE00EE;
相对头部:STICKLINE(趋势>5 AND CROSS(80,Var1),Var7 ,趋势 ,7 ,0 ),COLORFFB97A;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:35 | 显示全部楼层
{叛逆快枪}
VAR1:=EMA(HHV(HIGH,500),21);
VAR2:=EMA(HHV(HIGH,250),21);
VAR3:=EMA(HHV(HIGH,90),21);
VAR4:=EMA(LLV(LOW,500),21);
VAR5:=EMA(LLV(LOW,250),21);
VAR6:=EMA(LLV(LOW,90),21);
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21);
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21);
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21);
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC/10),3);
VARE:=LLV(LOW,30);
VARF:=HHV(VARD,30);
VAR10:=IF(MA(CLOSE,58),1,0);
快枪:-EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR10,COLORSTICK;
快枪1:(快枪>0);0;快枪;4;1;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:35 | 显示全部楼层
{双龙戏珠   主图}
MA(EMA(CLOSE,12),1), , COLORRED;
MA(EMA(CLOSE,12),3), , COLORRED;
MA(EMA(CLOSE,12),5), , COLORRED;
MA(EMA(CLOSE,12),7), , COLORRED;
MA(EMA(CLOSE,12),9), , COLORRED;
MA(EMA(CLOSE,12),11), ,COLORRED;
MA(EMA(CLOSE,12),13), ,COLORRED;
MA(EMA(CLOSE,60),1), , COLORGREEN;
MA(EMA(CLOSE,60),3), , COLORGREEN;
MA(EMA(CLOSE,60),5), , COLORGREEN;
MA(EMA(CLOSE,60),7), , COLORGREEN;
MA(EMA(CLOSE,60),9), , COLORGREEN;
MA(EMA(CLOSE,60),11), , COLORGREEN;
MA(EMA(CLOSE,60),13), , COLORGREEN;
DRAWTEXT(FILTER(EMA(CLOSE,60)-EMA(CLOSE,12)>0 AND EMA(CLOSE,12)/LOW>1.15,5),
LOW,'●'),linethick3 , COLORMAGENTA;
DRAWTEXT(FILTER(EMA(CLOSE,12)-EMA(CLOSE,60)>0 AND HIGH/EMA(CLOSE,12)>1.15,5),
HIGH,'●'),linethick3 , COLORYELLOW;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:38 | 显示全部楼层
{解盘}
MA5:MA(C,5) colorwhite;
MA10:MA(C,10)coloryellow;
POLYLINE(C,MA(C,20)) color999999;
MA30:MA(C,30)colorgreen;
POLYLINE(C,MA(C,45)) color999999;
MA60:MA(C,60)colormagenta;
POLYLINE(C,MA(C,90)) color999999;
MA120:MA(C,120)colorcyan;
POLYLINE(C,MA(C,150)) color999999;
POLYLINE(C,MA(C,180)) color999999;
POLYLINE(C,MA(C,210)) color999999;
MA250:MA(C,250)colorred;
VK:=SQRT(VOL/CAPITAL*100*5);
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;
EXPLAIN((MA5>MA10 and MA10>MA30 and MA5>MA30),'解:短期均线排列:多头')COLORred;
EXPLAIN((MA5EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120),'解:中期均线排列:多头');
EXPLAIN((MA30EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解:长期均线排列:多头');
EXPLAIN((MA60EXPLAIN((CROSS(MA5,MA10)),'解:短期均线5x10:金叉')COLORred;
EXPLAIN((CROSS(MA10,MA5)),'解:短期均线5x10:死叉');
EXPLAIN((CROSS(C,MA120)),'解:今日股价上穿半年线');
EXPLAIN((CROSS(MA120,C)),'解:今日股价跌破半年线');
EXPLAIN((CROSS(C,MA250)),'解:今日股价上穿一年线');
EXPLAIN((CROSS(MA250,C)),'解:今日股价跌破一年线');
EXPLAIN((CROSS(C,MA60) and CROSS(C,MA120) and CROSS(C,MA250)),'解:股价一阳上穿三线');
EXPLAIN((MA30>REF(MA30,1)),'解:30日均线趋势:向上');
EXPLAIN((MA30>REF(MA30,1) AND MA30EXPLAIN((MA30EXPLAIN((MA5>REF(MA5,1)*1.015),'解:5日均线:强劲向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5EXPLAIN((MA5DIFF:=EMA(C,5)-EMA(C,20);
DEA:=EMA(DIFF,10);
MACD:=2*(DIFF-DEA);
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
DCJC:=JC AND DEA>0;
EXPLAIN((JC AND DEA>0),'解:MACD在0轴上金叉')COLORred;
EXPLAIN((JC AND DEA<0),'解:MACD在0轴下金叉');
EXPLAIN((SC AND DEA>0),'解:MACD在0轴上死叉');
EXPLAIN((SC AND DEA<0),'解:MACD在0轴下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解:MACD的红柱:增长');
EXPLAIN((MACD>0 AND MACDEXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解:MACD的绿柱:增长');
EXPLAIN((MACD<0 AND ABS(MACD)EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解:0轴上金叉次数:2')COLORredCOLORred;
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解:0轴上金叉次数:3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解:0轴上金叉次数:4');

日K:="KDJ.K#DAY"(20,5,5);
日D:="KDJ.D#DAY"(20,5,5);
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
EXPLAINEX((周K>0),'解:周线K=',周K,2,0);
EXPLAIN((周K<=20),',低位');
EXPLAIN((周K>=80),',高位');
EXPLAIN((周K>20 AND 周K<50),',中低');
EXPLAIN((周K>50 AND 周K<80),',中高');
EXPLAINEX((日K>0),'解:日线K=',日K,2,0);
EXPLAIN((日K<=20),',低位');
EXPLAIN((日K>=80),',高位');
EXPLAIN((日K>20 AND 日K<50),',中低');
EXPLAIN((日K>50 AND 日K<80),',中高');
EXPLAIN((CROSS(日K,日D)),'解:日K与日D今日金叉')COLORred;
EXPLAIN((CROSS(日D,日K)),'解:日K与日D今日死叉');
EXPLAIN((CROSS(周K,周D)),'解:周K与周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解:周K与周D今日死叉');
EXPLAINICON(HIGH>=HHV(HIGH,20), 'MyBMP');
EM5:EMA(C,5) colorwhite;
EM10:EMA(C,10)coloryellow;
POLYLINE(C,EMA(C,20)) color999999;
EM30:EMA(C,30)colorgreen;
POLYLINE(C,EMA(C,45)) color999999;
EM60:EMA(C,60)colormagenta;
POLYLINE(C,EMA(C,90)) color999999;
EM120:EMA(C,120)colorcyan;
POLYLINE(C,EMA(C,150)) color999999;
POLYLINE(C,EMA(C,180)) color999999;
POLYLINE(C,EMA(C,210)) color999999;
EM250:EMA(C,250)colorred;

FILLRGN(EMA(C,5)>EMA(C,10),EMA(C,5),EMA(C,10))COLOR6699FF;
FILLRGN(EMA(C,5){VK:=SQRT(VOL/CAPITAL*100*5);}
STICKLINE(C>=O,H,L,0,0) COLORred;
STICKLINE(C>=O,C,O,VK+3.8,0) COLORred;
STICKLINE(C< O,H,L,0,0) COLORgreen;
STICKLINE(C< O,C,O,VK+3.8,0) COLORgreen;

EXPLAIN((EM5>EM10 and EM10>EM30 and EM5>EM30),'解:短期均线排列:多头');
EXPLAIN((EM5EXPLAIN((EM30>EM60 and EM30>EM120 and EM60>EM120),'解:中期均线排列:多头');
EXPLAIN((EM30EXPLAIN((EM60>EM120 and EM120>EM250 and EM60>EM250),'解:长期均线排列:多头');
EXPLAIN((EM60EXPLAIN((CROSS(EM5,EM10)),'解:短期均线5x10:金叉');
EXPLAIN((CROSS(EM10,EM5)),'解:短期均线5x10:死叉');
EXPLAIN((CROSS(C,EM120)),'解:今日股价上穿半年线');
EXPLAIN((CROSS(EM120,C)),'解:今日股价跌破半年线');
EXPLAIN((CROSS(C,EM250)),'解:今日股价上穿一年线');
EXPLAIN((CROSS(EM250,C)),'解:今日股价跌破一年线');
EXPLAIN((CROSS(C,EM60) and CROSS(C,EM120) and CROSS(C,EM250)),'解:股价一阳上穿三线');
EXPLAIN((EM30>REF(EM30,1)),'解:30日均线趋势:向上');
EXPLAIN((EM30>REF(EM30,1) AND EM30EXPLAIN((EM30EXPLAIN((EM5>REF(EM5,1)*1.015),'解:5日均线:强劲向上');
EXPLAIN((EM5>REF(EM5,1) AND EM5EXPLAIN((EM5EXPLAIN((JC AND DEA>0),'解:MACD在0轴上金叉');
EXPLAIN((JC AND DEA<0),'解:MACD在0轴下金叉');
EXPLAIN((SC AND DEA>0),'解:MACD在0轴上死叉');
EXPLAIN((SC AND DEA<0),'解:MACD在0轴下死叉');
EXPLAIN((MACD>0 AND MACD>REF(MACD,1)),'解:MACD的红柱:增长');
EXPLAIN((MACD>0 AND MACDEXPLAIN((MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解:MACD的绿柱:增长');
EXPLAIN((MACD<0 AND ABS(MACD)EXPLAIN((COUNT(DCJC,20)=2 AND JC AND DEA>0),'解:0轴上金叉次数:2');
EXPLAIN((COUNT(DCJC,20)=3 AND JC AND DEA>0),'解:0轴上金叉次数:3');
EXPLAIN((COUNT(DCJC,20)=4 AND JC AND DEA>0),'解:0轴上金叉次数:4');


EXPLAINEX((周K>0),'解:周线K=',周K,2,0);
EXPLAIN((周K<=20),',低位');
EXPLAIN((周K>=80),',高位');
EXPLAIN((周K>20 AND 周K<50),',中低');
EXPLAIN((周K>50 AND 周K<80),',中高');
EXPLAINEX((日K>0),'解:日线K=',日K,2,0);
EXPLAIN((日K<=20),',低位');
EXPLAIN((日K>=80),',高位');
EXPLAIN((日K>20 AND 日K<50),',中低');
EXPLAIN((日K>50 AND 日K<80),',中高');
EXPLAIN((CROSS(日K,日D)),'解:日K与日D今日金叉')color999999;
EXPLAIN((CROSS(日D,日K)),'解:日K与日D今日死叉')COLORFF6666;
EXPLAIN((CROSS(周K,周D)),'解:周K与周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解:周K与周D今日死叉');


FILLRGN(周K>周D,周K,周D)COLORMAGENTA;
FILLRGN(周K<周D,周K,周D)COLORFF9999;
FILLRGN(日K>日D,日K,日D)COLORRED;
FILLRGN(日K<日D,日K,日D)COLORGREEN;

STICKLINE(C>0,20,20,6,0)colorred;
STICKLINE(C>0,80,80,6,0)colorred;
STICKLINE(C>0,50,50,6,0)coloryellow;

EXPLAIN((周K<=20),'解:周线KD位置:低位');
EXPLAIN((周K>=80),'解:周线KD位置:高位');
EXPLAIN((周K>20 AND 周K<50),'解:周线KD位置:中低');
EXPLAIN((周K>50 AND 周K<80),'解:周线KD位置:中高');
EXPLAINEX((周K>0),'解:周位置,周K=',周K,2,1);

EXPLAIN((日K<=20),'解:日线KD位置:低位');
EXPLAIN((日K>=80),'解:日线KD位置:高位');
EXPLAIN((日K>20 AND 日K<50),'解:日线KD位置:中低');
EXPLAIN((日K>50 AND 日K<80),'解:日线KD位置:中高');
EXPLAINEX((日K>0),'解:日位置,日K=',日K,2,1);

EXPLAIN((CROSS(日K,日D)),'解:日K与日D今日金叉');
EXPLAIN((CROSS(日D,日K)),'解:日K与日D今日死叉');
EXPLAIN((CROSS(周K,周D)),'解:周K与周D今日金叉');
EXPLAIN((CROSS(周D,周K)),'解:周K与周D今日死叉');
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:38 | 显示全部楼层
{ X黑马起步}
MA1:EMA(CLOSE,250),color00ff00;
VAR1:=(2*CLOSE+LOW+HIGH)/4;
MA2:(EMA(VAR1,5)+EMA(VAR1,13)+EMA(VAR1,21)+EMA(VAR1,34))/4,colorwhite;
MA3:EMA(EMA(EMA(EMA(EMA(EMA(MA2,3),3),3),3),3),3),coloryellow;
VAR2:=IF(DATE>=10201201,0,1);
VAR3:=(2*CLOSE+LOW+HIGH)/4*VAR2;
stickline(MA2>=MA3,MA2,MA3,6,0),coloryellow;
stickline(MA2



{Z金山银山     主图}
DIFF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MA(C,8),COLORWHITE;
MA(C,21),COLORYELLOW;
多头:STICKLINE(DIFF>DEA,C,O,8,0),COLORRED;
STICKLINE(DIFF>DEA,H,L,0,0),COLORRED;
空头:STICKLINE(DIFF<=DEA,C,O,8,0),COLORCYAN;
STICKLINE(DIFF<=DEA,H,L,0,0),COLORCYAN;
DRAWTEXT(CROSS(DIFF,DEA),L-0.2,'买入'),COLORWHITE;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:39 | 显示全部楼层
{无敌波段}
Var1:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
Var2:=SMA(SMA(Var1,3,1),3,1);
Var3:=EMA(Var2,5);
Var2;
91.307, , COLORred;
6.788, , COLORwhite;
49.048, , COLORgreen;
BB: Var3, , COLORYELLOW;
无敌: 3*Var2-2*Var3 , COLORRED;
STICKLINE(CROSS(无敌,Var2) AND 无敌<21,Var2-5,Var2+15,8,0), , COLORYELLOW;
STICKLINE(CROSS(Var2,无敌) AND 无敌>55,Var2-5,Var2+15,8,0), , colorblue;
DRAWTEXT(CROSS(无敌,Var2) AND 无敌<21,Var2-3,'进'), , COLORYELLOW;
DRAWTEXT(CROSS(Var2,无敌) AND 无敌>55,Var2+15,'出'), , colorwhite;






{技术指标公式:003  缺省周期:日线}
Var1:=(-100)*(HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13));
VAR2: Var1;
-50;
-90;
-10;
STICKLINE(VAR2>-50,-50,VAR2,2,0),colorred , ;
STICKLINE(VAR2<-50,-50,VAR2,2,0), , ;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:39 | 显示全部楼层
{仿光棍翻脸}
Var1:=(HHV(HIGH,9)-LLV(LOW,9));
Var2:=(HHV(HIGH,9)-CLOSE);
Var3:=(CLOSE-LLV(LOW,9));
Var4:=Var2/Var1*100-70 ;
Var5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;
Var6:=(2*C+H+L)/4;
Var7:=SMA((Var3/Var1*100),3,1);  
Var8:=LLV(LOW,34);
Var9:=SMA(Var7,3,1)-SMA(Var4,9,1);
Var10:= IF(Var9>100,Var9-100,0);
VarA:=HHV(HIGH,34);
防线B:=EMA((Var6-Var8)/(VarA-Var8)*100,8),COLORCYAN;
B1:=EMA(防线B,5);
频约娇媚:STICKLINE(防线B>0 AND 防线B-B1>=0,79,80,6,0),COLOR00FF00;
连得龙子:STICKLINE(防线B>0 AND 防线B-B1<0,79,80,6,1),COLORRED;
只赚不赔:STICKLINE(防线B>0 AND 防线B-B1>=0,19,20,6,0),COLOR00FF00;
STICKLINE(防线B>0 AND 防线B-B1>=0,49,50,6,0),COLORCYAN;
STICKLINE(防线B>0 AND 防线B-B1<0,49,50,6,1),COLORRED;
吃么香香:STICKLINE(防线B>0 AND 防线B-B1<0,19,20,6,1),COLORRED;
游戏玩法一进一出:STICKLINE(防线B-B1>0,防线B,B1,8,1),COLORCYAN;
延年益寿妙趣横生:STICKLINE(防线B-B1<0,防线B,B1,8,1),COLORRED;




{真实量比}
V1:=AMOUNT/10000;
对拷: FINANCE(33), POINTDOT;
Var1:=ref(c,1);
var4:=(var1-l)/(h-l);
var5:=v1*var4;
var2:=V*var4;
var3:=abs(var2);
var6:=abs(var5);
var7:=abs(v1-var6);
大单卖盘:abs(v-var3)/100;
买盘:var3/100;
成交金额:V1/1000;
买卖盘比%:abs(v-var3)/v*100;
stickline(c>0,0,var6,5,0),colorcyan;
换手率:100*v/capital;
STICKLINE(换手率<3,var6,v1 ,5 ,0),colorred;
STICKLINE(换手率>=3 and 换手率<7,var6, V1,5.5,0),coloryellow;
STICKLINE(换手率>=7,var6, V1, 6,0) ,colorgreen;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

 楼主| 发表于 2003-8-9 22:40 | 显示全部楼层
{技术指标公式:8反弹了  缺省周期:日线}
{参数描述: N(1,100,3)M(1,100,2)}
Var1:=1080830;
DATE<=Var1;
Var2:=IF(YEAR>=2008 AND MONTH>=8,0,1);
Var3:=REF(HIGH,1)*1.1;
Var4:=HIGH*1.1;
Var5:=(Var4*VOL+Var3*(CAPITAL-VOL))/CAPITAL;
Var6:=REF(LOW,1)*0.9;
Var7:=LOW*0.9;
Var8:=(Var7*VOL+Var6*(CAPITAL-VOL))/CAPITAL;
Var9:=EMA(Var8,30);
VarA:=EMA(Var5,30);
VarB:=VarA-2;
VarC:=IF(CLOSE<=Var9,VarB,VarA);
VarD:=MA(CLOSE,80)-MA(CLOSE,10)/17;
0,coloryellow ,linethick2 ;
VarC-VarB=0 AND Var2 AND CROSS((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,MA((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,M));
VarE:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
DD:SMA(SMA(VarE,3,1),3,1);
JJ:3*SMA(VarE,3,1)-2*DD,coloryellow ,linethick2 ;
DRAWTEXT(FILTER(VarC-VarB=0 AND Var2 AND CROSS((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,MA((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,M)),4),55,'宝贝'),colorred , ;
DRAWICON(CROSS(90,JJ) AND Var1,90,2);
STICKLINE(CROSS(90,JJ) AND Var1,90,100,10,0),colorgreen  , ;
STICKLINE(SMA(VarE,3,1)>DD AND Var1,SMA(VarE,3,1),DD,4,0),colorblue , ;
{STICKLINE(VarC-VarB=0 AND Var2 AND CROSS((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,MA((EMA(EMA(EMA(CLOSE,N),N),N)-REF(EMA(EMA(EMA(CLOSE,N),N),N),1))/REF(EMA(EMA(EMA(CLOSE,N),N),N),1)*100,M)),55),colorred , ;}



{技术指标公式:RSI+SW3 (成功率83.7%)  缺省周期:日线}
{参数描述: N(2,20,4)MR(15,50,30)MC(50,100,62)}
Var1:=(CLOSE-COST(50))/COST(50)*100;
RSI: MA("RSI.RSI1"(6,12,24),10)-50;
Var2:=MA(Var1,2);
Var3:=MA(Var1,34);
Var4:=("PSY"<40 AND "LW&R.LWR1">70 AND "RSI.RSI1">16 AND "LW&R.LWR2"+0.8>"LW&R.LWR1")*10;
SW3: Var2-Var3, COLORSTICK;
Var5:="BIAS.BIAS3"(6,12,24);
BB: (RSI<-10 AND SW3<-4 AND Var1<-5 AND RSI>REF(RSI,1) AND Var4 AND Var5<-9)*40-20;
DD: (RSI>10 AND SW3>8 AND SW3AA: DRAWICON(BB=20,BB,1);
CC: DRAWICON(DD=0,DD=-20,2);
Var6:=REF(CLOSE,1);
Var7:=SMA(MAX(CLOSE-Var6,0),12,1)/SMA(ABS(CLOSE-Var6),12,1)*100;
Var8:=MA(Var7,N);
VAR9:IF(CROSS(Var8,REF(Var8,2)) AND Var8MC,-2,0));
DRAWTEXT(VAR9>1,HIGH,'买入'), , COLORYELLOW;
DRAWTEXT(VAR9<-1,LOW,'卖出'), , COLORGREEN;






{安全线}
危机线:85,COLORRED;
中间线:50,COLORWHITE;
安全线:15,COLORGREEN;
V1:=(2*CLOSE+HIGH+LOW)/4;
V2:=LLV(LOW,34);
VA:=HHV(HIGH,34);
防线B:=EMA((V1-V2)/(VA-V2)*100,13);
防线BB:=EMA((0.667*REF(防线B,1)+0.333*防线B),2);
战术线:防线B,COLORYELLOW,POINTDOT;
战略线:EMA(0.382*REF(防线B,2)+0.618*防线B,12),COLORYELLOW;
STICKLINE(防线B>防线BB,防线B,防线BB,6,0),COLORRED;
STICKLINE(防线B<=防线BB,防线B,防线BB,6,0),COLORCYAN;
金币:
奖励:
热心:
注册时间:
2003-5-30

回复 使用道具 举报

签到天数: 3 天

发表于 2003-8-12 17:28 | 显示全部楼层
Originally posted by q1w1e11 at 2003-8-9 10:31 PM:
{金色家园}
蓝天:110,stick,colorblue;
花园:ema((CLOSE-llV(CLOSE,55))/(HHV(CLOSE,55)-LLV(LOW,55))*100,5),
stick,linethick1,colorgreen;
A:=EMA(WINNER(CLOSE),10);
B:=EMA(WINNER(CLOSE),34);
Var ...


稳操胜券3:
这几句不对:
Var1E:=MA(Var1D AND CLOSEVar1F:=MA(CLOSE,5);    ???????
........
Var25:=IF(Var24<-10 AND Var24买入: Var7*Var1 AND Var1E*Var1 AND Var25*Var1 AND (CLOSE-OPEN)*Var1>0,linethick2 , colorred;   ??????

请更正.
金币:
奖励:
热心:
注册时间:
2001-7-19

回复 使用道具 举报

发表于 2003-8-18 09:56 | 显示全部楼层
ok.............
金币:
奖励:
热心:
注册时间:
2003-6-14

回复 使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

本站声明:MACD仅提供交流平台,请交流人员遵守法律法规。
值班电话:18209240771   微信:35550268

举报|意见反馈|手机版|MACD俱乐部

GMT+8, 2025-4-15 15:08 , Processed in 0.043450 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表