奇狐社區論壇 - 條件成立則執行A,否則執行B

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 條件成立則執行A,否則執行B

上一主題下一主題

作者

主題

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1498

條件成立則執行A,否則執行B

A:
XC:=(O+H+L+C*3)/6,LINETHICK;
XO:=O,LINETHICK;
CC:=C;
for i=2 to datacount do begin
XO[i]:=(XO[i-1]+CC[i-1])/2;
end;

B:
CK:=DATE<>REF(DATE,1);
XC:=(O+H+L+C*3)/6,LINETHICK;
XO:=O,LINETHICK;
CC:=C;
for i=2 to datacount do begin
if CK[i]=0 then XO[i]:=(XO[i-1]+CC[i-1])/2;
end;

以上A,B為指標中之一部份.
請問總版主:
如果條件成立則執行A,否則執行B要如何處理?感恩!

向版主報告此篇 |

2012-11-16 15:12

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18106

回覆: 條件成立則執行A,否則執行B

引用:
最初由 Markchu7 發表
A:
XC:=(O+H+L+C*3)/6,LINETHICK;
XO:=O,LINETHICK;
CC:=C;
for i=2 to datacount do begin
XO[i]:=(XO[i-1]+CC[i-1])/2;
end;

B:
CK:=DATE<>REF(DATE,1);
XC:=(O+H+L+C*3)/6,LINETHICK;
XO:=O,LINETHICK;
CC:=C;
for i=2 to datacount do begin
if CK[i]=0 then XO[i]:=(XO[i-1]+CC[i-1])/2;
end;

以上A,B為指標中之一部份.
請問總版主:
如果條件成立則執行A,否則執行B要如何處理?感恩!

您的條件是否會隨K棒而改變成立狀態
還是, 自K棒頭到尾都是一個狀態呢?

向版主報告此篇 |

2012-11-16 18:10

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1498

不會!條件很簡單,今天開盤與昨天收盤出現跳空50點(台當月)以上的差距就採用當日開盤起算的方法否則就採用連續日的算法!
請指導!感恩!

向版主報告此篇 |

2012-11-16 18:16

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18106

引用:
最初由 Markchu7 發表
不會!條件很簡單,今天開盤與昨天收盤出現跳空50點(台當月)以上的差距就採用當日開盤起算的方法否則就採用連續日的算法!
請指導!感恩!

如此會隨K棒變
且 A 的算法有跨日取 XO

故兩者都要算, 再依據條件取用誰的結果

例如:
SS:if(條件,A的結果,B的結果);

向版主報告此篇 |

2012-11-16 18:38

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1498

經整合如下,請指導是否正確?
CK:=DATE<>REF(DATE,1);
跳空條件:=REF(ABS(C-O)>50,BARSLAST(CK));
XC:=(O+H+L+C*3)/6,LINETHICK;
CC:=C;

AXO:=O,LINETHICK;
for i=2 to datacount do begin
AXO[i]:=A(XO[i-1]+CC[i-1])/2;
end;

BXO:=O,LINETHICK;
for i=2 to datacount do begin
if CK[i]=0 then BXO[i]:=B(XO[i-1]+CC[i-1])/2;
end;
XO:=IF(跳空條件,BXO,AXO);

向版主報告此篇 |

2012-11-16 22:45

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18106

引用:
最初由 Markchu7 發表
經整合如下,請指導是否正確?
CK:=DATE<>REF(DATE,1);
跳空條件:=REF(ABS(C-O)>50,BARSLAST(CK));
XC:=(O+H+L+C*3)/6,LINETHICK;
CC:=C;

AXO:=O,LINETHICK;
for i=2 to datacount do begin
AXO[i]:=A(XO[i-1]+CC[i-1])/2;
end;

BXO:=O,LINETHICK;
for i=2 to datacount do begin
if CK[i]=0 then BXO[i]:=B(XO[i-1]+CC[i-1])/2;
end;
XO:=IF(跳空條件,BXO,AXO);

簡化如下:

原碼:


跳空CK:=DATE<>REF(DATE,1) and ABS(C-O)>50;

XC:=(O+H+L+C*3)/6,LINETHICK;

CC:=C;

XO:O; 

for i=2 to datacount do begin

  if 跳空CK[i]=0 then begin

    XO[i]:=(XO[i-1]+CC[i-1])/2;

  end;

end;

注意:
XC:=(O+H+L+C*3)/6,LINETHICK;
這行是多餘的, 看您之後算的東西並未將其帶入
是否留存您自己決定

向版主報告此篇 |

2012-11-19 12:08

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1498

感謝總版主指導!XC是後面公式要用到的,感謝提醒!謝謝!

向版主報告此篇 |

2012-11-19 13:10

Markchu7
資深會員

註冊日期: Nov 2007
來　　自:
文章數量: 1498

跳空CK:=DATE<>REF(DATE,1) and ABS(C-O)>50;
XC:=(O+H+L+C*3)/6,LINETHICK;
CC:=C;
XO:O;
for i=2 to datacount do begin
if 跳空CK[i]=0 then begin
XO[i]:=(XO[i-1]+CC[i-1])/2;
end;
end;
將條件更改為以下會有錯誤訊息!
跳空CK:=DATATYPE>5;
請總版主指導解惑!感謝!

向版主報告此篇 |

2013-03-14 16:04

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18106

引用:
最初由 Markchu7 發表
跳空CK:=DATE<>REF(DATE,1) and ABS(C-O)>50;
XC:=(O+H+L+C*3)/6,LINETHICK;
CC:=C;
XO:O;
for i=2 to datacount do begin
if 跳空CK[i]=0 then begin
XO[i]:=(XO[i-1]+CC[i-1])/2;
end;
end;
將條件更改為以下會有錯誤訊息!
跳空CK:=DATATYPE>5;
請總版主指導解惑!感謝!