根據(jù)黃金坑做成(轉(zhuǎn))

感謝根據(jù)黃金坑做成的公式作者.
源碼：  [復制到剪貼板]
--------------------------------------------------------------------------------

Varr2:=CLOSE-REF(CLOSE,1);
Varr3:=IF(CLOSE-REF(CLOSE,1)>=0,Varr2,0);
Varr4:=REF(CLOSE,1)-CLOSE;
Varr5:=IF(CLOSE-REF(CLOSE,1)<=0,Varr4,0);
Varr6:=SUM(Varr3,16)/SUM(Varr5,16);
Varr7:=100-100/(1+Varr6);
Varr8:=EMA(Varr7,16);
Varr9:=EMA(Varr8,6);
VarrA:=EMA(Varr8,80);
VarrB:=Varr8-VarrA;
NX:VarrB,COLORWHITE;
NX1:VarrB,COLORSTICK;
JX: (Varr9-VarrA),COLORYELLOW;
STICKLINE(JX>=0,(JX-JX*0.05),(JX-JX*0.15),3,0),COLOR0000CC;
STICKLINE(JX>=0,(JX-JX*0.2),(JX-JX*0.35),3,0),COLOR0066FF;
STICKLINE(JX>=0,(JX-JX*0.4),(JX-JX*0.55),3,0),COLOR0099FF;
STICKLINE(JX>=0,(JX-JX*0.6),(JX-JX*0.75),3,0),COLOR00CCFF;
STICKLINE(JX>=0,(JX-JX*0.8),(JX-JX*0.95),3,0),COLOR00FFFF;
STICKLINE(JX<0,(JX-JX*0.05),(JX-JX*0.15),3,0),COLORFF3300;
STICKLINE(JX<0,(JX-JX*0.2),(JX-JX*0.35),3,0),COLORFF6600;
STICKLINE(JX<0,(JX-JX*0.4),(JX-JX*0.55),3,0),COLORFF9900;
STICKLINE(JX<0,(JX-JX*0.6),(JX-JX*0.75),3,0),COLORFFCC00;
STICKLINE(JX<0,(JX-JX*0.8),(JX-JX*0.95),3,0),COLORffff00;

Vara1:=REF(CLOSE,1);
Vara2:=SMA(MAX(CLOSE-Vara1,0),6,1)/SMA(ABS(CLOSE-Vara1),6,1)*100;
Vara3:=EMA(CLOSE,5)/EMA(EMA(CLOSE,9),16);
Vara4:=1/WINNER(CLOSE);
Vara5:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100;
Vara6:=100-ABS(Vara5);
Vara7:=(CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100;
Vara8:=SMA(Vara7,20,1);
Vara9:=SMA(Vara8,15,1);
VaraA:=100-3*Vara8+2*Vara9;
VaraB:=((EMA(IF(VaraA>REF(VaraA,1),VaraA,VaraA-3),3)-50)*(-1)*2/2+50)/10;
VaraC:=EMA(AMOUNT,13)/EMA(VOL,13);
VaraD:=(VaraC/REF(VaraC,1)-1)*100;
VaraE:=VOL/CAPITAL*100;
VaraF:=(HIGH-LOW)/((HIGH+LOW)/2)*100;
Vara10:=1.02*(VaraB+VaraF)*2*VaraF*VaraD;
Vara11:=VOL/CAPITAL;
Vara12:=VOL/700000000;
Vara13:=IF(Vara11=0,Vara12,Vara11);
Vara14:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
Vara15:=2.5*MAX(Vara13,Vara14);
Vara16:=DMA(CLOSE,Vara15);
Vara17:=SMA(20*(Vara16/REF(Vara16,1)-1),2,1);
Vara18:=EMA(Vara17,2);
Vara19:=0.17;
Vara1A:=CLOSE>=REF(CLOSE,1);
Vara1B:=VOL/CAPITAL;
Vara1C:=VOL/700000000;
Vara1D:=IF(Vara1B=0,Vara1C,Vara1B);
Vara1E:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);
Vara1F:=2.5*MAX(Vara1D,Vara1E);
Vara20:=DMA(CLOSE,Vara1F);
Vara21:=SMA(20*(Vara20/REF(Vara20,1)-1),2,1);
Vara22:=EMA(Vara21,2);
買一: IF(Vara10>180 AND Vara10<200,18,0),stick ,linethick3,colorred;
Vara23:=(VaraB+3*VaraF)*VaraF*VaraD;
買二: IF(Vara23>180 AND Vara23<200,18,0),stick ,linethick3,colorred;
Vara24:=0.98*(3*VaraB+VaraF)*VaraF*VaraD;
賣一: IF(Vara24>180 AND Vara23<200,15,0),stick ,linethick3,colorblue ;
出: IF(Vara3>1.15 AND Vara3<REF(Vara3,1),18,0),colorFF9900,linethick2;
賣二:IF(Vara3>1.1 AND Vara3<1.15 AND Vara3<REF(Vara3,1),18,0),colorgreen,linethick1;
STICKLINE(Vara22>=0.003,-0.05,0.05,1,0),linethick1,colorred;
STICKLINE(BETWEEN(Vara22,0.003,-0.003),-0.05,0.05,1,0),linethick1,colorwhite ;
STICKLINE(Vara22<=-0.003,-0.05,0.05,1,0),linethick1,colorgreen;
Vara31:=HHV(HIGH,24);
Vara32:=LLV(LOW,7);
Vara33:=EMA((CLOSE-Vara32)/(Vara31-Vara32)*100,5);
Vara34:=EMA((CLOSE-Vara32)/(Vara31-Vara32)*100,10);
頂:IF(CROSS(Vara34,Vara33) AND Vara33>55,17,0),colorFF9933,linethick2;
DRAWTEXT(頂,12,'頂'),COLORFF9933;

Varr23:=MA(CLOSE,80)-MA(CLOSE,13)/2;
Varr24:=MA((CLOSE-Varr23)/Varr23,2);
Varr28:=EMA(Varr24,12)*0.7;
Varr29:=EMA(Varr24,1);
底將成:IF(LLV(Varr29-Varr28,1)>0,0,-10),color4499FF,linethick2;

Varf1:=VOL/CAPITAL*100;
Varf2:=LLVBARS(LOW, 50);
Varf3:=HHVBARS(HIGH,50);
Varf4:=SUM(VOL, Varf3);
Varf5:=(CLOSE-REF(OPEN, Varf3))/REF(OPEN, Varf3)*100;
Varf6:=Varf4/CAPITAL*100;
Varf7:=(CLOSE-REF(OPEN, Varf2))/REF(OPEN, Varf2)*100;
Varf8:=MA(CLOSE, 3);
Varf9:=REF(CLOSE, 13)*0.772;
Varf10:=MIN(Varf8, Varf9);
Varf11:=MA(CLOSE, 13);
CD:IF((CLOSE-Varf10)/CLOSE<0.030 AND Varf5<(-35) AND SUM(Varf1, 5)/5<1.8,1,0)*20,colorred,linethick2;
DRAWTEXT(CD,16,'CD'),colorred;


操盤線:=MA(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),5)*1;
主力異動: IF(操盤線<=6,15,0),colorwhite ;
北斗星出擊: IF(CROSS(操盤線,6),18,0),colorred ;
北斗星買點: 北斗星出擊,colorred,linethick2 ;
DRAWTEXT(北斗星出擊,8,'北斗星'),colorred;

Var1:=MA(WINNER(CLOSE),9)*100;
買！: CROSS(Var1,2)*15,COLOR0000FF ,LINETHICK2;
Var2:=(1-EMA((HHV(HIGH,15)-CLOSE)/(HHV(HIGH,15)-LLV(LOW,15)),15))*100;
Var3:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
Var4:=SMA(Var3,9,1);
Var5:=SMA(Var4,9,1);
Var6:=(CLOSE-SMA(CLOSE,13,1))/SMA(CLOSE,13,1)*(-100);
Var7:=REF(Var6,1)>13 AND REF(Var6,1)/Var6>1.23 AND CLOSE/REF(CLOSE,1)>1.03;
春筍: IF(Var7 AND REF(CLOSE,1)<=COST(5),20,0),colormagenta,LINETHICK3;
Var8:=MA(CLOSE,27);
Var9:=(CLOSE-Var8)/Var8*100;
VarA:=MA(Var9,2);
VarB:=BARSLAST(CROSS(-10,VarA)=1);
VarC:=BARSLAST(CROSS(VarA,10)=1);
VarD:=VarA<-10 AND VarB>3;
VarE:=VarA>10 AND VarC>3;
黃金坑: IF(VarD,VarA,0),LINESTICK ,LINETHICK3, COLORYELLOW;
財神到: IF(VarE,VarA,0),LINESTICK,LINETHICK3 , COLORGREEN;
貪嘴樂: IF(VarA>REF(VarA,1) AND VarD AND VarA<-15,18,0),LINETHICK2,LINESTICK,COLORFFA2AF;
DRAWICON(貪嘴樂>0,18,1);
VarF:=REF(LOW,1)*0.9;
Var10:=LOW*0.9;
Var11:=(Var10*VOL+VarF*(CAPITAL-VOL))/CAPITAL;
Var12:=EMA(Var11,30);
Var13:=CLOSE-REF(CLOSE,1);
Var14:=MAX(Var13,0);
Var15:=ABS(Var13);
Var16:=SMA(Var14,7,1)/SMA(Var15,7,1)*100;
Var17:=SMA(Var14,13,1)/SMA(Var15,13,1)*100;
Var18:=BARSCOUNT(CLOSE);
Var19:=SMA(MAX(Var13,0),6,1)/SMA(ABS(Var13),6,1)*100;
Var1A:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
Var1B:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
Var1C:=SMA((SMA(Var1B,4,1)-50)*2,3,1);
Var1D:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
Var1E:=SMA(Var1D,4,1);
Var1F:=SMA(Var1E,3,1);
Var20:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
Var21:=Var19<=25 AND Var1A<-95 AND Var20>20 AND Var1C<-30 AND Var1F<30 AND Var12-CLOSE>=-0.25 AND Var16<22 AND Var17<28 AND Var18>50;