關於鱷魚線

您好：

鱷魚線定義 該連結網頁為，內建主圖的鱷魚線指標定義，

由於，XS腳本內沒有提供該鱷魚線的腳本程式碼，因此小編按照定義，嘗試寫出鱷魚線指標，

請您參考，對照後應該一致，謝謝。

variable:Jaws_Initial(0), Lips_Initial(0), Teeth_Initial(0), Jaws(0), Lips(0), Teeth(0); 


value1 = (high + low)/2;    //  中值


//  初始值顎、齒、唇第一筆
if  currentbar = 1 then
begin
    Jaws_Initial = value1;
    Teeth_Initial= value1;
    Lips_Initial = value1;
end;

//  顎初始值 第2筆 至 第13筆 的計算
if  currentbar > 1 and currentbar <= 13 then
begin
    Jaws_Initial = Jaws_Initial[1] + (value1 - Jaws_Initial[1]) / 13;
end;

//  齒初始值 第2筆 至 第8筆 的計算
if  currentbar > 1 and currentbar <= 8 then
begin
    Teeth_Initial = Teeth_Initial[1] + (value1 - Teeth_Initial[1]) / 8;
end;

//  唇初始值 第2筆 至 第5筆 的計算
if  currentbar > 1 and currentbar <= 5 then
begin
    Lips_Initial = Lips_Initial[1] + (value1 - Lips_Initial[1]) / 5;
end;



//  顎第一筆 取8天前的EMPt值作為當天的顎線值
if  currentbar = 21 then Jaws = Jaws_Initial;

//  齒第一筆 取5天前的EMPt值作為當天的齒線值
if  currentbar = 13 then Teeth = Teeth_Initial;

//  唇第一筆 取3天前的EMPt值作為當天的齒線值
if  currentbar = 8 then Lips = Lips_Initial;



//  顎
if  currentbar > 21 then Jaws = Jaws[1] + (value1[8] - Jaws[1]) / 13;

//  齒
if  currentbar > 13 then Teeth = Teeth[1] + (value1[5] - Teeth[1]) / 8;

//  唇
if  currentbar > 8 then Lips = Lips[1] + (value1[3] - Lips[1]) / 5;


plot1(Jaws);
plot2(Teeth);
plot3(Lips);