text_new的用法。
text_new([日期], [時間], [價格], [文字內容]);第一個參數:日期。
第二個參數:時間或想成是X軸的位置。
第三個參數:價格或想成是Y軸的位置。
第四個參數:文字內容。
numtostr的用法。
numtostr([數字], [小數位數]);第一個參數:數字。
第二個參數:小數位數。
結合上面兩個函數。
variables:vNo(0), vMP(0), vDis(13); vMP = marketposition; if vMP[1] = -1 and vMP = 0 then vNo = text_new(D, T, l-vDis, numtostr(exitprice(1), 0)) else if vMP[1] = 1 and vMP = 0 then vNo = text_new(D, T, l-vDis, numtostr(exitprice(1), 0)) else if vMP[1] = 0 and vMP = -1 then vNo = text_new(D, T, h+vDis, numtostr(Entryprice, 0)) else if vMP[1] = 0 and vMP = 1 then vNo = text_new(D, T, h+vDis, numtostr(Entryprice, 0));
將程式碼改為精簡一點。
variables:vNo(0), vMP(0), vDis(13); vMP = marketposition; if (vMP[1] = -1 or vMP[1] = 1 ) and vMP = 0 then vNo = text_new(D, T, l-vDis, numtostr(exitprice(1), 0)) else if vMP[1] = 0 and (vMP = -1 or vMP = 1) then vNo = text_new(D, T, h+vDis, numtostr(Entryprice, 0));
換個寫法。
variables:vNo(0), vMP(0), vDis(13); vMP = marketposition; if (vMP[1] = -1 or vMP[1] = 1 ) and vMP = 0 then begin vNo = text_new(D, T, l-vDis, numtostr(exitprice(1), 0)); end else if vMP[1] = 0 and (vMP = -1 or vMP = 1) then begin vNo = text_new(D, T, h+vDis, numtostr(Entryprice, 0)); end;
執行畫面
參考資料