老師，可以幫忙修改一下嗎，謝謝了
作者：文華財(cái)經(jīng) 來源：cxh99.com 發(fā)布時(shí)間：2021年10月05日
-
咨詢內(nèi)容：
?DRAWGBK(C>O,RGB(10,0,0),RGB(0,0,0),1,2,1);Z1:=STRCAT(HYBLOCK,'';Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2,'';DRAWTEXT_FIX(ISLASTBAR,0.6,0.99,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;ZK1:(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),COLORGREEN,LINETHICK2;ZD1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;ZD2:EMA(ZD1,25),LINETHICK2;DRAWBAND(ZD1,RGB(55,0,0),ZD2,RGB(0,91,0));DRAWKLINE(H,O,L,C);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*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));XG:=ZD1>HIGH AND 回調(diào)買 AND L<=ZD1;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)));DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;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,L,'抓牛',COLORYELLOW;}DRAWTEXT(XG2 AND L<ZD1,L,'牛',COLORRED;
TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);籌碼突破:=C>TYX3 AND(C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),COLORRED;A111:=COST(85);?A222:=COST(15);?A333:=A111-A222;?A444:=(A111+A222)/2;?單峰密集:=A333/A444*100<30,LINETHICK0;{A5:=A3/A4*100<30;}?B1:=HHV(HIGH,250);?B2:=LLV(LOW,250);?B3:=B1-B2;?B4:=(A444-B2);低位:=A444<(B3*04+B2),LINETHICK0;?低位單峰密集:=單峰密集 AND 低位;B5:=C/REF(C,1)>1.04; {AND V/REF(V,1)>2;{ AND H=C;}主力持倉%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);主力持倉大于75%:=主力持倉%>=75 {AND 主力持倉%<=91} AND C>0 AND CLOSE>OPEN AND C=H;敢死嗎:=主力持倉大于75% AND 低位單峰密集 AND B4 AND WINNER(C)>=0.91 AND B5,COLORGREEN,LINETHICK3;{DRAWTEXT(FILTER(敢死嗎=1,5),L,'---敢死嗎',COLORGREEN;}DRAWICON(FILTER(敢死嗎=1,5),L,25);
DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);DEA1:=EMA(DIF1,9);AAA1:=(DIF1-DEA1)*2*60;AAA上:=IF(AAA1>REF(AAA1,1),AAA1,DRAWNULL);AAA下:=IF(AAA1<REF(AAA1,1),AAA1,DRAWNULL);買:=13;入:=AAA1-REF(AAA1,1);正大:=CROSS(入,買);DIF2:=EMA(DCLOSE,10)-EMA(DCLOSE,72);DEA2:=EMA(DIF2,17);AAA:=(DIF2-DEA2)*2*60;入2:=AAA-REF(AAA,1);牛股:=CROSS(入2,13);正大牛股:=正大 AND 牛股;DRAWICON(正大牛股,L,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_FIX(1,0.01,0,0,'【分析家公式網(wǎng) WWW.70822.COM】',COLORRED,LINETHICK8;LC:=REF(CLOSE,1);操作線:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;賣:=CROSS(90,操作線);DRAWICON(賣,H,8);絕底線:=5;買陰線1:操作線<5 AND ZD1>ZD2 AND L<ZD1,NODRAW;DRAWICON(買陰線1,L,7);買陰線2:操作線<5 AND ZD1<ZD2 AND L<ZD1,NODRAW;DRAWICON(買陰線2,L,7);NOTEXT1:XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK2,COLORRED;
?
?來源:程序化99
-
文華技術(shù)人員：
?參考：
?CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
DRAWGBK(C>O,RGB(10,0,0),RGB(0,0,0),1);
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,ZD2,ZD1,RGB(55,0,0));
FILLRGN(ZD1>ZD2,ZD2,ZD1,RGB(0,91,0));
DRAWKLINE1(H,O,L,C);
STICKLINE1(ZD1>LOW AND ZD1<HIGH,ZD1,MIN(MIN(OPEN,CLOSE),ZD1),2,0),COLORYELLOW;
STICKLINE1(ZD1>MIN(C,O) AND ZD1<MAX(C,O),ZD1,MIN(OPEN,CLOSE),2,0),COLORYELLOW;
STICKLINE1(ZD1>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;
STICKLINE1(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);
回調(diào)買:=LLV(VAR23,2)=LLV(VAR23,7) AND COUNT(VAR23<0,2) AND CROSS(VAR23,MA(VAR23,2));
XG:=ZD1>HIGH AND 回調(diào)買 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);
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;
TYX3:=MA(REF(HHV((C+L+O+H)/4,30),1),3);
籌碼突破:=C>TYX3 AND (C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),COLORRED;
A111:=COST(85);?
A222:=COST(15);?
A333:=A111-A222;?
A444:=(A111+A222)/2;?
單峰密集:=A333/A444*100<30;
//{A5:=A3/A4*100<30;}?
B1:=HHV(HIGH,250);?
B2:=LLV(LOW,250);?
B3:=B1-B2;?
B4:=(A444-B2);
低位:=A444<(B3*04+B2);?
低位單峰密集:=單峰密集 AND 低位;
B5:=C/REF(C,1)>1.04;?
/*{AND V/REF(V,1)>2;
{ AND H=C;
}*/
主力持倉%:=EMA(100*(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30)),3);
主力持倉大于75%:=主力持倉%>=75 {AND 主力持倉%<=91} AND C>0 AND CLOSE>OPEN AND C=H;
敢死嗎:=主力持倉大于75% AND 低位單峰密集 AND B4 AND WINNER(C)>=0.91 AND B5,COLORGREEN,LINETHICK3;
//{DRAWTEXT(FILTER(敢死嗎=1,5),L,'---敢死嗎',COLORGREEN;}
DRAWICON(FILTER(敢死嗎=1,5),L,25);
DCLOSE:=C;
DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,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(DCLOSE,10)-EMA(DCLOSE,72);
DEA2:=EMA(DIF2,17);
AAA:=(DIF2-DEA2)*2*60;
入2:=AAA-REF(AAA,1);
牛股:=CROSS(入2,13);
正大牛股:=正大 AND 牛股;
DRAWICON(正大牛股,L,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;
LC:=REF(CLOSE,1);
操作線:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100;
賣:=CROSS(90,操作線);
DRAWICON(賣,H,8);
絕底線:=5;
買陰線1:操作線<5 AND ZD1>ZD2 AND L<ZD1,NODRAW;
DRAWICON(買陰線1,L,7);
買陰線2:操作線<5 AND ZD1<ZD2 AND L<ZD1,NODRAW;
DRAWICON(買陰線2,L,7);
NOTEXT1: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;
打印本文
關(guān)閉窗口