大智慧新红色恋人主图指标
源码
{473、新红色恋人 }
Var1:=EMA(CLOSE,8);
Var2:=EMA(CLOSE,20);
STICKLINE(Var1>Var2,Var2,Var1,8,0);
STICKLINE(Var1
分水岭: EMA(Var2,20);
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);
CYC34: IF(DATE<1500501,DMA(VarF,VOL/Var12),0);
{CYC}无穷: IF(DATE<1500501,DMA(VarF,VOL/CAPITAL),0);
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);
STICKLINE(Var2D,Var31,MAX(Var2F,Var30),0,1);
STICKLINE(Var2D,MIN(Var2F,Var30),Var32,0,1);
蓝色妖姬: STICKLINE(Var2E,Var2F,Var30,8,0);
STICKLINE(Var2E,Var31,MAX(Var2F,Var30),0,1);
STICKLINE(Var2E,MIN(Var2F,Var30),Var32,0,1);
DRAWTEXT(Var2C,HIGH,'逃顶');
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,'密上');
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;
DRAWTEXT(Var4A,LOW,'抄底');
