cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17618 |
回覆: 回覆: 回覆: 請教版大 如何寫台指近及次月最大未平倉量 買賣各一指標線
引用: 最初由 james-hch 發表
是的
這是計算當月選權的範例
若要改為計算次月,請將這行
期指結算日:=OPTIONLASTDAY('FITX1');
改為
期指結算日:=OPTIONLASTDAY('FITX2');
原碼: 標的類名:='台指';
板塊名稱:=標的類名+'選權';
期指結算日:=OPTIONLASTDAY('FITX1');
Temp結算日:=期指結算日[datacount];
SYear:=MOD(FLOOR(Temp結算日/10000),10);
SMonth:=FLOOR(MOD(Temp結算日,10000)/100);
CallMaxOI:0 LINEDOT COLOR3333FF;
PutMaxOI:0 LINEDOT COLOR00FF00;
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3);
CmpName:=YMSTR+標的類名;
CmpNameLen:=STRLEN(CmpName);
履約價數:=0;
for i= 1 to STKCOUNT(板塊名稱) do begin
UseStkName:=STKNAMEEX(STKFROMBLK(板塊名稱,i));
if CmpName = STRLEFT(UseStkName,CmpNameLen) then begin
OI:=STKINDI(STKLABELN(UseStkName),'PUT/CALL未平倉總_子公式.OI',0,-1);
OI:=if(barpos>lbound(OI) and lbound(OI)>0,OI,0);
if STRMID(UseStkName,CmpNameLen+1,1)='C' then CallMaxOI:=MAX(CallMaxOI,OI);
if STRMID(UseStkName,CmpNameLen+1,1)='P' then PutMaxOI:=MAX(PutMaxOI,OI);
履約價數:=履約價數+1;
end;
end;
履約價數:=履約價數/2;
CallMaxOI:=CallMaxOI*(BARSSINCE(CallMaxOI>0)>=0);
PutMaxOI:=PutMaxOI*(BARSSINCE(PutMaxOI>0)>=0);
UseSTR:='【'+標的類名+YMSTR+'】\n 共'+NUMTOSTR(履約價數,0)+'個價';
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
|
|
向版主報告此篇 | |
|