股道力度－精品通达信指标公式源码分享

N1:=6;N2:=2;N3:=3;

 STICKLINE(18,100,0.1,999,0)COLORYELLOW;

 STICKLINE(18,-100,-0.9,999,0)COLORYELLOW;

 STICKLINE(18,79.5,80.5,9,0)COLORRED;

 STICKLINE(18,89.5,90.5,9,0)COLORRED;

 STICKLINE(18,49.5,50.5,2,0)COLOR205AA7;

 Q1:=(HHV(H,21)-C)/(HHV(H,21)-LLV(L,21))*100;

 Q2:=(C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100;

 Q3:=Q2-Q1;

扩张力:=IF((SMA((SMA((CLOSE-LLV(LOW,9))/(

 HHV(HIGH,9)-LLV(LOW,9))*100,3,1)),3,1)-

 SMA(((HHV(HIGH,9)-CLOSE)/(HHV(

 HIGH,9)-LLV(LOW,9))*100-70),9,1))>100,(

 SMA((SMA((CLOSE-LLV(LOW,9))/(

 HHV(HIGH,9)-LLV(LOW,9))*100,3,1)),3,1)-

 SMA(((HHV(HIGH,9)-CLOSE)/(HHV(

 HIGH,9)-LLV(LOW,9))*100-70),9,1))-100,0)*2,

 STICK,COLOR7388C1,LINETHICK2;

 STICKLINE(扩张力<REF(扩张力,1)AND 扩张力>0,0,扩张力,0,0)COLORFF2818;

 STICKLINE(扩张力>REF(扩张力,1)AND 扩张力>0,0,扩张力,0,0)COLORRED;

 STICKLINE(扩张力<REF(扩张力,1)AND 扩张力>0,0,-扩张力,0,0)COLORFF2818;

 STICKLINE(扩张力>REF(扩张力,1)AND 扩张力>0,0,-扩张力,0,0)COLORRED;

地心引力:=SMA(MAX(C-(REF(C,1)),0),7,1)/SMA(ABS(C-(REF(C,1))),7,1)*100,COLOR0066FF;

 STICKLINE( CROSS(地心引力,80),-93,-98,1,1)COLOR00FF00;

 STICKLINE( CROSS(80,地心引力),-93,-98,1,1)COLORMAGENTA;

弱市黑洞:STICKLINE(HHV(MA(Q3,5),5)>44

 AND (C=HHV(C,10) OR H=HHV(H,10)),93,98,1,1)COLORBLACK,COLORD19275;

正股道:3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-

 LLV(LOW,27))*100,5,1)-2*SMA

 (SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-

 LLV(LOW,27))*100,5,1),3,1)COLORBLACK,LINETHICK1;

负股道:-(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-

LLV(LOW,27))*100,5,1)-2*SMA

 (SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-

 LLV(LOW,27))*100,5,1),3,1))COLORBLACK,LINETHICK1;

 RSV:=(((CLOSE - LLV(LOW,N1)) / (HHV(HIGH,N1) - LLV(LOW,N1))) * 100);

 K:=(POW(SMA(RSV,N2,1),5) / POW(10,8));

 D:=(POW(SMA(RSV,N3,1),5) / POW(10,10));

正短波:((K+ D) / 2)COLOR7388C1,LINETHICK1;

负短波:-((K+ D) / 2)COLOR7388C1,LINETHICK1;