咨詢內容：

請老師幫忙修改

CAPITAL:=GETPRICE1('流通股本');
N:=BARSLAST(DATE<>REF(DATE,1))+1;
CURRBARSCOUNT:=REFX1(BARPOS,10000)-BARPOS+1;
HH:=REFX1(MA(H,25),25/2);
LL:=REFX1(MA(L,25),25/2);
金牛:(REFX1(MA(HH,25),25/2)-REFX1(MA(LL,25),25/2))*1+REFX1(MA(HH,25),25/2),DOT,LINETHICK5,COLORYELLOW;
金鉆趨勢:REFX1(MA(LL,25),25/2)-(REFX1(MA(HH,25),25/2)-REFX1(MA(LL,25),25/2))*1,LINETHICK2,COLORRED;
金牛2:=EMA(金鉆趨勢,25),COLORCYAN,LINETHICK1;
金牛21:=EMA(金牛,25),COLORCYAN,LINETHICK1;
//FILLRGN(金鉆趨勢>金牛2,金鉆趨勢,金牛2,RGB(55,0,0));
//FILLRGN(金鉆趨勢<金牛2,金鉆趨勢,金牛2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
STICKLINE1(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE1(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE1(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
//STICKLINE1(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;


?

?


T1:=金鉆趨勢>HIGH||金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O)||金鉆趨勢>LOW AND 金鉆趨勢<HIGH&&金鉆趨勢<>MIN(MIN(OPEN,CLOSE),金鉆趨勢);

?


?


?

?


STICKLINE1(金牛<H AND 金牛>L,金牛,MAX(MAX(OPEN,CLOSE),金牛),2,0),COLORBLUE;
STICKLINE1(金牛<MAX(C,O) AND 金牛>MIN(C,O),金牛,MAX(OPEN,CLOSE),2,0),COLORBLUE;
STICKLINE1(金牛<L,OPEN,CLOSE,2,0),COLORBLUE;
//STICKLINE1(金牛<L,HIGH,LOW,0,0),COLORBLUE;


?

?


T2:= 金牛<MAX(C,O) AND 金牛>MIN(C,O)||金牛<L||金牛<H AND 金牛>L&&金牛<>MAX(MAX(OPEN,CLOSE),金牛);
CC1:=REFX1(MA(C-REF(C,1),6),6/2);
CC2:=REFX1(MA(ABS(C-REF(C,1)),6),6/2);
VAR23:=100*REFX1(MA(CC1,6),6/2)/REFX1(MA(CC2,6),6/2);
回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGH AND 回調買 AND L<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;
//DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;
//DRAWTEXT(XG2 AND L<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
昨前:=5;
高1:=REF(HHV(H,DAYBARPOS),DAYBARPOS);
低1:=REF(LLV(L,DAYBARPOS),DAYBARPOS);
H11:=高1-(高1-低1)*0.191;
H21:=高1-(高1-低1)*0.382;
H31:=高1-(高1-低1)*0.5;
H41:=高1-(高1-低1)*0.618;
H51:=高1-(高1-低1)*0.809;
?
頂:=REFX1(高1,10000),LINETHICK7,COLORRED;
?低:=REFX1(低1,10000), LINETHICK3,COLORRED;


COND1:=(金鉆趨勢>LOW&&金鉆趨勢<HIGH || 金鉆趨勢>MIN(C,O)&&金鉆趨勢<MAX(C,O)||金鉆趨勢>HIGH)&&ISUP;
COND2:=(金牛<H&&金牛>L ||金牛<MAX(C,O)&&金牛>MIN(C,O) ||金牛<L)&&ISDOWN;

?
C1:=V>=REF(V,1)*2&&V>MA(V,5)&&ISUP;
DRAWCOLORKLINE(C1,RGB(255,128,64),0);

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： N:=BARSLAST(DATE<>REF(DATE,1))+1;
CURRBARSCOUNT:=REFX(BARPOS,DATACOUNT-BARPOS)-BARPOS+1;
AAA:=DATACOUNT-BARPOS-1;
HH:=REFX(MA(H,AAA),AAA/2);
LL:=REFX(MA(L,AAA),AAA/2);
金牛:(REFX(MA(HH,AAA),AAA/2)-REFX(MA(LL,AAA),AAA/2))*1+REFX(MA(HH,AAA),AAA/2),POINTDOT,LINETHICK5,COLORYELLOW;
金鉆趨勢:REFX(MA(LL,AAA),AAA/2)-(REFX(MA(HH,AAA),AAA/2)-REFX(MA(LL,AAA),AAA/2))*1,LINETHICK2,COLORRED;
金牛2:=EMA(金鉆趨勢,AAA),COLORCYAN,LINETHICK1;
金牛21:=EMA(金牛,AAA),COLORCYAN,LINETHICK1;
//FILLRGN(金鉆趨勢>金牛2,金鉆趨勢,金牛2,RGB(55,0,0));
//FILLRGN(金鉆趨勢<金牛2,金鉆趨勢,金牛2,RGB(0,91,0));
DRAWKLINE(H,O,L,C);
STICKLINE(金鉆趨勢>LOW AND 金鉆趨勢<HIGH,金鉆趨勢,MIN(MIN(OPEN,CLOSE),金鉆趨勢),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O),金鉆趨勢,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(金鉆趨勢>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
//STICKLINE1(金鉆趨勢>HIGH,HIGH,LOW,0,0),COLORYELLOW;


?

?


T1:=金鉆趨勢>HIGH||金鉆趨勢>MIN(C,O) AND 金鉆趨勢<MAX(C,O)||金鉆趨勢>LOW AND 金鉆趨勢<HIGH&&金鉆趨勢<>MIN(MIN(OPEN,CLOSE),金鉆趨勢);

?


?


?

?


STICKLINE(金牛<H AND 金牛>L,金牛,MAX(MAX(OPEN,CLOSE),金牛),2,0),COLORBLUE;
STICKLINE(金牛<MAX(C,O) AND 金牛>MIN(C,O),金牛,MAX(OPEN,CLOSE),2,0),COLORBLUE;
STICKLINE(金牛<L,OPEN,CLOSE,2,0),COLORBLUE;
//STICKLINE1(金牛<L,HIGH,LOW,0,0),COLORBLUE;


?

?


T2:= 金牛<MAX(C,O) AND 金牛>MIN(C,O)||金牛<L||金牛<H AND 金牛>L&&金牛<>MAX(MAX(OPEN,CLOSE),金牛);
CC1:=REFX(MA(C-REF(C,1),6),6/2);
CC2:=REFX(MA(ABS(C-REF(C,1)),6),6/2);
VAR23:=100*REFX(MA(CC1,6),6/2)/REFX(MA(CC2,6),6/2);
回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=金鉆趨勢>HIGH AND 回調買 AND L<=金鉆趨勢;
DRAWTEXT(XG,L,'▲買入'),COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));
QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK1;
V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);
V5:=SMA(V2*120/FROMOPEN*5,2,1);
V10:=SMA(V5,5,1);
V20:=SMA(V10,5,1);
DY:=CURRBARSCOUNT=1 AND C<REF(C,1);
DY2:=REF(V2,1)-DY;
XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<金牛;
//DRAWTEXT(XG2,L,'▲抓牛'),COLORYELLOW;
//DRAWTEXT(XG2 AND L<金鉆趨勢,L,'↖金鉆起漲'),COLORMAGENTA;
昨前:=5;
DAYBARPOS:=BARSLAST(REF(HOUR,1)=15 AND HOUR<>15);
高1:=REF(HHV(H,DAYBARPOS),DAYBARPOS);
低1:=REF(LLV(L,DAYBARPOS),DAYBARPOS);
H11:=高1-(高1-低1)*0.191;
H21:=高1-(高1-低1)*0.382;
H31:=高1-(高1-低1)*0.5;
H41:=高1-(高1-低1)*0.618;
H51:=高1-(高1-低1)*0.809;
?
頂:=REFX(高1,DATACOUNT-BARPOS),LINETHICK7,COLORRED;
?低:=REFX(低1,DATACOUNT-BARPOS), LINETHICK3,COLORRED;


COND1:=(金鉆趨勢>LOW&&金鉆趨勢<HIGH || 金鉆趨勢>MIN(C,O)&&金鉆趨勢<MAX(C,O)||金鉆趨勢>HIGH)&&ISUP;
COND2:=(金牛<H&&金牛>L ||金牛<MAX(C,O)&&金牛>MIN(C,O) ||金牛<L)&&ISDOWN;

?
C1:=V>=REF(V,1)*2&&V>MA(V,5)&&ISUP;
DRAWKLINEEX(C1,H,O,L,C),COLOR4080FF; 來源 程序化久久網