{紫葉地玄芝 n,1,100,6}
A:=BARSCOUNT(C);
N1:=IF(A>5,5,A);
N2:=IF(A>15,15,A);
N3:=IF(A>30,30,A);
N4:=IF(A>60,60,A);
N5:=IF(A>120,120,A);
V1:=SUM(AMOUNT,N1);
V2:=SUM(AMOUNT,N2);
V3:=SUM(AMOUNT,N3);
V4:=SUM(AMOUNT,N4);
V5:=SUM(AMOUNT,N5);
Var1:=SMA((HHV(HIGH,24)-CLOSE)/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1);
Var2:=SMA((CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*100,5,1);
多頭: Var1,COLORFB8EF0,LINETHICK2;
空頭: Var2,COLOR4E8EF0,LINETHICK2;
生死線: 50, POINTDOT;
Var3:=(2*CLOSE+HIGH+LOW)/4;
Var4:=LLV(LOW,34);
Var5:=HHV(HIGH,34);
Var6:=EMA((Var3-Var4)/(Var5-Var4)*100,9);
Var7:=EMA((Var3-Var4)/(Var5-Var4)*100,31);
DRAWTEXT(CROSS(Var6,20) AND Var6>21,多頭,'●買進');
DRAWTEXT(CROSS(Var6,80) AND Var6>75,多頭,'●賣出');
Var8:=(2*CLOSE+HIGH+LOW)/4;
Var9:=LLV(LOW,34);
Var10:=HHV(HIGH,34);
波: EMA((Var8-Var9)/(Var10-Var9)*100, 13) ,linethick0;
段: EMA(0.667*REF(波,1)+0.333*波,4) , linethick0;
STICKLINE(CROSS(波,段) AND 波<20,0,20,5,0),colorred ,linethick2 ;
STICKLINE(CROSS(段,波) AND 段>60,100,80,5,0),colorblue, linethick2;
DRAWTEXT(CROSS(波,段) AND 波<20,35,'抄底'),colorblue,linethick2;
DRAWTEXT(CROSS(段,波) AND 段>60,65,'逃頂'),colorblue, linethick2;