飞狐稳操胜券副图指标
源码
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 CLOSE<-11;Var1F:=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 Var240,linethick2 , colorred; {双龙戏珠 主图}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; 解盘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((MA5
EXPLAIN((MA30>MA60 and MA30>MA120 and MA60>MA120), '解：中期均线排列：多头');
EXPLAIN((MA30
EXPLAIN((MA60>MA120 and MA120>MA250 and MA60>MA250),'解：长期均线排列：多头');
EXPLAIN((MA60
EXPLAIN((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 MA30
EXPLAIN((MA30
EXPLAIN((MA5>REF(MA5,1)*1.015),'解：5日均线：强劲向上');
EXPLAIN((MA5>REF(MA5,1) AND MA5
EXPLAIN((MA5
DIFF:=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 MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的绿柱：增长');EXPLAIN((MACD<0 AND ABS(MACD)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)=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((EM5EM60 and EM30>EM120 and EM60>EM120),'解：中期均线排列：多头');EXPLAIN((EM30EM120 and EM120>EM250 and EM60>EM250),'解：长期均线排列：多头');EXPLAIN((EM60REF(EM30,1)),'解：30日均线趋势：向上');EXPLAIN((EM30>REF(EM30,1) AND EM30REF(EM5,1)*1.015),'解：5日均线：强劲向上');EXPLAIN((EM5>REF(EM5,1) AND EM50),'解：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 MACD<0 AND ABS(MACD)>REF(ABS(MACD),1)),'解：MACD的绿柱：增长');EXPLAIN((MACD<0 AND ABS(MACD)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今日死叉');
