如何自行撰寫寶塔線指標

大家好：

在XQ的系統中有看到寶塔線指標，但是由於是內建的指標，沒有XS程式碼可以觀看

小弟在這邊試著撰寫了一下寶塔線指標，分享給大家做參考：

input:TWR(3);
variable:HH(0),LL(0);

HH = highest(close,TWR+1)[1];
LL = lowest(close,TWR+1)[1]; 


if close > HH then 
begin
value1 = 1;
end
else if close <　LL then 
begin
value1 = -1;
end;

value100 =absvalue(close -  GetField("RefPrice"))/GetField("RefPrice")*100;



if value1[1]=-1 and value1 = 1
then begin
plot1(value100,"翻紅");
end
else if value1[1]=1 and value1 = 1
then begin
plot2(value100,"續紅");
end

else if value1[1]=1 and value1 = -1
then begin
plot3(-value100,"翻黑");
end
else if value1[1]=-1 and value1 = -1
then begin
plot4(-value100,"續黑"); 
end; 

以上僅提供大家參考