通达信圣灵石之股海神灯主图指标公式源码

　　通达信圣灵石之股海神灯主图指标公式源码

　　圣灵石:EMA(C,3);

　　圣灵石仙:EMA(C,7);

　　圣:=IF((EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40)-EMA(EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40),5))*100<-20,-20,IF((EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40)-EMA(EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40),5))*100>100,100,(EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40)-EMA(EMA((C*2+H+L)/4,1)-EMA((C*2+H+L)/4,40),5))*100));

　　灵:=IF((3*(HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20-2*SMA((HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20,3,1))*1>100,100,IF((3*(HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20-2*SMA((HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20,3,1))*1<-5,-5,(3*(HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20-2*SMA((HHV(HIGH,5)-CLOSE)/(HHV(HIGH,5)-LLV(LOW,5))*20,3,1))*1));

　　石:=IF((HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13))*120>100,100,(HHV(HIGH,13)-CLOSE)/(HHV(HIGH,13)-LLV(LOW,13))*120);

　　股海神灯:=crOSS(圣,灵) AND CROSS(80,石);

　　DRAWTEXT(股海神灯,LOW *0.98,'股海神灯' ),COLORYELLOW;

　　STICKLINE(股海神灯,H,L,6,0),LINETHICK1,COLORRED;

　　STICKLINE(股海神灯,H,L,0.2,0),COLORYELLOW;

　　STICKLINE(股海神灯,O,C,2,0),LINETHICK1,COLORYELLOW;

　　DRAWICON(股海神灯,(H+L)/2,7);