|
不好意思!公式寫錯了
應該是
IF THEN BEGIN.......END
就類似如下的例子:
且最大可作幾組選擇?
謝謝
甘溫
Input:n(1,0,10);
//周期時間的判斷
週期:=DATAPERIOD;
r:=OPENMINUTES(TIME);
R1:=r-ref(r,1);
X:=IF(R1<0,r,R1);
VERTLINE(BARSLAST(r=x)=0),LINEDASH,COLORGRAY;
IF N=1 THEN BEGIN
de:=date;
ck:=barslast(de=de[datacount])>=0;
HH:=H*CK;
LL:=L*CK;
CC:=C*CK;
OO:=O*CK;
AC:=(HH+LL+CC+OO)/4;
VV:=V*(AC/REF(AC,1)-1),LINETHICK0;
LJ:=SUM(VV/10,0);
QS:=SMA(FORCAST(LJ,2),3,1);
DX:EMA(QS,1),LINETHICK2,COLORBROWN;
CXX:EMA(QS,3),LINETHICK2,COLORCYAN;
FILLRGN(DX>CXX,DX,CXX),colorred;
FILLRGN(DX<CXX,DX,CXX),colorgreen;
PARTLINE(DX<ref(DX,1),DX),LINETHICK2,COLORBLACK;
PARTLINE(CXX<ref(CXX,1),CXX),LINETHICK2,COLORBLUE;
CKK:MA(QS,3),LINETHICK2,COLORMAGENTA;
PARTLINE(CKK<ref(CKK,1),CKK),LINETHICK2,COLORGRAY;
jD1:=IF(CXX>ref(CXX,1),'↑','↓');
SZ7:=NUMTOSTR(CXX[SYSPARAM(1)],2)+jD1;
DRAWTEXT(BARPOS=SYSPARAM(3),CXX,SZ7),{SHIFT1,}align1,COLORBLUE;
0.4,CIRCLEDOT,COLORMAGENTA;
0,CROSSDOT,COLORGRAY;
-0.4,LINEDASHDOT,COLORBLUE;
END;
IF N=2 THEN BEGIN
de:=date;
ck:=barslast(de=de[datacount])>=0;
HH:=H*CK;
LL:=L*CK;
CC:=C*CK;
OO:=O*CK;
AC:=(HH+LL+CC+OO)/4;
J1:=EMA(AC,1);
SZ7:='收盤:'+NUMTOSTR(J1[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(3),J1,SZ7),{SHIFT1,}align1,COLORBLUE;
J2:=EMA(EMA(AC,2),3);
J3:=EMA(EMA(EMA(AC,3),2),1);
J4:=EMA(EMA(EMA(EMA(AC,4),3),2),1);
KLINE(J4,J3,J2,J1,0);
平均:EMA(EMA(EMA((J1+J2+J3+J4)/4,4),3),2);
上軌:平均+8,LINEDASH,COLORRED;
下軌:平均-8,LINEDASH,COLORGREEN;
END;
IF N=3 THEN BEGIN
BB:=stkindi('','TEST_SUB.大單買',0,0),COLORRED;
STICKLINE(date<>ref(date,1),0,BB,10,2),COLORRED;
買單50:BB-ref(BB,1),COLORRED,LINETHICK0;
STICKLINE(1,0,買單50,10,2),COLORRED;
BS:=stkindi('','TEST_SUB.大單賣',0,0),COLORBLUE;
STICKLINE(date<>ref(date,1),0,BS,7,2),COLORGREEN;
賣單50:BS-ref(BS,1),COLORGREEN,LINETHICK0;
STICKLINE(1,0,賣單50,7,2),COLORGREEN;
BB1:=stkindi('','TEST_SUB.大單買1',0,0),COLORBROWN;
STICKLINE(date<>ref(date,1),0,BB1,4,0),COLORMAGENTA;
買單98:BB1-ref(BB1,1),COLORMAGENTA,LINETHICK0;
STICKLINE(1,0,買單98,4,0),COLORMAGENTA;
BS1:=stkindi('','TEST_SUB.大單賣1',0,0),COLORBLACK;
STICKLINE(date<>ref(date,1),0,BS1,2,0),COLORBLUE;
賣單98:BS1-ref(BS1,1),COLORBLUE,LINETHICK0;
STICKLINE(1,0,賣單98,2,0),COLORBLUE;
UseSTR:='買單>=50口:'+NUMTOSTR(BB,0)+' '+'賣單>=50口:'+NUMTOSTR(BS,0)+'\n買單>=98口:'+NUMTOSTR(BB1,0)+' '+'賣單>=98口:'+NUMTOSTR(BS1,0);
DRAWTEXTEX(1,0,100,0,UseSTR),COLORBLACK;
END;
IF N=4 THEN BEGIN
SS:=stkindi('','TEST_SUB.盤差',0,0);
盤差:SS,LINETHICK0;
STICKLINE(SS>0,0,SS,7,0) colorred;
STICKLINE(SS<0,0,SS,7,0) colorgreen;
SS:=SS[lbound(SS)];
END;
|
2014-12-22 16:20
