  MA1:MA(CLOSE,M1),COLORWHITE;
MA2:MA(CLOSE,M2),COLORYELLOW;
MA3:MA(CLOSE,M3),COLORMAGENTA;
MA4:MA(CLOSE,M4),COLORLIGREEN;
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);{高点}
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2)));
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
DRAWLINE(LD,L,HD,H,0),COLORLIRED,LINETHICK1;
DRAWLINE(HD,H,LD,L,0),COLOR888888,LINETHICK1;
J1:=BACKSET(ISLASTBAR ,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLOR888888,LINETHICK1;
箱顶:IF(CURRBARSCOUNT<=黄金分割, CONST(IF(ISLASTBAR=1,HHV(H, BARSLAST(CURRBARSCOUNT=黄金分割)),1)),DRAWNULL)COLOR888888;
箱低:IF(CURRBARSCOUNT<=黄金分割, CONST(IF(ISLASTBAR=1,LLV(L, BARSLAST(CURRBARSCOUNT=黄金分割)),1)),DRAWNULL)COLOR888888;
零点236:箱顶-(箱顶-箱低)*0.236,DOTLINE,COLOR888888;
零点382:箱顶-(箱顶-箱低)*0.382,DOTLINE,COLOR888888;
零点5:箱顶-(箱顶-箱低)*0.5,DOTLINE,COLOR888888;
零点618:箱顶-(箱顶-箱低)*0.618,DOTLINE,COLOR888888;
零点809:箱顶-(箱顶-箱低)*0.809,DOTLINE,COLOR888888;
DRAWTEXT(ISLASTBAR,箱顶,'顶'),COLOR888888;
DRAWTEXT(ISLASTBAR,箱低,'低'),COLOR888888;
量比:V/REF(MA(V,1),1),NODRAW;
AA:=REF(H,长趋势)=HHV(H,2*长趋势+1);
QY:=BACKSET(AA,长趋势+1);
CC:=FILTER(QY,长趋势) AND H=HHV(H,长趋势+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=CONST(DINGBUTS);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=CONST(DINGBUTS1);
DINGBU2:=REF(DINGBU1,DDD+1);
MM:=IF(CURRBARSCOUNT>GDCS2,0,1);
长上轨:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1),COLORMAGENTA,LINETHICK1;
AA1:=REF(L,长趋势)=LLV(L,2*长趋势+1);
QY1:=BACKSET(AA1,长趋势+1);
CC1:=FILTER(QY1,长趋势) AND L=LLV(L,长趋势+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=CONST(DDTS1);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=CONST(DDTS2);
长下轨:DRAWLINE(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L,1),COLORMAGENTA,LINETHICK1;
AA中:=REF(H,短趋势)=HHV(H,2*短趋势+1);
QY中:=BACKSET(AA中,短趋势+1);
CC中:=FILTER(QY中,短趋势) AND H=HHV(H,短趋势+1);
DDD中:=BARSLAST(CC中);
GDTS中:=IF(CC中,CURRBARSCOUNT,0);
DINGBU中:=IF(DDD中,REF(H,DDD中),H);{顶部}
DINGBUTS中:=IF(DDD中,REF(GDTS中,DDD中),GDTS中);
DINGBU1中:=REF(DINGBU中,DDD中+1);
GDCS1中:=CONST(DINGBUTS中);
DINGBUTS1中:=REF(DINGBUTS中,DDD中+1);
GDCS2中:=CONST(DINGBUTS1中);
DINGBU2中:=REF(DINGBU1中,DDD中+1);
MM中:=IF(CURRBARSCOUNT>GDCS2中,0,1);
中上轨:DRAWLINE(CURRBARSCOUNT=GDCS2中,H,CURRBARSCOUNT=GDCS1中,H,1),COLORYELLOW,LINETHICK1;
AA1中:=REF(L,短趋势)=LLV(L,2*短趋势+1);
QY1中:=BACKSET(AA1中,短趋势+1);
CC1中:=FILTER(QY1中,短趋势) AND L=LLV(L,短趋势+1);
DD1中:=BARSLAST(CC1中);
DDTS中:=IF(CC1中,CURRBARSCOUNT,0);
YDB中:=IF(DD1中,REF(L,DD1中),L);
DDTS1中:=IF(DD1中,REF(DDTS中,DD1中),DDTS中);
DDCS1中:=CONST(DDTS1中);
ZDB中:=REF(YDB中,DD1中+1);
DDTS2中:=REF(DDTS1中,DD1中+1);
DDCS2中:=CONST(DDTS2中);
中下轨:DRAWLINE(CURRBARSCOUNT=DDCS2中,L,CURRBARSCOUNT=DDCS1中,L,1),COLORYELLOW,LINETHICK1;
MA7:=MA(CLOSE,1);
转强:=(6*H+5*REF(H,1)+4*REF(H,2)+3*REF(H,3)+2*REF(H,4)+1*REF(H,5))/(6+5+4+3+2+1);
转弱:=(6*L+5*REF(L,1)+4*REF(L,2)+3*REF(L,3)+2*REF(L,4)+1*REF(L,5))/(6+5+4+3+2+1);
BB2:=IF(C>REF(转强,1),1,IF(C<REF(转弱,1),-1,0));
DD2:=BARSLAST(NOT(BB2=0));
B:=IF(BB2=0,REF(BB2,DD2),BB2);
中短:=IF(B=-1,MA(HIGH,6),MA(LOW,6));
STICKLINE(MA7<中短,LOW,HIGH,0,1),COLORCYAN;
STICKLINE(MA7>中短,LOW,HIGH,0,1),COLORRED;
STICKLINE(((OPEN>CLOSE)AND(MA7<中短)),(CLOSE-0.003),OPEN,3.1,0),COLORLIBLUE;
STICKLINE(((OPEN<CLOSE)AND(MA7<中短)),CLOSE,OPEN,3.1,1),COLORCYAN;
STICKLINE(((OPEN>CLOSE)AND(MA7>中短)),OPEN,(CLOSE-0.003),3.1,0),COLORRED;
STICKLINE(((OPEN<CLOSE)AND(MA7>中短)),OPEN,CLOSE,3.1,1),COLORRED;
CA3:=REF(C,1);
涨W停:=IF((C-CA3)*100/CA3>=(10-0.01*100/CA3),1,0);
STICKLINE(涨W停,OPEN,CLOSE,3.1,1),COLORYELLOW;
跌W停:=IF((CA3-C)*100/CA3>=(10-0.01*100/CA3),1,0);
STICKLINE(跌W停,OPEN,CLOSE,3.1,0),COLORLIGREEN;
B点:CROSS(MA7,中短),COLORRED,NODRAW;
持股:MA7>中短,COLORRED,NODRAW;
DRAWICON(CROSS(MA7,中短),L*0.995,7);
DRAWICON(CROSS(中短,MA7),H*1.002,8);{预测当天最低价公式}
N:=27;PP:=0.03;
AF1:=REF(O,1);
AF2:=ABS((REF(C,1)-AF1)/AF1);
AF3:=ABS((REF(H,1)-AF1)/AF1);
AF4:=ABS((REF(L,1)-AF1)/AF1);
BF1:=ABS((AF2+AF3+AF4)/3);
BF2:=O*BF1;
预测低一:=O-BF2;
预测高一:=O+BF2;
今日保护价:(REF(C,2)+REF(C,1)+O)/3 ,COLOR4080FF,NODRAW;
开盘价1:=OPEN;
开盘价2:=REF(OPEN,1);
最高价1:=HIGH;
最高价2:=REF(HIGH,1);
最低价1:=LOW;
最低价2:=REF(LOW,1);
收盘价1:=CLOSE;
收盘价2:=REF(CLOSE,1);
AAF:=最高价2;
BBF:=最低价2;
CCF:=开盘价2;
DDF:=收盘价2;
EEF:=(AAF+BBF+CCF+2*DDF)/5;
AAAF:=EEF+(AAF-BBF);
BBBF:=2*EEF-BBF;
CCCF:=2*EEF-AAF;
DDDF:=EEF-(AAF-BBF);
上升突破价:=AAAF;
上升阻力价:=BBBF;
下跌支撑价:=CCCF;
下跌反转价:=DDDF;
EEE:=(EEF+上升突破价+上升阻力价+下跌支撑价+下跌反转价)/5;
心理价:=EEE;
FFF:=(EEE+开盘价1)/2;
GGG:=(预测低一+FFF)/2;
预测低二:=GGG;
{预测今日最高价公式}DRAWRECTREL(0,0,360,399,IF(120,RGB(10,0,0),0));
DRAWRECTREL(0,0,360,8,IF(120,RGB(280,0,0),0));
DRAWRECTREL(0,265,360,273,IF(120,RGB(280,0,0),0));
预测高二:=MA(REF(HIGH,1)/REF(CLOSE,2),N)*REF(CLOSE,1);
DRAWTEXT_FIX(1,0.04,0.15,0,'预测低一:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.10,0.15,0,CONST(预测低一)),COLORYELLOW;
DRAWTEXT_FIX(1,0.15,0.15,0,'元'),COLORYELLOW,LINETHICK1;
DRAWTEXT_FIX(1,0.04,0.20,0,'预测高一:'),COLORFFFFFF;
DRAWNUMBER_FIX(1,0.10,0.20,0,CONST(预测高一)),COLORFFFFFF;
DRAWTEXT_FIX(1,0.15,0.20,0,'元'),COLORFFFFFF,LINETHICK1;
DRAWTEXT_FIX(1,0.18,0.15,0,'预测低二:'),COLORYELLOW;
DRAWNUMBER_FIX(1,0.24,0.15,0,CONST(预测低二)),COLORYELLOW;
DRAWTEXT_FIX(1,0.29,0.15,0,'元'),COLORYELLOW,LINETHICK1;
DRAWTEXT_FIX(1,0.18,0.20,0,'预测高二:'),COLORFFFFFF;
DRAWNUMBER_FIX(1,0.24,0.20,0,CONST(预测高二)),COLORFFFFFF;
DRAWTEXT_FIX(1,0.29,0.20,0,'元'),COLORFFFFFF,LINETHICK1;
买回价:=预测低二*1.015;
卖出价:=买回价*(1+PP);DRAWTEXT_FIX(1,0.04,0.10,0,'卖出价:'),COLOR8080FF,LINETHICK1;
DRAWNUMBER_FIX(1,0.10,0.10,0,CONST(卖出价)),COLOR8080FF;
DRAWTEXT_FIX(1,0.15,0.10,0,'元'),COLOR8080FF,LINETHICK1;
DRAWTEXT_FIX(1,0.18,0.10,0,'买回价:'),COLOR8080FF,LINETHICK1;
DRAWNUMBER_FIX(1,0.24,0.10,0,CONST(买回价)),COLOR8080FF;
DRAWTEXT_FIX(1,0.29,0.10,0,'元'),COLOR8080FF,LINETHICK1;
{DRAWTEXT_FIX(1,0.01,0.02,0,'★ ===================================★'),COLORRED;}
DRAWTEXT_FIX(1,0.15,0.05,0,'T+1 操 作'),COLORFFFFFF;
DRAWTEXT_FIX(1,0.01,0.08,0,'操 '),COLOR0000FF;
DRAWTEXT_FIX(1,0.01,0.12,0,'盘 '),COLOR0000FF;
DRAWTEXT_FIX(1,0.01,0.16,0,'铁'),COLOR0000FF;
DRAWTEXT_FIX(1,0.01,0.20,0,'律'),COLOR0000FF;
DRAWTEXT_FIX(1,0.32,0.08,0,'坚 '),COLOR0000FF;
DRAWTEXT_FIX(1,0.32,0.12,0,'决 '),COLOR0000FF;
DRAWTEXT_FIX(1,0.32,0.16,0,'执'),COLOR0000FF;
DRAWTEXT_FIX(1,0.32,0.20,0,'行'),COLOR0000FF;
{DRAWTEXT_FIX(1,0.01,0.24,0,'★ =================================== ★'),COLORRED;}
超B:=L2_AMO(0,2)/100000000.0;
大B:=L2_AMO(1,2)/100000000.0;
中B:=L2_AMO(2,2)/100000000.0;
小B:=L2_AMO(3,2)/100000000.0;
超S:=L2_AMO(0,3)/100000000.0;
大S:=L2_AMO(1,3)/100000000.0;
中S:=L2_AMO(2,3)/100000000.0;
小S:=L2_AMO(3,3)/100000000.0;
当日净流:=(超B+大B+中B+小B)-(超S+大S+中S+小S);
三日净流:=SUM(当日净流,3);
五日净流:=SUM(当日净流,5);
十日净流:=SUM(当日净流,10);
DRAWTEXT_FIX(1,0.01,0.3,0,'净流(亿):'),COLOR8080FF,LINETHICK1;
DRAWTEXT_FIX(1,0.10,0.30,0,'1日'),COLOR8080FF,LINETHICK1;
DRAWTEXT_FIX(1,0.18,0.30,0,'3日'),COLOR8080FF,LINETHICK1;
DRAWTEXT_FIX(1,0.25,0.30,0,'5日'),COLOR8080FF,LINETHICK1;
DRAWTEXT_FIX(1,0.31,0.30,0,'10日'),COLOR8080FF,LINETHICK1;
DRAWNUMBER_FIX(1,0.08,0.35,0,CONST((当日净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.16,0.35,0,CONST((三日净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.23,0.35,0,CONST((五日净流))),COLORYELLOW;
DRAWNUMBER_FIX(1,0.30,0.35,0,CONST((十日净流))),COLORYELLOW; |
