龙听期货论坛 » 量化策略·公式·源码库 » [转载]主图大智慧指标

龙听 发表于 2018-10-19 11:50

[转载]主图大智慧指标

[code]
Var1:=(CLOSE*2+HIGH+LOW)/4;
Var2:=EMA(Var1,13)-EMA(Var1,34);
Var3:=EMA(Var2,5);
强弱分界: 0,coloryellow,linethick2;
主力: 2*(Var2-Var3)*30,colorred,LINESTICK;
STICKLINE(主力<0,主力,0,4,0),colorwhite;
IF(主力<=0,主力,0),colorwhite;
IF(主力>=0,主力,0),colorred;
{买卖雷达}
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
卖点:CROSS(82.31,RSI1)*-8,COLOR00FF00;
DRAWTEXT(CROSS(83.6,RSI1),-4,'小头部'),COLORffcc66,ALIGN2;
顶:CROSS(92,RSI1)*-8,colorblue;
DRAWTEXT(CROSS(92,RSI1),-4,'顶'),COLORffcc66,ALIGN2;
Varb:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
Vard:=BARSCOUNT(CLOSE);
底部雷达:(VARB< 20 AND VARC< 25 AND VARD> 50)*3,stick,linethick1,Color000088;
黄色:=SMA(L,21,2)*0.95;
绿色:=SMA(C,2,1);
买点雷达:CROSS(绿色,黄色)*8,colorred;
DRAWTEXT(CROSS(绿色,黄色),8,'买'),color00aaff,ALIGN2;

{资金进出}
VarF:=100-3*SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
Var19:=100-3*SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,65))/(HHV(HIGH,80)-LLV(LOW,65))*100,20,1),15,1);
Var20:=VarF<REF(Var19,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);
DRAWTEXT(Var20 AND COUNT(Var20,26)=1,-5,'资金进场'),linethick1,COLORff00ff,ALIGN2;
Var2:=EMA(Var1,13)-EMA(Var1,34);
Var3:=EMA(Var2,5);
Var5:=EMA(Var2,5);
Var6:=EMA(3*Var5-2*SMA(Var5,18,1),5);
Var7:=EMA(Var2,5);
Var8:=EMA(Var2,5);
Var9:=EMA(Var8,13)-EMA(Var8,34);
VarA:=EMA(Var9,3);
VarE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;
Var10:=(HIGH+LOW+CLOSE)/3;
Var11:=(Var10-MA(Var10,14))/(0.015*AVEDEV(Var10,14));
Var12:=(Var10-MA(Var10,70))/(0.015*AVEDEV(Var10,70));
Var13:=IF(Var11>=150 AND Var11<200 AND Var12>=150 AND Var12<200,10,0);
Var14:=IF(Var11<=-150 AND Var11>-200 AND Var12<=-150 AND Var12>-200,-10,Var13);
Var15:=(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100;
Var16:=100-ABS(Var15);
Var17:=IF(Var16<90,Var16,100);
Var1A:=IF(VarE>0,VarE,0);
Var1B:=IF(Var12>=200 AND Var11>=150,15,IF(Var12<=-200 AND Var11<=-150,-15,Var14))+60;
Var1C:=Var1A>48 AND Var1B>60 AND Var17<100;
DRAWTEXT(Var1C AND COUNT(Var1C,30)=1,6,'当心'),linethick1,color00aaff,ALIGN2;
[/code]
[attach]4609[/attach]

查看完整版本: [转载]主图大智慧指标