|
CDP2
======
PT:=REF(H,1)-REF(L,1);
CDP: (REF(H,1)+REF(L,1)+REF(C,1)*2)/4;
AH: (CDP+PT);
AL: (CDP-PT);
NH: (2*CDP-L);
NL: (2*CDP-H);
RCDP:REF(CDP,1);
RAH:REF(AH,1);
RAL:REF(AL,1);
RNH:REF(NH,1);
RNL:REF(NL,1);
======
AH:"CDP2.RAH#WEEK",LINETHICK;
AL:"CDP2.RAL#WEEK",LINETHICK;
CDP:"CDP2.RCDP#WEEK",LINETHICK;
NH:"CDP2.RNH#WEEK",LINETHICK;
NL:"CDP2.RNL#WEEK",LINETHICK;
PARTLINE(AH=REF(AH,1),AH);
PARTLINE(AL=REF(AL,1),AL);
PARTLINE(CDP=REF(CDP,1),CDP);
PARTLINE(NH=REF(NH,1),NH);
PARTLINE(NL=REF(NL,1),NL);
NO:=UBOUND(BARPOS);
DT:=DATE;
VAR1:=DATE=DT[NO];
PARTLINE(VAR1,"CDP2.AH#WEEK"),SHIFT60;
PARTLINE(VAR1,"CDP2.AL#WEEK"),SHIFT60;
PARTLINE(VAR1,"CDP2.CDP#WEEK"),SHIFT60;
PARTLINE(VAR1,"CDP2.NH#WEEK"),SHIFT60;
PARTLINE(VAR1,"CDP2.NL#WEEK"),SHIFT60;
這個程式根本不能用 也不知道對不對
其他網友提供 我已經試過了 都不行 傷腦筋
|