?

?

原理解析：
VAR1賦值:如果年份<=2050,返回1,否則返回0 VAR2賦值:1日前的收盤價(jià) VAR3賦值:收盤價(jià)-VAR2和0的較大值的6日[1日權(quán)重]移動(dòng)平均/收盤價(jià)-VAR2的絕對值的6日[1日權(quán)重]移動(dòng)平均*100*VAR1 輸出見頂↓:如果84上穿VAR3,返回最高價(jià),否則返回最高價(jià)+1,POINTDOT,線寬為7 , COLOR00FF00 最高價(jià)+1,POINTDOT,線寬為7 , COLOR000000 VAR4賦值:收盤價(jià)-VAR2和0的較大值的12日[1日權(quán)重]移動(dòng)平均/收盤價(jià)-VAR2的絕對值的12日[1日權(quán)重]移動(dòng)平均*100*VAR1 輸出見底↑:如果VAR4上穿20,返回最低價(jià),否則返回最低價(jià)-1,POINTDOT,線寬為7 , 畫紅色 最低價(jià)-1,POINTDOT,線寬為7 , COLOR000000 VAR5賦值:收盤價(jià)的5日簡單移動(dòng)平均 VAR6賦值:收盤價(jià)的10日簡單移動(dòng)平均 VAR7賦值:收盤價(jià)的30日簡單移動(dòng)平均 VAR8賦值:收盤價(jià)的12日簡單移動(dòng)平均 VAR9賦值:收盤價(jià)的26日簡單移動(dòng)平均 VARA賦值:1日前的VAR8 VARB賦值:1日前的VAR9 VARC賦值:(VAR8-VAR9)/VAR8*100 VARD賦值:VAR8-VARA的絕對值/VAR8*100 VARE賦值:1日前的VAR9 VARF賦值:1日前的VARD VAR10賦值:1日前的VAR5 VAR11賦值:1日前的VAR6 VAR12賦值:1日前的收盤價(jià) VAR13賦值:統(tǒng)計(jì)5日中滿足收盤價(jià)>1日前的收盤價(jià)的天數(shù)/5*100 VAR14賦值:(36日內(nèi)最高價(jià)的最高值-收盤價(jià))*VAR1/(36日內(nèi)最高價(jià)的最高值-36日內(nèi)最低價(jià)的最低值)*100*VAR1 VAR15賦值:VAR14的5日[1日權(quán)重]移動(dòng)平均*VAR1 VAR16賦值:(收盤價(jià)-8日內(nèi)最低價(jià)的最低值)/(8日內(nèi)最高價(jià)的最高值-8日內(nèi)最低價(jià)的最低值)*100*VAR1 VAR17賦值:VAR16的2日[1日權(quán)重]移動(dòng)平均*VAR1 VAR18賦值:成交量(手)/當(dāng)前流通股本(手)的30日簡單移動(dòng)平均*成交量(手)的60日簡單移動(dòng)平均/10000+收盤價(jià)的30日簡單移動(dòng)平均*8*VAR1 VAR19賦值:1日前的VAR15 VAR1A賦值:1日前的VAR17 VAR1B賦值:1日前的VAR18 VAR1C賦值:VAR17的5日簡單移動(dòng)平均 VAR1D賦值:VAR17的12日簡單移動(dòng)平均 VAR1E賦值:VAR17的26日簡單移動(dòng)平均 VAR1F賦值:1日前的VAR13 VAR20賦值:(VAR18-VAR1B)/VAR18*100 VAR21賦值:VAR14的5日[1日權(quán)重]移動(dòng)平均 VAR22賦值:1日前的VAR21 VAR23賦值:VAR16的2日[1日權(quán)重]移動(dòng)平均 VAR24賦值:1日前的VAR23 VAR25賦值:如果收陽線,返回1,否則返回0 VAR26賦值:如果VAR5>VAR10,返回1,否則返回0 VAR27賦值:如果VAR6>VAR11,返回1,否則返回0 VAR28賦值:如果VARD>VARF,返回1,否則返回0 VAR29賦值:如果VAR17>VAR1A,返回5,否則返回0 VAR2A賦值:如果VAR19>VAR15,返回5,否則返回0 VAR2B賦值:如果VAR18>VAR1B,返回2,否則返回0 VAR2C賦值:如果VARC>2.25,返回10,否則返回0 VAR2D賦值:如果VAR17>60,返回6,否則返回0 VAR2E賦值:如果VAR17>80,返回8,否則返回0 VAR2F賦值:如果VAR17>VAR15,返回10,否則返回0 VAR30賦值:如果VAR17>VAR15,返回VAR1D-VAR1E,否則返回0 VAR31賦值:如果VAR17>VAR15ANDVAR15<20,返回5,否則返回0 VAR32賦值:如果收盤價(jià)>VAR8ANDVAR8>VAR9,返回5,否則返回0 VAR33賦值:如果VAR8>VAR9,返回5,否則返回0 VAR34賦值:如果VAR9>VARE,返回5,否則返回0 VAR35賦值:如果VAR15<18,返回VAR1C-VAR15,否則返回0 VAR36賦值:如果VAR15>VAR17ANDVAR15>50,返回8,否則返回0 VAR37賦值:(VAR25+VAR26+VAR27+VAR28+VAR29+VAR2A+VAR2B+VAR2C+VAR2D+VAR2E+VAR2F+VAR30+VAR31+VAR32+VAR33+VAR34+VAR35-VAR36)*VAR1 VAR38賦值:1日前的VAR37 VAR39賦值:VAR37的6日簡單移動(dòng)平均 VAR3A賦值:VAR37的12日簡單移動(dòng)平均 VAR3B賦值:VAR37的26日簡單移動(dòng)平均 VAR3C賦值:VAR37的13日簡單移動(dòng)平均 VAR3D賦值:1日前的VAR3A VAR3E賦值:2日前的VAR3A 輸出最佳時(shí)機(jī):如果VAR19>VAR1BANDVAR15<VAR18ANDVAR3A<25ANDVAR17>VAR15,返回最低價(jià),否則返回最低價(jià)-1,POINTDOT,線寬為7 , COLORF00FF0 最低價(jià)-1,POINTDOT,線寬為7 , COLOR000000 輸出追漲:如果VAR18>30ANDVAR17>VAR18ANDVAR3A>30ANDVAR3A<60ANDCROSS(VAR18,VAR15),返回最低價(jià),否則返回最低價(jià)-1,POINTDOT,線寬為7 , COLORF0F000 最低價(jià)-1,POINTDOT,線寬為7 , COLOR000000 輸出等死嗎？:如果VAR3A>60ANDCROSS(VAR3C,VAR3A)ANDVAR17<60ANDVAR15>20,返回最高價(jià),否則返回最高價(jià)+1,POINTDOT,線寬為7 , 畫綠色 最高價(jià)+1,POINTDOT,線寬為7 , COLOR000000 輸出逃命!:如果VAR3A>60ANDVAR3E<VAR3DANDVAR3D>VAR3A,返回最高價(jià),否則返回最高價(jià)+1,POINTDOT,線寬為7 , 畫藍(lán)色 最高價(jià)+1,POINTDOT,線寬為7 , COLOR000000 輸出還要跌:如果VAR18>66ANDCROSS(VAR15,VAR18)ORVAR13=0ANDVAR1F>0ANDVAR17<15ORVAR13=0ANDVAR1F=0ANDVAR1A>15,返回最高價(jià),否則返回最高價(jià)+1,POINTDOT,線寬為7 , COLOR228364 最高價(jià)+1,POINTDOT,線寬為7 , COLOR000000 輸出還要漲1:如果VAR20>0.4ANDVAR18>97ANDVAR17>86ANDVAR15<10,返回最低價(jià),否則返回最低價(jià)-1,POINTDOT,線寬為7 , 畫黃色 最低價(jià)-1,POINTDOT,線寬為7 , COLOR000000 輸出還要漲2:如果VAR20>0.65ANDVAR15<9,返回最低價(jià),否則返回最低價(jià)-1, POINTDOT,線寬為7 , 畫白色 最低價(jià)-1,POINTDOT,線寬為7 , COLOR000000 輸出M5: 收盤價(jià)的5日簡單移動(dòng)平均*VAR1,,畫黃色 輸出M10: 收盤價(jià)的10日簡單移動(dòng)平均*VAR1,,COLOR00FF00 輸出M20: 收盤價(jià)的20日簡單移動(dòng)平均*VAR1,,COLORF0F000 輸出M30: 收盤價(jià)的30日簡單移動(dòng)平均*VAR1,,COLORF00FF0 輸出M60: 收盤價(jià)的60日簡單移動(dòng)平均*VAR1,,畫白色 輸出M125: 收盤價(jià)的125日簡單移動(dòng)平均*VAR1,,畫藍(lán)色 輸出M250: 收盤價(jià)的250日簡單移動(dòng)平均*VAR1, , 畫紅色 CXH賦值:STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1)) 輸出WARNING('HTTP://www.kzuj.com.cn',CURRENTTIME>180000 AND (CXH=1 OR CXH=6)) DRAWTEXTREL(10 ,10 ,'指標(biāo)公式')

?

?來源:程序化99（ www.kzuj.com.cn ）

源碼：

?

?

Var1:=IF(YEAR<=2050,1,0);
Var2:=REF(CLOSE,1);
Var3:=SMA(MAX(CLOSE-Var2,0),6,1)/SMA(ABS(CLOSE-Var2),6,1)*100*Var1;
見頂↓:if(CROSS(84,Var3),HIGH,high+1),pointdot,linethick7 , color00ff00;high+1,pointdot,linethick7 , color000000;
Var4:=SMA(MAX(CLOSE-Var2,0),12,1)/SMA(ABS(CLOSE-Var2),12,1)*100*Var1;
見底↑:if(CROSS(Var4,20),LOW,low-1),pointdot,linethick7 , colorred;low-1,pointdot,linethick7 , color000000;
Var5:=MA(CLOSE,5);
Var6:=MA(CLOSE,10);
Var7:=MA(CLOSE,30);
Var8:=MA(CLOSE,12);
Var9:=MA(CLOSE,26);
VarA:=REF(Var8,1);
VarB:=REF(Var9,1);
VarC:=(Var8-Var9)/Var8*100;
VarD:=ABS(Var8-VarA)/Var8*100;
VarE:=REF(Var9,1);
VarF:=REF(VarD,1);
Var10:=REF(Var5,1);
Var11:=REF(Var6,1);
Var12:=REF(CLOSE,1);
Var13:=COUNT(CLOSE>REF(CLOSE,1),5)/5*100;
Var14:=(HHV(HIGH,36)-CLOSE)*Var1/(HHV(HIGH,36)-LLV(LOW,36))*100*Var1;
Var15:=SMA(Var14,5,1)*Var1;
Var16:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100*Var1;
Var17:=SMA(Var16,2,1)*Var1;
Var18:=MA(VOL/CAPITAL,30)*MA(VOL,60)/10000+MA(CLOSE,30)*8*Var1;
Var19:=REF(Var15,1);
Var1A:=REF(Var17,1);
Var1B:=REF(Var18,1);
Var1C:=MA(Var17,5);
Var1D:=MA(Var17,12);
Var1E:=MA(Var17,26);
Var1F:=REF(Var13,1);
Var20:=(Var18-Var1B)/Var18*100;
Var21:=SMA(Var14,5,1);
Var22:=REF(Var21,1);
Var23:=SMA(Var16,2,1);
Var24:=REF(Var23,1);
Var25:=IF(CLOSE>OPEN,1,0);
Var26:=IF(Var5>Var10,1,0);
Var27:=IF(Var6>Var11,1,0);
Var28:=IF(VarD>VarF,1,0);
Var29:=IF(Var17>Var1A,5,0);
Var2A:=IF(Var19>Var15,5,0);
Var2B:=IF(Var18>Var1B,2,0);
Var2C:=IF(VarC>2.25,10,0);
Var2D:=IF(Var17>60,6,0);
Var2E:=IF(Var17>80,8,0);
Var2F:=IF(Var17>Var15,10,0);
Var30:=IF(Var17>Var15,Var1D-Var1E,0);
Var31:=IF(Var17>Var15 AND Var15<20,5,0);
Var32:=IF(CLOSE>Var8 AND Var8>Var9,5,0);
Var33:=IF(Var8>Var9,5,0);
Var34:=IF(Var9>VarE,5,0);
Var35:=IF(Var15<18,Var1C-Var15,0);
Var36:=IF(Var15>Var17 AND Var15>50,8,0);
Var37:=(Var25+Var26+Var27+Var28+Var29+Var2A+Var2B+Var2C+Var2D+Var2E+Var2F+Var30+Var31+Var32+Var33+Var34+Var35-Var36)*Var1;
Var38:=REF(Var37,1);
Var39:=MA(Var37,6);
Var3A:=MA(Var37,12);
Var3B:=MA(Var37,26);
Var3C:=MA(Var37,13);
Var3D:=REF(Var3A,1);
Var3E:=REF(Var3A,2);
最佳時(shí)機(jī):if(Var19>Var1B AND Var15<Var18 AND Var3A<25 AND Var17>Var15,low,low-1),pointdot,linethick7 , colorf00ff0;low-1,pointdot,linethick7 , color000000;
追漲:if(Var18>30 AND Var17>Var18 AND Var3A>30 AND Var3A<60 AND CROSS(Var18,Var15),low,low-1),pointdot,linethick7 , colorf0f000;low-1,pointdot,linethick7 , color000000;
等死嗎？:if(Var3A>60 AND CROSS(Var3C,Var3A) AND Var17<60 AND Var15>20,high,high+1),pointdot,linethick7 , colorgreen;high+1,pointdot,linethick7 , color000000;
逃命!:if(Var3A>60 AND Var3E<Var3D AND Var3D>Var3A,high,high+1),pointdot,linethick7 , colorblue;high+1,pointdot,linethick7 , color000000;
還要跌:if(Var18>66 AND CROSS(Var15,Var18) OR Var13=0 AND Var1F>0 AND Var17<15 OR Var13=0 AND Var1F=0 AND Var1A>15,high,high+1),pointdot,linethick7 , color228364;high+1,pointdot,linethick7 , color000000;
還要漲1:if(Var20>0.4 AND Var18>97 AND Var17>86 AND Var15<10,low,low-1),pointdot,linethick7 , coloryellow;low-1,pointdot,linethick7 , color000000;
還要漲2:if(Var20>0.65 AND Var15<9,low,low-1), pointdot,linethick7 , colorwhite;low-1,pointdot,linethick7 , color000000;
M5: MA(CLOSE,5)*Var1,,coloryellow;
M10: MA(CLOSE,10)*Var1,,color00ff00;
M20: MA(CLOSE,20)*Var1,,colorf0f000;
M30: MA(CLOSE,30)*Var1,,colorf00ff0;
M60: MA(CLOSE,60)*Var1,,colorwhite;
M125: MA(CLOSE,125)*Var1,,colorblue;
M250: MA(CLOSE,250)*Var1, , colorred;CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標(biāo)公式');

?

?

公式導(dǎo)入教程: 【通達(dá)信公式源碼導(dǎo)入方法教程】 【同花順公式源碼導(dǎo)入方法教程】 【大智慧新一代公式源碼導(dǎo)入方法教程】

?