|
mead
資深會員
註冊日期: Nov 2004
來 自: 台北
文章數量: 409 |
取選擇權履約成交價
請問站大:
在分鐘時段
想取出今天選擇權履約價目前的Call/Put成交價
和 目前履約價上下各一檔目前的Call/Put成交價
該如何用公式表達?
謝謝指導!
感恩
|
|
向版主報告此篇 | |
|
2013-01-07 16:43 |
|
|
| |
|
mead
資深會員
註冊日期: Nov 2004
來 自: 台北
文章數量: 409 |
回覆: 回覆: 取選擇權履約成交價
引用: 最初由 cgjj 發表
那個品種的選擇權要用的?
是期指月選擇權
謝謝
|
|
向版主報告此篇 | |
|
2013-01-08 10:44 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17633 |
回覆: 回覆: 回覆: 取選擇權履約成交價
引用: 最初由 mead 發表
是期指月選擇權
謝謝
期指結算日:=OPTIONLASTDAY('FITX1');
Temp結算日:=期指結算日[datacount];
SYear:=FLOOR(Temp結算日/10000);
SMonth:=FLOOR(MOD(Temp結算日,10000)/100);
MSTR:=STRMID('FGHJKMNQUVXZ',SMonth,1);
標的代碼:='FITX'+MSTR;
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3);
AddStrLC:=YMSTR+'台指C';
AddStrLP:=YMSTR+'台指P';
標的:=DYNAINFO2(7,標的代碼);
履約sp:=if(標的<3000,50, if(標的<10000,100,200));
履約半sp:=履約sp/2;
H履約:=CEILING(標的/履約sp)*履約sp;
H履約半:=CEILING(標的/履約半sp)*履約半sp;
H履約:=if(STKLABELN(AddStrLC+NUMTOSTR(H履約半,0))='',H履約,H履約半);
L履約:=FLOOR(標的/履約sp)*履約sp;
L履約半:=FLOOR(標的/履約半sp)*履約半sp;
L履約:=if(STKLABELN(AddStrLC+NUMTOSTR(L履約半,0))='',L履約,L履約半);
M0履約:=if((標的-L履約)>=(H履約-L履約)/2,H履約,L履約);
履約Set:=M0履約+履約sp;
履約半Set:=M0履約+履約sp/2;
H1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
履約Set:=M0履約-履約sp;
履約半Set:=M0履約-履約sp/2;
L1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
M0履約S:=NUMTOSTR(M0履約,0);
H1履約S:=NUMTOSTR(H1履約,0);
L1履約S:=NUMTOSTR(L1履約,0);
UseSTR:='【台指'+YMSTR+'】\n H1:'+H1履約S+'\n M0:'+M0履約S+'\n L1:'+L1履約S;
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
|
|
向版主報告此篇 | |
|
2013-01-09 10:37 |
|
|
| |
|
mead
資深會員
註冊日期: Nov 2004
來 自: 台北
文章數量: 409 |
謝謝站大回覆;感恩
今天試的結果
顯示:
H1:7800
M0:7750
L1:7700
這履約價是要取哪一個?
他們的call/put得當時成交點位要如何取出?
謝謝指導
感恩
|
|
向版主報告此篇 | |
|
2013-01-09 10:54 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17633 |
若您要 Call/Put 成交價
將
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
改為
M0:DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S));
|
|
向版主報告此篇 | |
|
2013-01-09 11:09 |
|
|
| |
|
mead
資深會員
註冊日期: Nov 2004
來 自: 台北
文章數量: 409 |
謝謝站大的即時回覆!
感恩
本來是要call和put的個別成交價
但自己試了自取 可以了
就不麻煩站大了
再次謝謝站大熱心協助
感恩
|
|
向版主報告此篇 | |
|
2013-01-09 11:51 |
|
|
| |
|
jery3308
資深會員
註冊日期: Jun 2005
來 自:
文章數量: 178 |
回覆: 回覆: 回覆: 回覆: 取選擇權履約成交價
引用: 最初由 cgjj 發表
期指結算日:=OPTIONLASTDAY('FITX1');
Temp結算日:=期指結算日[datacount];
SYear:=FLOOR(Temp結算日/10000);
SMonth:=FLOOR(MOD(Temp結算日,10000)/100);
MSTR:=STRMID('FGHJKMNQUVXZ',SMonth,1);
標的代碼:='FITX'+MSTR;
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3);
AddStrLC:=YMSTR+'台指C';
AddStrLP:=YMSTR+'台指P';
標的:=DYNAINFO2(7,標的代碼);
履約sp:=if(標的<3000,50, if(標的<10000,100,200));
履約半sp:=履約sp/2;
H履約:=CEILING(標的/履約sp)*履約sp;
H履約半:=CEILING(標的/履約半sp)*履約半sp;
H履約:=if(STKLABELN(AddStrLC+NUMTOSTR(H履約半,0))='',H履約,H履約半);
L履約:=FLOOR(標的/履約sp)*履約sp;
L履約半:=FLOOR(標的/履約半sp)*履約半sp;
L履約:=if(STKLABELN(AddStrLC+NUMTOSTR(L履約半,0))='',L履約,L履約半);
M0履約:=if((標的-L履約)>=(H履約-L履約)/2,H履約,L履約);
履約Set:=M0履約+履約sp;
履約半Set:=M0履約+履約sp/2;
H1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
履約Set:=M0履約-履約sp;
履約半Set:=M0履約-履約sp/2;
L1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
M0履約S:=NUMTOSTR(M0履約,0);
H1履約S:=NUMTOSTR(H1履約,0);
L1履約S:=NUMTOSTR(L1履約,0);
UseSTR:='【台指'+YMSTR+'】\n H1:'+H1履約S+'\n M0:'+M0履約S+'\n L1:'+L1履約S;
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
如何改成週選擇權?
|
|
向版主報告此篇 | |
|
2015-04-08 23:53 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17633 |
回覆: 回覆: 回覆: 回覆: 回覆: 取選擇權履約成交價
引用: 最初由 jery3308 發表
如何改成週選擇權?
原碼: //自動帶入週選權年月
UseDAYS1970:=DAYS1970; UseDAYS1970:=UseDAYS1970[datacount];
EndWeekday:=MOD(UseDAYS1970-3,7);
WOPLD1970:=UseDAYS1970+(EndWeekday>=3)*7+3-EndWeekday; //求本週
WOPLD:=D1970TODATE(WOPLD1970); //週選權結算日
WOPYM:=MOD(WOPLD/100,1000); //所屬年月(非契約月份)
WOPWN:=CEILING(MOD(WOPLD,100)/7); //該月第N週
DRAWTEXTEX(WOPWN=3,1,500,500,'不存在 W3 的週選權') COLORMAGENTA ALIGN0;
if WOPWN=3 then exit;
//求週選權標的年月(為契約年月)
SouYM:=WOPYM+(WOPWN>3)+(MOD(WOPYM,100)=12)*88*(WOPWN>3);
SMonth:=MOD(SouYM,100);
標的代碼:='FITX'+STRMID('FGHJKMNQUVXZ',SMonth,1);
標的:=DYNAINFO2(7,標的代碼);
YMWSTR:=STRRIGHT('00'+NUMTOSTR(WOPYM,0),3)+'W'+NUMTOSTR(WOPWN,0);
AddStrLC:=YMWSTR+'台指C';
AddStrLP:=YMWSTR+'台指P';
履約sp:=if(標的<3000,50, if(標的<10000,100,200));
履約半sp:=履約sp/2;
H履約:=CEILING(標的/履約sp)*履約sp;
H履約半:=CEILING(標的/履約半sp)*履約半sp;
H履約:=if(STKLABELN(AddStrLC+NUMTOSTR(H履約半,0))='',H履約,H履約半);
L履約:=FLOOR(標的/履約sp)*履約sp;
L履約半:=FLOOR(標的/履約半sp)*履約半sp;
L履約:=if(STKLABELN(AddStrLC+NUMTOSTR(L履約半,0))='',L履約,L履約半);
M0履約:=if((標的-L履約)>=(H履約-L履約)/2,H履約,L履約);
履約Set:=M0履約+履約sp;
履約半Set:=M0履約+履約sp/2;
H1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
履約Set:=M0履約-履約sp;
履約半Set:=M0履約-履約sp/2;
L1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
M0履約S:=NUMTOSTR(M0履約,0);
H1履約S:=NUMTOSTR(H1履約,0);
L1履約S:=NUMTOSTR(L1履約,0);
UseSTR:='【台指'+YMWSTR+'】\n H1:'+H1履約S+'\n M0:'+M0履約S+'\n L1:'+L1履約S;
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
|
|
向版主報告此篇 | |
|
2015-04-09 13:55 |
|
|
| |
|
jery3308
資深會員
註冊日期: Jun 2005
來 自:
文章數量: 178 |
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 取選擇權履約成交價
引用: 最初由 cgjj 發表
原碼: //自動帶入週選權年月
UseDAYS1970:=DAYS1970; UseDAYS1970:=UseDAYS1970[datacount];
EndWeekday:=MOD(UseDAYS1970-3,7);
WOPLD1970:=UseDAYS1970+(EndWeekday>=3)*7+3-EndWeekday; //求本週
WOPLD:=D1970TODATE(WOPLD1970); //週選權結算日
WOPYM:=MOD(WOPLD/100,1000); //所屬年月(非契約月份)
WOPWN:=CEILING(MOD(WOPLD,100)/7); //該月第N週
DRAWTEXTEX(WOPWN=3,1,500,500,'不存在 W3 的週選權') COLORMAGENTA ALIGN0;
if WOPWN=3 then exit;
//求週選權標的年月(為契約年月)
SouYM:=WOPYM+(WOPWN>3)+(MOD(WOPYM,100)=12)*88*(WOPWN>3);
SMonth:=MOD(SouYM,100);
標的代碼:='FITX'+STRMID('FGHJKMNQUVXZ',SMonth,1);
標的:=DYNAINFO2(7,標的代碼);
YMWSTR:=STRRIGHT('00'+NUMTOSTR(WOPYM,0),3)+'W'+NUMTOSTR(WOPWN,0);
AddStrLC:=YMWSTR+'台指C';
AddStrLP:=YMWSTR+'台指P';
履約sp:=if(標的<3000,50, if(標的<10000,100,200));
履約半sp:=履約sp/2;
H履約:=CEILING(標的/履約sp)*履約sp;
H履約半:=CEILING(標的/履約半sp)*履約半sp;
H履約:=if(STKLABELN(AddStrLC+NUMTOSTR(H履約半,0))='',H履約,H履約半);
L履約:=FLOOR(標的/履約sp)*履約sp;
L履約半:=FLOOR(標的/履約半sp)*履約半sp;
L履約:=if(STKLABELN(AddStrLC+NUMTOSTR(L履約半,0))='',L履約,L履約半);
M0履約:=if((標的-L履約)>=(H履約-L履約)/2,H履約,L履約);
履約Set:=M0履約+履約sp;
履約半Set:=M0履約+履約sp/2;
H1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
履約Set:=M0履約-履約sp;
履約半Set:=M0履約-履約sp/2;
L1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
M0履約S:=NUMTOSTR(M0履約,0);
H1履約S:=NUMTOSTR(H1履約,0);
L1履約S:=NUMTOSTR(L1履約,0);
UseSTR:='【台指'+YMWSTR+'】\n H1:'+H1履約S+'\n M0:'+M0履約S+'\n L1:'+L1履約S;
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
謝謝版主大大
如果在周選擇權 要自動引用價內二檔買權與賣權價 如何讓程式自動顯示點位對應的價位在附圖上?
|
|
向版主報告此篇 | |
|
2015-04-10 11:04 |
|
|
| |
|
jery3308
資深會員
註冊日期: Jun 2005
來 自:
文章數量: 178 |
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 取選擇權履約成交價
引用: 最初由 cgjj 發表
原碼: //自動帶入週選權年月
UseDAYS1970:=DAYS1970; UseDAYS1970:=UseDAYS1970[datacount];
EndWeekday:=MOD(UseDAYS1970-3,7);
WOPLD1970:=UseDAYS1970+(EndWeekday>=3)*7+3-EndWeekday; //求本週
WOPLD:=D1970TODATE(WOPLD1970); //週選權結算日
WOPYM:=MOD(WOPLD/100,1000); //所屬年月(非契約月份)
WOPWN:=CEILING(MOD(WOPLD,100)/7); //該月第N週
DRAWTEXTEX(WOPWN=3,1,500,500,'不存在 W3 的週選權') COLORMAGENTA ALIGN0;
if WOPWN=3 then exit;
//求週選權標的年月(為契約年月)
SouYM:=WOPYM+(WOPWN>3)+(MOD(WOPYM,100)=12)*88*(WOPWN>3);
SMonth:=MOD(SouYM,100);
標的代碼:='FITX'+STRMID('FGHJKMNQUVXZ',SMonth,1);
標的:=DYNAINFO2(7,標的代碼);
YMWSTR:=STRRIGHT('00'+NUMTOSTR(WOPYM,0),3)+'W'+NUMTOSTR(WOPWN,0);
AddStrLC:=YMWSTR+'台指C';
AddStrLP:=YMWSTR+'台指P';
履約sp:=if(標的<3000,50, if(標的<10000,100,200));
履約半sp:=履約sp/2;
H履約:=CEILING(標的/履約sp)*履約sp;
H履約半:=CEILING(標的/履約半sp)*履約半sp;
H履約:=if(STKLABELN(AddStrLC+NUMTOSTR(H履約半,0))='',H履約,H履約半);
L履約:=FLOOR(標的/履約sp)*履約sp;
L履約半:=FLOOR(標的/履約半sp)*履約半sp;
L履約:=if(STKLABELN(AddStrLC+NUMTOSTR(L履約半,0))='',L履約,L履約半);
M0履約:=if((標的-L履約)>=(H履約-L履約)/2,H履約,L履約);
履約Set:=M0履約+履約sp;
履約半Set:=M0履約+履約sp/2;
H1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
履約Set:=M0履約-履約sp;
履約半Set:=M0履約-履約sp/2;
L1履約:=if(STKLABELN(AddStrLC+NUMTOSTR(履約半Set,0))='',履約Set,履約半Set);
M0履約S:=NUMTOSTR(M0履約,0);
H1履約S:=NUMTOSTR(H1履約,0);
L1履約S:=NUMTOSTR(L1履約,0);
UseSTR:='【台指'+YMWSTR+'】\n H1:'+H1履約S+'\n M0:'+M0履約S+'\n L1:'+L1履約S;
DRAWTEXTEX(1,0,0,0,UseSTR) COLORMAGENTA;
M0:DYNAINFO2(7,STKLABELN(AddStrLP+M0履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+M0履約S));
H1:DYNAINFO2(7,STKLABELN(AddStrLP+H1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+H1履約S));
L1:DYNAINFO2(7,STKLABELN(AddStrLP+L1履約S))/DYNAINFO2(7,STKLABELN(AddStrLC+L1履約S));
周選擇權 在周三時會推出下周選擇權的報價 如何在副圖取得買權 與賣權 價外二檔報價?
如何
|
|
向版主報告此篇 | |
|
2015-04-14 07:50 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|