奇狐社區論壇 - [求教]IF的重複循環

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [求教]IF的重複循環 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=11067)

由 Ruchael 在 2009-02-17 01:00 發表:

[求教]IF的重複循環

才接觸寫語法沒多久, 有點笨別介意
碰到一個問題, 我知道IF..then不能用數列去表達
所以不知道怎麼辦, 麻煩大大幫個忙了...

PP、CM都是數列
QQ:= IF(CLOSE<五日成本,PP-(CLOSE*VOL/2.1),PP+CM);
VAR5:=IF(CLOSE<五日成本,QQ-(CLOSE*VOL/2.1),QQ+CM);
VAR6:=IF(CLOSE<五日成本,VAR5-(CLOSE*VOL/2.1),VAR5+CM);
.
.
.
一直循環下去.......有勞了

由 cgjj 在 2009-02-17 09:36 發表:

回覆: [求教]IF的重複循環

引用:
最初由 Ruchael 發表
才接觸寫語法沒多久, 有點笨別介意
碰到一個問題, 我知道IF..then不能用數列去表達
所以不知道怎麼辦, 麻煩大大幫個忙了...

PP、CM都是數列
QQ:= IF(CLOSE<五日成本,PP-(CLOSE*VOL/2.1),PP+CM);
VAR5:=IF(CLOSE<五日成本,QQ-(CLOSE*VOL/2.1),QQ+CM);
VAR6:=IF(CLOSE<五日成本,VAR5-(CLOSE*VOL/2.1),VAR5+CM);
.
.
一直循環下去.......有勞了

範例:
請自行帶入QQ 的初始值

原碼:


CC:=CLOSE; VV:VOL;

QQ:=C*0+初始值;

SS:=MAX( lbound(五日成本), lbound(CM) ) //迴圈起點

for i=SS to datacount do begin

  if CC[i]<五日成本[i] then begin

    QQ[i]:=QQ[i-1]-(CC[i]*VV[i]/2.1);

  end else begin

    QQ[i]:=QQ[i-1]+CM[i];

  end;

end;

由 Ruchael 在 2009-02-17 13:40 發表:

感恩感恩...大大真是太厲害了
輸出結果..絲毫不差

全部時間均為台灣時間, 現在時間為03:37

在這個頁面顯示本主題全部的 3 個文章