奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請教寫法 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=5848)

請教寫法

A. 原稿
IF( ( (HI>=LO5 OR HI>=LO6) AND (LO<=HI5 OR LO<=HI6) ) OR
( (HI2>=CL7 OR HI2>=CL8) AND (LO2<=CL7 OR LO2<=CL8) ) )
THEN
VALUE = HI - HI2 + LO - LO2
ABSVALUE = ABS(HI - HI2) + ABS(LO - LO2)
ELSE VALUE = ABSVALUE = 0
TD_REI = SUM(VALUE, N) / SUM(ABSVALUE, N)

where N is the the TD_REI Period


寫成:
B:

IF ( (HI>=ref(L,5) OR HI>=ref(L,6)) AND (LO<=ref(H,5 ) OR LO<=ref(H,6)) ) OR
( (ref(H,2)>=ref(C,7 ) OR ref(H,2)>=ref(C,8)) AND (ref(L,2)<=ref(C,7) OR ref(L,2)<=ref(C,8)) )
THEN BEGIN
VALUE1 = H - ref(H,2) + L - ref(L,2);
ABSVALUE1 = ABS(H - ref(H,2)) + ABS(L - ref(L,2));
END;
ELSE BEGIN
VALUE1 = ABSVALUE1 = 0 ;
END;
N1:=5;
TD REI = SUM(VALUE1, N) / SUM(ABSVALUE1, N);

或
C:
IF( ((( (HI>=ref(L,5) OR HI>=ref(L,6)) AND (LO<=ref(H,5 ) OR LO<=ref(H,6)) ) OR
( (ref(H,2)>=ref(C,7 ) OR ref(H,2)>=ref(C,8)) AND (ref(L,2)<=ref(C,7) OR ref(L,2)<=ref(C,8)) ) ))
, ( (VALUE1 = H - ref(H,2) + L - ref(L,2)) AND (ABSVALUE1 = ABS(H - ref(H,2)) + ABS(L - ref(L,2))) )
, (VALUE1 = ABSVALUE1 = 0 ))


N1:=5;
TD REI = SUM(VALUE1, N1) / SUM(ABSVALUE1, N1);

編譯有誤　錯在那兒?

試試看這樣對不對?

input:N(5); //假設為5
a:=((H>=ref(L,5) OR H>=ref(L,6)) AND (L<=ref(H,5) OR L<=ref(H,6))) OR ((ref(H,2)>=ref(C,7) OR ref(H,2)>=ref(C,8)) AND (ref(L,2)<=ref(C,7) OR ref(L,2)<=ref(C,8)));
VALUE:=IF(a,H-ref(H,2)+L-ref(L,2),0);
ABSVALUE:=if(a,ABS(H-ref(H,2))+ABS(L-ref(L,2)),0);
TD_REI:SUM(VALUE,N)/SUM(ABSVALUE,N);

OK,

THANK YOU VERY MUCH, KKKKKK!!!!