 |
tycoon868
資深會員

註冊日期: Oct 2008
來 自:
文章數量: 313 |
再次請教 DATA 不足 之 補救方式
版主您好:
我有一個個股評分模式如下:
M1:=WMA(C,15),linethick2,colorgreen,precision2;
M2:=WMA(C,30),linethick0,colorff00ff,precision2;
MT:=WMA(C,90),linethick0,coloryellow,precision2;
M3:=WMA(C,120),linethick0,colorcc3399,precision2;
M4:=WMA(C,240),linethick0,colorred,precision2;
M5:=WMA(C,480),linethick0,color000099,precision2;
BULLWMA:=(C>M1)*0.5+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1+(C>M5)*0.5;
BEARWMA:=(C<M1)*-0.5+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1+(C<M5)*-0.5;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
如何插入一段 公式 來滿足以下條件 :
1. 掛牌上市超過 480天者 === 就用以上的評分模式
2. 掛牌上市介於241~480天者 ==== 改用以下
BULLWMA:=(C>M1)*1+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1;
BEARWMA:=(C<M1)*-1+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
3. 掛牌上市介於121~240天者 ==== 改用以下
BULLWMA:=(C>M1)*1+(C>M2)*2+(C>MT)*2+(C>M3)*2;
BEARWMA:=(C<M1)*-1+(C<M2)*-2+(C<MT)*-2+(C<M3)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
4. 掛牌上市介於91~120天者 ==== 改用以下
BULLWMA:=(C>M1)*2+(C>M2)*3+(C>MT)*2;
BEARWMA:=(C<M1)*-2+(C<M2)*-3+(C<MT)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
5. 掛牌上市介於31~90天者 ==== 改用以下
BULLWMA:=(C>M1)*3+(C>M2)*4;
BEARWMA:=(C<M1)*-3+(C<M2)*-4;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
可能有點煩瑣
真是麻煩您了
感謝您
|
最後由 tycoon868 在 2010-07-13 00:22 編輯 |
向版主報告此篇 |  |
|
2010-07-12 23:49 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
回覆: 再次請教 DATA 不足 之 補救方式
引用: 最初由 tycoon868 發表
版主您好:
我有一個個股評分模式如下:
M1:=WMA(C,15),linethick2,colorgreen,precision2;
M2:=WMA(C,30),linethick0,colorff00ff,precision2;
MT:=WMA(C,90),linethick0,coloryellow,precision2;
M3:=WMA(C,120),linethick0,colorcc3399,precision2;
M4:=WMA(C,240),linethick0,colorred,precision2;
M5:=WMA(C,480),linethick0,color000099,precision2;
BULLWMA:=(C>M1)*0.5+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1+(C>M5)*0.5;
BEARWMA:=(C<M1)*-0.5+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1+(C<M5)*-0.5;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
如何插入一段 公式 來滿足以下條件 :
1. 掛牌上市超過 480天者 === 就用以上的評分模式
2. 掛牌上市介於241~480天者 ==== 改用以下
BULLWMA:=(C>M1)*1+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1;
BEARWMA:=(C<M1)*-1+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
3. 掛牌上市介於121~240天者 ==== 改用以下
BULLWMA:=(C>M1)*1+(C>M2)*2+(C>MT)*2+(C>M3)*2;
BEARWMA:=(C<M1)*-1+(C<M2)*-2+(C<MT)*-2+(C<M3)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
4. 掛牌上市介於91~120天者 ==== 改用以下
BULLWMA:=(C>M1)*2+(C>M2)*3+(C>MT)*2;
BEARWMA:=(C<M1)*-2+(C<M2)*-3+(C<MT)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
5. 掛牌上市介於31~90天者 ==== 改用以下
BULLWMA:=(C>M1)*3+(C>M2)*4;
BEARWMA:=(C<M1)*-3+(C<M2)*-4;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
可能有點煩瑣
真是麻煩您了
感謝您
原碼:
M1:=WMA(C,15),linethick2,colorgreen,precision2;
M2:=WMA(C,30),linethick0,colorff00ff,precision2;
MT:=WMA(C,90),linethick0,coloryellow,precision2;
M3:=WMA(C,120),linethick0,colorcc3399,precision2;
M4:=WMA(C,240),linethick0,colorred,precision2;
M5:=WMA(C,480),linethick0,color000099,precision2;
WS:0;
//掛牌上市介於241~480天者
if datacount>240 then begin
BULLWMA:=(C>M1)*1+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1;
BEARWMA:=(C<M1)*-1+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
//掛牌上市介於121~240天者
end else if datacount>120 then begin
BULLWMA:=(C>M1)*1+(C>M2)*2+(C>MT)*2+(C>M3)*2;
BEARWMA:=(C<M1)*-1+(C<M2)*-2+(C<MT)*-2+(C<M3)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end else if datacount>90 then begin
//掛牌上市介於91~120天者
BULLWMA:=(C>M1)*2+(C>M2)*3+(C>MT)*2;
BEARWMA:=(C<M1)*-2+(C<M2)*-3+(C<MT)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end else if datacount>30 then begin
//掛牌上市介於31~90天者
BULLWMA:=(C>M1)*3+(C>M2)*4;
BEARWMA:=(C<M1)*-3+(C<M2)*-4;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end;
跟據前面給的條件, 小於31天者的狀況並無處理到唷
|
|
向版主報告此篇 |  |
|
2010-07-13 09:27 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
引用: 最初由 tycoon868 發表
感謝版主:
謝謝您提醒
請您明示:
小於31天時
explaintext 新上市股 不適用本評分系統
再次感謝
原碼:
WS:0;
ErrOut:=datacount<=30;
DRAWTEXTEX(ErrOut,1,500,250,'新上市股不適用本評分系統') ALIGN0 COLORMAGENTA;
if ErrOut then exit;
M1:=WMA(C,15),linethick2,colorgreen,precision2;
M2:=WMA(C,30),linethick0,colorff00ff,precision2;
MT:=WMA(C,90),linethick0,coloryellow,precision2;
M3:=WMA(C,120),linethick0,colorcc3399,precision2;
M4:=WMA(C,240),linethick0,colorred,precision2;
M5:=WMA(C,480),linethick0,color000099,precision2;
//掛牌上市介於241~480天者
if datacount>240 then begin
BULLWMA:=(C>M1)*1+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1;
BEARWMA:=(C<M1)*-1+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
//掛牌上市介於121~240天者
end else if datacount>120 then begin
BULLWMA:=(C>M1)*1+(C>M2)*2+(C>MT)*2+(C>M3)*2;
BEARWMA:=(C<M1)*-1+(C<M2)*-2+(C<MT)*-2+(C<M3)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end else if datacount>90 then begin
//掛牌上市介於91~120天者
BULLWMA:=(C>M1)*2+(C>M2)*3+(C>MT)*2;
BEARWMA:=(C<M1)*-2+(C<M2)*-3+(C<MT)*-2;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end else if datacount>30 then begin
//掛牌上市介於31~90天者
BULLWMA:=(C>M1)*3+(C>M2)*4;
BEARWMA:=(C<M1)*-3+(C<M2)*-4;
WS:=BULLWMA+BEARWMA; // 最高得分為7分
end;
|
|
向版主報告此篇 |  |
|
2010-07-13 12:13 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18094 |
引用: 最初由 tycoon868 發表
回覆版主:
請 板主給我公式
讓我測試 我的 新電腦是否跑的動
如果跑不動 我就作罷
拜託您了
我這一個評分系統還有延伸性的用法
我必須要保有完整的評分
當然 當下的數據是最重要的
如果即時的負荷太重
那是否可以請教您如何
******即時 vs 盤後 各跑各的公式(自動判斷)******
謝謝您
嘻...想到個好方法處理它, 不需用迴圈
跑起來應該不慢
原碼:
WS:0;
ErrOut:=datacount<=30;
DRAWTEXTEX(ErrOut,1,500,250,'新上市股不適用本評分系統') ALIGN0 COLORMAGENTA;
if ErrOut then exit;
M1:=WMA(C,15),linethick2,colorgreen,precision2;
M2:=WMA(C,30),linethick0,colorff00ff,precision2;
MT:=WMA(C,90),linethick0,coloryellow,precision2;
M3:=WMA(C,120),linethick0,colorcc3399,precision2;
M4:=WMA(C,240),linethick0,colorred,precision2;
M5:=WMA(C,480),linethick0,color000099,precision2;
BULLWMA_480U:=(C>M1)*0.5+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1+(C>M5)*0.5;
BEARWMA_480U:=(C<M1)*-0.5+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1+(C<M5)*-0.5;
BULLWMA_240U:=(C>M1)*1+(C>M2)*1+(C>MT)*2+(C>M3)*2+(C>M4)*1;
BEARWMA_240U:=(C<M1)*-1+(C<M2)*-1+(C<MT)*-2+(C<M3)*-2+(C<M4)*-1;
BULLWMA_120U:=(C>M1)*1+(C>M2)*2+(C>MT)*2+(C>M3)*2;
BEARWMA_120U:=(C<M1)*-1+(C<M2)*-2+(C<MT)*-2+(C<M3)*-2;
BULLWMA_90U:=(C>M1)*2+(C>M2)*3+(C>MT)*2;
BEARWMA_90U:=(C<M1)*-2+(C<M2)*-3+(C<MT)*-2;
BULLWMA_30U:=(C>M1)*3+(C>M2)*4;
BEARWMA_30U:=(C<M1)*-3+(C<M2)*-4;
BULLWMA:=BULLWMA_30U;
BULLWMA:=if(barpos>90,BULLWMA_90U,BULLWMA);
BULLWMA:=if(barpos>120,BULLWMA_120U,BULLWMA);
BULLWMA:=if(barpos>240,BULLWMA_240U,BULLWMA);
BULLWMA:=if(barpos>480,BULLWMA_480U,BULLWMA);
BEARWMA:=BEARWMA_30U;
BEARWMA:=if(barpos>90,BEARWMA_90U,BEARWMA);
BEARWMA:=if(barpos>120,BEARWMA_120U,BEARWMA);
BEARWMA:=if(barpos>240,BEARWMA_240U,BEARWMA);
BEARWMA:=if(barpos>480,BEARWMA_480U,BEARWMA);
WS:=BULLWMA+BEARWMA;
|
|
向版主報告此篇 |  |
|
2010-07-14 15:21 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|