老的指标新的思路(通达信)

源码正文：

VAR1:=IF(OPEN<=REF(OPEN,1),0,maX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR2:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR3:=SUM(VAR1,5){XG51};
VAR4:=SUM(VAR2,5){XG51};
VAR5:=IF(VAR3>VAR4,(VAR3-VAR4)/VAR3,IF(VAR3=VAR4,0,(VAR3-VAR4)/VAR4)){XG51};
VAR6:=MA(VAR5,5){XG51};
VAR8:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR9:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VARA:=SUM(VAR8,3){XG51};
VARB:=SUM(VAR9,3){XG51};
VARC:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VARD:=MA(VARC,3){XG51};
火: BArslAst(ema(CLOSE,5)<REF(EMA(CLOSE,5),1)), COLORWHITE{XG51};
VARE:=HHV(CLOSE,2){XG51};
VARF:=BARSLAST(VARE<REF(VARE,2)){XG51};
VAR10:=IF(VARF>=1,LLV(VARE,VARF),LOW){XG51};
VAR11:=VAR10+VAR10*VARF*0.5/100{XG51};
VAR12:=IF(VAR11<REF(VAR11,1),MA(LOW,3),VAR11){XG51};
VAR13:=VAR10+VAR10*(VARF-1)*1.618/100{XG51};
山: COUNT(EMA(CLOSE,5)>REF(EMA(CLOSE,5),1),5){XG51};
VAR14:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR15:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR16:=SUM(VAR8,3){XG51};
VAR17:=SUM(VAR9,3){XG51};
VAR18:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR19:=MA(VARC,3){XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
买入或持股: STICKLINE(山>0,火,0,2,0), COLORWHITE{XG51};
VAR1A:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR1B:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR1C:=SUM(VAR8,3){XG51};
VAR1D:=SUM(VAR9,3){XG51};
VAR1E:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR1F:=MA(VARC,3){XG51};
下跌→抛出: STICKLINE(山>0,火,山,2,1), COLORF0F000{XG51};
VAR20:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR21:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR22:=SUM(VAR8,3){XG51};
VAR23:=SUM(VAR9,3){XG51};
VAR24:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR25:=MA(VARC,3){XG51};
观望: STICKLINE(山=0 AND 火=0,0,1,4,1), COLORYELLOW{XG51};
VAR26:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR27:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR28:=SUM(VAR8,3){XG51};
VAR29:=SUM(VAR9,3){XG51};
VAR2A:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR2B:=MA(VARC,3){XG51};
植被: STICKLINE(山<火,火,山,1,0), COLOR00FF00{XG51};
VAR2C:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR2D:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR2E:=SUM(VAR8,3){XG51};
VAR2F:=SUM(VAR9,3){XG51};
VAR30:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR31:=MA(VARC,3){XG51};
VAR32:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*10{XG51};
VAR33:=IF(OPEN<=REF(OPEN,1),0,MAX(HIGH-OPEN,OPEN-REF(OPEN,1))){XG51};
VAR34:=IF(OPEN>=REF(OPEN,1),0,MAX(OPEN-LOW,OPEN-REF(OPEN,1))){XG51};
VAR35:=SUM(VAR8,3){XG51};
VAR36:=SUM(VAR9,3){XG51};
VAR37:=IF(VARA>VARB,(VARA-VARB)/VARA,IF(VARA=VARB,0,(VARA-VARB)/VARB)){XG51};
VAR38:=MA(VARC,3){XG51};
STICKLINE(REF(山,1)=0 AND 山>0,0,-1,2,0), COLORWHITE{XG51};
DRAWTEXT(REF(火,3)>0 AND REF(火,2)>0 AND REF(火,1)>0 AND 火=0 AND REF(火,1)>山,REF(火,1),'调整'),COLORBLUE , {X!G=5~1!C!N!{};

源码正文：

LC:=REF(CLOSE,1){XG51};
E:=-100*(HHV(HIGH,84)-CLOSE)/(HHV(HIGH,84)-LLV(LOW,84)){XG51};
顶:crOSS(-1,E)*7000,colorgreen{XG51};
DRAWTEXT(CROSS(0,E) , 6500,' 顶 ')colorgreen{XG51};
Varb:=SMA(maX(CLOSE-LC,0),7,1)/SMA(Abs(CLOSE-LC),7,1)*100{XG51};
Varc:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100{XG51};
Vard:=BARSCOUNT(CLOSE){XG51};
底:( E<-98)*2000,COLORwhite{XG51};
DRAWTEXT(CROSS(1000,底) , 2100,' 底 ')colorgreen{XG51};
Var1:=(HHV(HIGH,n)-CLOSE)/(HHV(HIGH,n)-LLV(LOW,n))*1000-700{XG51};
Var2:=SMA(Var1,n,1)+100{XG51};
Var3:=(CLOSE-LLV(LOW,n))/(HHV(HIGH,n)-LLV(LOW,n))*10000{XG51};
Var4:=SMA(Var3,3,1){XG51};
Var5:=SMA(Var4,3,1)+100{XG51};
Var6:=Var5-Var2{XG51};
S:= IF(Var6>100,Var6-100,0){XG51};
stICKLINE(REF(S,1)<S,S,REF(S,1),8,1)colorred{XG51};
STICKLINE(REF(S,1)>S,S,REF(S,1),8,1)COLORBLUE{XG51};
a:=if((c-ref(c,1))/ref(c,1)>0.98,ref(c,1),L){XG51};
b:=if((c-ref(c,1))/ref(c,1)<-0.98,ref(c,1),H){XG51};
天时:cross((CLOSE-REF(CLOSE,12))/REF(CLOSE,12),0){XG51};
地利:cross((((HIGH + LOW + CLOSE)/3)-MA(((HIGH + LOW + CLOSE)/3),12))
/(0.015*AVEDEV(((HIGH + LOW + CLOSE)/3),12)),0)*-1{XG51};
人和:ema(CLOSE,12) - EMA(CLOSE,26){XG51};
VAR100:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))){XG51};
VAR200:=(100 - ((90 * (HHV(HIGH,20) - CLOSE)) / (HHV(HIGH,20) - LLV(LOW,20)))){XG51};
VAR300:=(100 - MA(((100 * (HHV(HIGH,5) - CLOSE)) / (HHV(HIGH,5) - LLV(LOW,5))),34)){XG51};
F:DRAWTEXT(CROSS(VAR200,MA(VAR300,5)),LOW*0.98,'利多'),,,COLOREE00EE{XG51};
洗盘:DRAWTEXT(cross(A,0),-0.3,'异动'),colorgreen{X_G-5_1_C_N_{};