打印本文
關閉窗口
?
?來源:程序化99
請參考
ZK1:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)),DOT,COLORBLUE;
ZD1:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK2,COLORRED;
ZD2:EMA(ZD1,25),LINETHICK2;
FILLRGN(ZD1>ZD2,ZD1,ZD2,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD1,ZD2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
N:=BARSLAST(DATE<>REF(DATE,1))+1;
X:=CURRENTTIME;
Q:MOD(INTPART(X/100),100),NODRAW;
VV:=SUM(V,N);
XX:=INTPART(X/10000);
FROMOPEN:=IF(XX<12,60*(XX-9)-30+Q,120+60*(XX-13)+Q)+1;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
STICKLINE(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*REFX1(MA(REFX1(MA((C-REF(C,1)),6),3),6),3)/REFX1(MA(REFX1(MA(ABS((C-REF(C,1))),6),3),6),3);
回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=ZD1>HIGH AND 回調買 AND L<=ZD1;
DRAWTEXT(XG,L,'買入',COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
CAPITAL:=GETPRICE1('通股本';
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)));
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<ZK1;
DRAWTEXT(XG2 AND L<ZD1,L,'金鉆起漲',COLORRED;
DIF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIF1,9);
AAA1:=(DIF1-DEA1)*2*60;
AAA上:=IF(AAA1>REF(AAA1,1),AAA1,NULL);
AAA下:=IF(AAA1<REF(AAA1,1),AAA1,NULL);
買:=13;
入:=AAA1-REF(AAA1,1);
正大:=CROSS(入,買);
DIF2:=EMA(CLOSE,10)-EMA(CLOSE,72);
DEA2:=EMA(DIF2,17);
AAA:=(DIF2-DEA2)*2*60;
入2:=AAA-REF(AAA,1);
牛股:=CROSS(入2,13);
正大牛股:=正大 AND 牛股;
DRAWICON(正大牛股,L*0.99,1);
VAR1:=(CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*100;
VAR2:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR3:=SMA(VAR2,3,1);
天:=100+(-ABS(VAR1)),COLORRED;
下:=SMA(VAR3,2,1);
無:=ABS(VAR1),COLORGREEN;
敵:=50,COLORFFAA00,LINETHICK3;
DRAWTEXT(CROSS(無,10) AND C>O,L,'lt;---天下無敵',COLORGREEN;
LC:=REF(CLOSE,1);
操作線:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
賣:=CROSS(90,操作線);
DRAWICON(賣,H*1.04,2);
絕底線:=5;
STICKLINE(C/REF(C,1)>=1.098,C,O,2,0),COLORYELLOW;
STICKLINE(C/REF(C,1)>=1.098,H,L,0,0),COLORYELLOW;
DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),LINETHICK2;
STICKLINE(CURRBARSCOUNT=2,L,L,10,0),COLORGREEN;
?
?
?來源: www.kzuj.com.cn
請把小臉給我刪除，謝謝
?
?請參考
?
ZK1:(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1+(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)),DOT,COLORBLUE;
ZD1:REFX1(MA(REFX1(MA(L,25),25/2),25),25/2)-(REFX1(MA(REFX1(MA(H,25),25/2),25),25/2)-REFX1(MA(REFX1(MA(L,25),25/2),25),25/2))*1,LINETHICK2,COLORRED;
ZD2:EMA(ZD1,25),LINETHICK2;
FILLRGN(ZD1>ZD2,ZD1,ZD2,RGB(55,0,0));
FILLRGN(ZD1<ZD2,ZD1,ZD2,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
N:=BARSLAST(DATE<>REF(DATE,1))+1;
X:=CURRENTTIME;
Q:MOD(INTPART(X/100),100),NODRAW;
VV:=SUM(V,N);
XX:=INTPART(X/10000);
FROMOPEN:=IF(XX<12,60*(XX-9)-30+Q,120+60*(XX-13)+Q)+1;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
STICKLINE(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE(ZD1>HIGH,HIGH,LOW,0,0),COLORYELLOW;
VAR23:=100*REFX1(MA(REFX1(MA((C-REF(C,1)),6),3),6),3)/REFX1(MA(REFX1(MA(ABS((C-REF(C,1))),6),3),6),3);
回調買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=ZD1>HIGH AND 回調買 AND L<=ZD1;
DRAWTEXT(XG,L,'買入',COLORRED;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
CAPITAL:=GETPRICE1('通股本';
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)));
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<ZK1;
DRAWTEXT(XG2 AND L<ZD1,L,'金鉆起漲',COLORRED;
DIF1:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA1:=EMA(DIF1,9);
AAA1:=(DIF1-DEA1)*2*60;
AAA上:=IF(AAA1>REF(AAA1,1),AAA1,NULL);
AAA下:=IF(AAA1<REF(AAA1,1),AAA1,NULL);
買:=13;
入:=AAA1-REF(AAA1,1);
正大:=CROSS(入,買);
DIF2:=EMA(CLOSE,10)-EMA(CLOSE,72);
DEA2:=EMA(DIF2,17);
AAA:=(DIF2-DEA2)*2*60;
入2:=AAA-REF(AAA,1);
牛股:=CROSS(入2,13);
正大牛股:=正大 AND 牛股;
//DRAWICON(正大牛股,L*0.99,1);
VAR1:=(CLOSE-MA(CLOSE,7))/MA(CLOSE,7)*100;
VAR2:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR3:=SMA(VAR2,3,1);
天:=100+(-ABS(VAR1)),COLORRED;
下:=SMA(VAR3,2,1);
無:=ABS(VAR1),COLORGREEN;
敵:=50,COLORFFAA00,LINETHICK3;
DRAWTEXT(CROSS(無,10) AND C>O,L,'lt;---天下無敵',COLORGREEN;
LC:=REF(CLOSE,1);
操作線:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
賣:=CROSS(90,操作線);
//DRAWICON(賣,H*1.04,2);
絕底線:=5;
STICKLINE(C/REF(C,1)>=1.098,C,O,2,0),COLORYELLOW;
STICKLINE(C/REF(C,1)>=1.098,H,L,0,0),COLORYELLOW;
DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,3),HHV(HIGH,3),1),LINETHICK2;
STICKLINE(CURRBARSCOUNT=2,L,L,10,0),COLORGREEN;
?