  | 
	
	
	
	steven 
	資深會員 
	
	註冊日期: Mar 2004 
	來  自:  
	文章數量: 270  | 
	
	
		
	    | 
			 
			 引用: 最初由 cgjj 發表 
範例: 
取得8500 Call 的價 
 
母公式 
Call商品代碼:=STKLABELN('706台指C8500'); 
STKINDI(Call商品代碼,'子公式.CC',0,-1) 
 
子公式 
CC:C; 
 
要帶入不同的履約價, 置換8500 即可 
 
麻煩一下 
不同問題, 請另發表新主題詢問 
謝謝! 
    
 
cgjj大您好 
我想引用某履約價的OI,能否幫忙寫個公式,能設下列的參數,加密也沒關係, 非常謝謝! 
1.選用類別(0.Call 1.Put) 
2.標的種類(0.台指 1.電指......) 
3.標的年月 
4履約價 
			
			    
	     |  
	    
	       | 
	  	  向版主報告此篇 |   | 
	     
	     
	 | 
 
	 
	2010-04-01 10:59 | 
	
	
		
	 | 
 
 
 |   
 |   |   
  | 
	
	
	
	cgjj 
	總版主 
	 
	註冊日期: Oct 2003 
	來  自:  
	文章數量: 18211  | 
	
	
		
	    | 
			 
			 引用: 最初由 steven 發表 
cgjj大您好 
我想引用某履約價的OI,能否幫忙寫個公式,能設下列的參數,加密也沒關係, 非常謝謝! 
1.選用類別(0.Call 1.Put) 
2.標的種類(0.台指 1.電指......) 
3.標的年月 
4履約價 
    
 
//本範例僅適用於 v5.0 版, 不適用於測試中的新版(v5.1 Beta版) 
//本範例僅適用於 台指,電指,金指,台摩,傳產,櫃買 選擇權 
 
UMODE:=0; //選用類別(0.Call 1.Put) 
UTYPE:=0; //標的種類(0.台指 1.電指 2.金指 3.台摩 4.傳產 5.櫃買) 
UYM:=201004;   //標的年月(如:200601,輸入零則自動帶入,200601可只輸入601) 
履約價:=8000; //履約價 
 
標的種類:=STRMID('TXTETFMSXIGT',UTYPE*2+1,2); 
標的類名:=STRMID('台指電指金指台摩傳產櫃買',UTYPE*4+1,4); 
 
期指結算日:=OPTIONLASTDAY('FITX1'); 
Temp結算日:=期指結算日[datacount]; 
SYear:=MOD(IF(UYM=0,FLOOR(Temp結算日/10000),FLOOR(UYM/100)),10); 
SMonth:=IF(UYM=0,FLOOR(MOD(Temp結算日,10000)/100),MOD(UYM,100)); 
 
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3); 
AddStrL:=YMSTR+標的類名+STRMID('CP',UMODE+1,1); 
 
//商品名稱有針對電指,台摩,櫃買特別處理(若將來期權商品名稱有變動需修正) 
IsExType:= UTYPE=1 or UTYPE=3 or UTYPE=5; 
商品名稱:=AddStrL+NUMTOSTR(if(IsExType,履約價*10,履約價),0); 
商品代碼:=STKLABELN(商品名稱); 
ErrF:=STKNAMEEX(商品代碼)=''; 
 
OI:-1; //若值為 -1 代表履約商品不存在 
DRAWTEXTEX(ErrF,1,500,500,'履約商品不存在 ['+商品名稱+']') COLORMAGENTA ALIGN0 PXDN15; 
if ErrF then exit; 
OI:=STKINDI(商品代碼,'OI.未平倉量',0,6); 
			
			    
	     |  
	    
	       | 
	  	  向版主報告此篇 |   | 
	     
	     
	 | 
 
	 
	2010-04-01 18:07 | 
	
	
		
	 | 
 
 
 |   
 |   |   
  | 
	
	
	
	steven 
	資深會員 
	
	註冊日期: Mar 2004 
	來  自:  
	文章數量: 270  | 
	
	
		
	    | 
			 
			 cgjj大大 
真的衷心感謝您幫忙, 真的超高興的,終於解決我的困擾,真的是方便不少, 有機會上台北再好好當面謝謝您了! 
			
			    
	     |  
	    
	       | 
	  	  向版主報告此篇 |   | 
	     
	     
	 | 
 
	 
	2010-04-01 19:17 | 
	
	
		
	 | 
 
 
 |   
 |   |   
  | 
	
	
	
	steven 
	資深會員 
	
	註冊日期: Mar 2004 
	來  自:  
	文章數量: 270  | 
	
	
		
	    | 
			 
			 cgjj版大您好 
能否麻煩您能改成適用於v5.1 Beta版,感謝您的幫忙。 
引用: 最初由 cgjj 發表 
//本範例僅適用於 v5.0 版, 不適用於測試中的新版(v5.1 Beta版) 
//本範例僅適用於 台指,電指,金指,台摩,傳產,櫃買 選擇權 
 
UMODE:=0; //選用類別(0.Call 1.Put) 
UTYPE:=0; //標的種類(0.台指 1.電指 2.金指 3.台摩 4.傳產 5.櫃買) 
UYM:=201004;   //標的年月(如:200601,輸入零則自動帶入,200601可只輸入601) 
履約價:=8000; //履約價 
 
標的種類:=STRMID('TXTETFMSXIGT',UTYPE*2+1,2); 
標的類名:=STRMID('台指電指金指台摩傳產櫃買',UTYPE*4+1,4); 
 
期指結算日:=OPTIONLASTDAY('FITX1'); 
Temp結算日:=期指結算日[datacount]; 
SYear:=MOD(IF(UYM=0,FLOOR(Temp結算日/10000),FLOOR(UYM/100)),10); 
SMonth:=IF(UYM=0,FLOOR(MOD(Temp結算日,10000)/100),MOD(UYM,100)); 
 
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3); 
AddStrL:=YMSTR+標的類名+STRMID('CP',UMODE+1,1); 
 
//商品名稱有針對電指,台摩,櫃買特別處理(若將來期權商品名稱有變動需修正) 
IsExType:= UTYPE=1 or UTYPE=3 or UTYPE=5; 
商品名稱:=AddStrL+NUMTOSTR(if(IsExType,履約價*10,履約價),0); 
商品代碼:=STKLABELN(商品名稱); 
ErrF:=STKNAMEEX(商品代碼)=''; 
 
OI:-1; //若值為 -1 代表履約商品不存在 
DRAWTEXTEX(ErrF,1,500,500,'履約商品不存在 ['+商品名稱+']') COLORMAGENTA ALIGN0 PXDN15; 
if ErrF then exit; 
OI:=STKINDI(商品代碼,'OI.未平倉量',0,6); 
   
			
			    
	     |  
	    
	       | 
	  	  向版主報告此篇 |   | 
	     
	     
	 | 
 
	 
	2011-05-01 10:26 | 
	
	
		
	 | 
 
 
 |   
 |   |   
  | 
	
	
	
	cgjj 
	總版主 
	 
	註冊日期: Oct 2003 
	來  自:  
	文章數量: 18211  | 
	
	
		
	    | 
			 
			 引用: 最初由 steven 發表 
cgjj版大您好 
能否麻煩您能改成適用於v5.1 Beta版,感謝您的幫忙。 
    
 
//本範例僅適用於測試中的新版(v5.1 Beta版),  不適用於 v5.0 版 
//本範例僅適用於 台指,電指,金指,台摩,傳產,櫃買 選擇權 
 
UMODE:=0; //選用類別(0.Call 1.Put) 
UTYPE:=0; //標的種類(0.台指 1.電指 2.金指 3.台摩 4.傳產 5.櫃買) 
UYM:=201105; //標的年月(如:200601,輸入零則自動帶入,200601可只輸入601) 
履約價:=9000; //履約價 
 
標的種類:=STRMID('TXTETFMSXIGT',UTYPE*2+1,2); 
標的類名:=STRMID('台指電指金指台摩傳產櫃買',UTYPE*4+1,4); 
 
//標的年月:若為零自動帶入,例如 200601 可只輸入601 
期指結算日:=OPTIONLASTDAY('FITX1'); 
Temp結算日:=期指結算日[datacount]; 
SYear:=MOD(IF(UYM=0,FLOOR(Temp結算日/10000),FLOOR(UYM/100)),10); 
SMonth:=IF(UYM=0,FLOOR(MOD(Temp結算日,10000)/100),MOD(UYM,100)); 
 
YMSTR:=STRRIGHT('00'+NUMTOSTR(SYear*100+SMonth,0),3); 
AddStrL:=YMSTR+標的類名+STRMID('CP',UMODE+1,1); 
 
//商品小數位 
PNType:=UTYPE=1 or UTYPE=3 or UTYPE=5; //這些為1位數, 其餘為零 
商品名稱:=AddStrL+NUMTOSTR(履約價,if(FRACPART(履約價)=0,0,PNType)); 
商品代碼:=STKLABELN(商品名稱); 
ErrF:=STKNAMEEX(商品代碼)=''; 
 
OI:-1; //若值為 -1 代表履約商品不存在 
DRAWTEXTEX(ErrF,1,500,500,'履約商品不存在 ['+商品名稱+']') COLORMAGENTA ALIGN0 PXDN15; 
if ErrF then exit; 
OI:=STKINDI(商品代碼,'OI.未平倉量',0,6); 
 
======================================================== 
v5.1 Beta版尚未正式發行, 為避免困擾 
有關 v5.1 Beta版之公式寫作問題, 將暫不提供技術支援 
			
			    
	     |  
	    
	       | 
	  	  向版主報告此篇 |   | 
	     
	     
	 | 
 
	 
	2011-05-03 12:09 | 
	
	
		
	 | 
 
 
 |   
 |   |   
    
	
 
 
  
 本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。 
 
 | 
 
 
 Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.   聯絡我們
 
 |