{压力支撑线}
DRAWGBK(C=C,COLORRGB(130,130,130),COLORRGB(30,30,30),1);
var1:=(SMA(HIGH,21,2) * 1.05);
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,9,0),colorFF5B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,8,0),colorFF6C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,7,0),colorFF7B00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,6,0),colorFF9C00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,5,0),colorFFBE00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,3.5,0),colorFFCC00;
STICKLINE((OPEN >= CLOSE),CLOSE,OPEN,1.5,0),colorFFFF00;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,9,0),color070084;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,8,0),color0000A3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,7,0),color0000B7;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,6,0),color0000CD;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,5,0),color0000E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,3,0),color0754E9;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1.5,0),color076EF3;
STICKLINE((CLOSE >= OPEN),CLOSE,OPEN,1,0),color077BF3;
STICKLINE((CLOSE > OPEN),OPEN,LOW,1,0),color0726CA;
STICKLINE((CLOSE > OPEN),CLOSE,HIGH,1,0),color0726CA;
STICKLINE((OPEN > CLOSE),CLOSE,LOW,1,0),colorDE9100;
STICKLINE((OPEN > CLOSE),OPEN,HIGH,1,0),colorDE9100;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,9,0),color0090FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,8,0),color009FFF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,4,0),color00B5FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,OPEN,2,0),color00E4FF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),OPEN,LOW,0.7,0),color00FFFF;
STICKLINE(((((CLOSE / OPEN) > 1.04) AND (CLOSE < var1)) AND ((CLOSE - REF(CLOSE,1)) > 0)),CLOSE,HIGH,0.7,0),color00FFFF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),OPEN,LOW,0.7,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),CLOSE,HIGH,0.7,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),CLOSE,OPEN,9,0),colorFF00FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),CLOSE,OPEN,6,0),colorFF62FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),CLOSE,OPEN,4,0),colorFF76FF;
STICKLINE(((((CLOSE < REF(CLOSE,1)) AND (CLOSE < REF(CLOSE,1))) AND (HIGH > var1)) AND (CLOSE < var1)),CLOSE,OPEN,2,0),colorFFA8FF;
/////////
AC:=CLOSE;
转强:=WMA(HIGH,5);
转弱:=WMA(LOW,5);
Bara:=CLOSE*0;
FOR I=13+1 TO DATACOUNT DO BEGIN
IF AC[I]>转强[I-1] THEN
Bara[I]:=1;ELSE
IF AC[I]<转弱[I-1] THEN
Bara[I]:=-1;ELSE
Bara[I]:=Bara[I-1];
END;
转折线:IF(Bara=-1,MA(HIGH,5),MA(LOW,5)),LINETHICK1,colorFFFFFF;
////////////
RSV21:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
K21:=SMA(RSV21,5,1),COLORMAGENTA,LINETHICK2;
D21:=SMA(K21,5,1),COLORGREEN,LINETHICK2;
J21:=3*K21-2*D21,COLORYELLOW,LINETHICK2;
m5:=ma(c,5);
m10:=ma(c,10);
zxx1:=CROSS(k21,d21);
zxx2:=CROSS(d21,k21);
zxx3:=CROSS(j21,10);
zxx4:=CROSS(80,j21);
STICKLINE(zxx4,hhV(h,5),hhV(h,5),150,1);
STICKLINE(zxx3,LLV(l,5),LLV(l,5),150,1);
STICKLINE(zxx2,hhV(h,5),hhV(h,5),100,1),LINEDOT;
STICKLINE(zxx1,LLV(l,5),LLV(l,5),100,1),LINEDOT;
DRAWICON(zxx1,l*0.98,10),ALIGN;
DRAWICON(zxx2,h*1.005,11),ALIGN;
DRAWICON(zxx3,l*0.98,4),ALIGN;
DRAWICON(zxx4,h*1.005,5),ALIGN;
//////////
{加仓提示}
VARzc3:=IF((CLOSE>REF(CLOSE,1)),88,0);
VARzc4:=IF(((CLOSE)/(REF(CLOSE,1))>1.10) AND ((HIGH)/(CLOSE)<1.01) AND (VARzc3>0),91,0);
DRAWTEXT((VARzc4>90),(LOW)*(0.94999998),'★加仓'),Color00FFFF;
VARQS2:=ema(ema(l,8),6)*0.799;
土:=VARQS2,Color0080FF;
{下轨道最低价买股指标；很简单的！l<ema(ema(l,8),6)*0.799;准确度99%！}
DRAWSL(l<ema(ema(l,8),6)*0.799,l,0,2,2),{color80FF00}COLORWHITE;
//////////
bbbb:=MA(LOW,5)*(1-5/100);
振幅均价:=(HHv(bbbb,5)+llv(bbbb,5))/2,colorwhite,linedot;
均线选股:=cross(振幅均价,c) and 振幅均价>ref(振幅均价,1),linethick0;
DRAWTEXT(cross(振幅均价,l) and 振幅均价>ref(振幅均价,1),L*0.998,'▲\n回\n马\n枪'),colorred,ALIGN;
xxs:=MA(LOW,5)*(1-5/100),linedot;
xxs1:=MA(HIGH,5)*(1+5/100),linedot;
均线:=c,linethick2,colorgreen;
aaaa:=close/ref(close,3)<=0.85 and cross(c,xxs) and c>ref(c,1),linethick0 ;
DRAWTEXT(aaaa,L*0.995,'▲\n下\n影\n买'),colorred,ALIGN;
Bbaa:=cross(xxs1,c),linethick0;
DRAWTEXT(cross(xxs1,c),H*1.03,'▼\n开盘逃'),colorwhite,ALIGN;
dddd:=cross(c,xxs1),linethick0;
DRAWTEXT(dddd,h*1.02,'▼\n明日走'),COLORYELLOW,ALIGN;
eeee:=close/ref(close,2)<=0.9 and cross(c,xxs);
DRAWTEXT(eeee,L*0.995,'▲\n抢\n反\n弹'),colorred,ALIGN;
ffff:=REF(C,1)/REF(C,2)<=0.93 AND BETWEEN(C/REF(C,1),1.03,0.97) and close/ref(close,8)<=0.8 and between(ref(c,2)/ref(c,3),1.04,0.96) and between(ref(c,3)/ref(c,4),1.04,0.96),linethick0,coloryellow;
DRAWTEXT(ffff,L*0.995,'▲\n明\n日\n板'),colorred,ALIGN;
VAR1R:=LLV(LOW,2)=LLV(LOW,16) AND CLOSE>=OPEN*1.04;
VAR2R:=CLOSE>(REF(HIGH,1)+REF(LOW,1))/2;
VAR3R:=VAR1R AND VAR2R;
DRAWTEXT(VAR3R,LOW,'▲\n低入 '),colorFFFF,ALIGN;
DRAWTEXT(CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20)),HIGH*1.02,'▼\n卖出'),COLORWHITE,ALIGN;
///////
A101:=MA(C,10)-MA(C,20),COLORRED,LINETHICK2;
B101:=A101>REF(A101,1) AND REF(A101,1)<REF(A101,2);
BL101:= BARSLAST(B101);
M101:=MA(C,10);
D101:= REF(M101,BL101)/HHV(MA(C,10),20+BL101)<0.8;
E101:= A101>REF(A101,1) AND BARSLAST(B101)>2 AND BARSLAST(B101)<12;
F101:= E101 AND D101 AND CROSS(C,MA(C,10));
DRAWTEXT(f101,L*0.995,'★\n均\n线\n走\n平'),COLORYELLOW,ALIGN;
/////////
{预测明日}
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
C1:=REF(CLOSE,1);
C2:=HHV(C1,2);
C3:=LLV(C1,1);
ET:=HHV(C1,2);
ET1:=REF(ET,1);
XB:=LLV(C1,1);
XB1:=REF(XB,1);
M:=BARSLAST(((CLOSE < XB) AND (C1 >= XB1)));
M11:=REF(M,1);
Nn9:=BARSLAST(((CLOSE > ET) AND (C1 <= ET1)));
Nn1:=REF(Nn9,1);
M21:=(BARSLAST((((M - Nn9) > 0) AND (M11 <= Nn1))) + 1);
Nn2:=(BARSLAST((((Nn9 - M) > 0) AND (Nn1 <= M11))) + 1);
ET2:=HHV(ET,M21);
XB2:=LLV(XB,Nn2);
Aab:=IF((((M - Nn9) > 0) AND (M11 <= Nn1)),1,IF((((Nn9 - M) > 0) AND (Nn1 <= M11)),0,2));
H1:=IF(((M - Nn9) > 0),CLOSE,ET2);
H2:=IF((Aab = 1),CLOSE,C2);
H3:=IF(((M - Nn9) < 0),CLOSE,XB2);
H4:=IF((Aab = 1),CLOSE,XB2);
H5:=IF((((M - Nn9) > 0) OR (Aab = 1)),CLOSE,H3);
H6:=REF(H5,1);
H7:=REF(H5,2);
H8:=(H5 > H6);
H9:=(((H4 = REF(H4,1)) AND (REF(H4,1) < REF(H4,2))) AND (H5 > REF(H5,2)));
H10:=(((H2 = REF(H2,1)) AND (H4 = REF(H4,1))) AND (H5 = REF(H5,2)));
W:=((H8 OR H9) OR H10);
T9:=((H5 < H6) AND (H5 < REF(H5,2)));
T10:=((H4 = REF(H4,1)) AND (H5 < REF(H5,2)));
T11:=((H3 > REF(H3,1)) AND (H5 < REF(H5,1)));
T12:=((H5 = REF(H5,1)) AND (H3 = H4));
T13:=((H2 = REF(H2,1)) AND (H2 = H5));
TW:=((((T9 OR T10) OR T11) OR T12) OR T13);
PK:=((AMOUNT * (((OPEN + CLOSE) + HIGH) + LOW)) / 4);
PK1:=IF((VOL > 0),(PK / AMOUNT),((((OPEN + CLOSE) + HIGH) + LOW) / 4));
BBP:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100);
STICKLINE((ISLASTBAR AND W),(H5 * 1.025),(H5 * 0.99),0.5,0),SHIFT1,colorFF;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,8,0),SHIFT1,color102088;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,7,0),SHIFT1,color102099;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,6,0),SHIFT1,color1020AA;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,5,0),SHIFT1,color1020BB;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,4,0),SHIFT1,color1020CC;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,3,0),SHIFT1,color1020DD;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,2,0),SHIFT1,color1020EE;
STICKLINE((ISLASTBAR AND W),(H5 * 1.02),H5,1,0),SHIFT1,color1020FF;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.96),((H5 + H3) / 2.05),0.5,0),SHIFT1,colorFF8800;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),8,0),SHIFT1,colorFF7700;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),7,0),SHIFT1,colorFF8800;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),6,0),SHIFT1,colorFF9900;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),5,0),SHIFT1,colorFFAA00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),4,0),SHIFT1,colorFFBB00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),3,0),SHIFT1,colorFFCC00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),2,0),SHIFT1,colorFFDD00;
STICKLINE((ISLASTBAR AND TW),((H5 + H4) / 1.99),((H5 + H3) / 2.03),1,0),SHIFT1,colorFFEE00;
DRAWTEXT((ISLASTBAR AND (BBP >= 96.5)),(H5 * 1.022),' 明见\n 短高\n 龙头\n 除外'),SHIFT1,colorFFFF;
DRAWTEXT((ISLASTBAR AND (BBP < 1)),((H5 + H4) / 1.96),' 明见\n 短低\n 跌停\n 除外'),SHIFT1,colorFF00FF;
DRAWTEXT(((ISLASTBAR AND W) AND (BBP < 96.5)),(H5 * 1.022),' 明日\n 看涨'),SHIFT1,COLORMAGENTA;
DRAWTEXT(((ISLASTBAR AND TW) AND (BBP > 1)),((H5 + H4) / 2),' 明日\n 看跌'),SHIFT1,COLORGREEN;
////////////
DRAWTEXTex(1,0,10,5,'■所属板块：'+BlKNAME),Color00FF00;
DRAWTEXTex(1,0,10,20,'╬'+STKLABEL+'【 '+STKNAME+' 】'),LINETHICK1,ColorFFFFFC;
RH:=H-L;
R:=DYNAINFO(14)*100;
DRAWTEXTEX(1,0,10,45,'日高低差:'+NUMTOSTR(RH,2)+'元'),COLORWHITE;
金叉:=barslast(FILTER(CROSS("KD.K","KD.D") and "KD.D"<30,13));
主力吸筹区:=if(金叉>0 and 金叉<61,金叉,0);
DRAWTEXTex(1,0,10,60,'主力建仓天数：'+NUMTOSTR(主力吸筹区,0)+'天'),ColorFFFFFC,LINETHICK1;
MA30:=EMA(CLOSE,30);
MA60:=EMA(CLOSE,60);
MA125:=EMA(CLOSE,125);
MA250:=EMA(CLOSE,250);
A1:=MA30[SYSPARAM(1)];
RA1:=MA30[SYSPARAM(1)-1];
jt1:=IF(A1>RA1,'↑','↓');
DRAWTEXTEX(1,0,10,110,'MA30: '+NUMTOSTR(MA30[SYSPARAM(1)],2)+jt1),COLORWHITE;
A2:=MA60[SYSPARAM(1)];
RA2:=MA60[SYSPARAM(1)-1];
jt2:=IF(A2>RA2,'↑','↓');
DRAWTEXTEX(1,0,10,130,'MA60: '+NUMTOSTR(MA60[SYSPARAM(1)],2)+jt2),COLORWHITE;
A3:=MA125[SYSPARAM(1)];
RA3:=MA125[SYSPARAM(1)-1];
jt3:=IF(A3>RA3,'↑','↓');
DRAWTEXTEX(1,0,10,150,'MA125:'+NUMTOSTR(MA125[SYSPARAM(1)],2)+jt3),COLORWHITE;
A4:=MA250[SYSPARAM(1)];
RA4:=MA250[SYSPARAM(1)-1];
jt4:=IF(A4>RA4,'↑','↓');
DRAWTEXTEX(1,0,10,170,'MA250:'+NUMTOSTR(MA250[SYSPARAM(1)],2)+jt4),COLORWHITE;
{换手100%}
svol:=INTPART(SUM(V,0)/CAPITAL);
tj0:=svol>REF(svol,1) or BARSSINCE(CLOSE)=0;
S1:=BARSLAST(tj0)+1,PRECISION,COLORWHITE;//时间1
tj2:=S1<ref(S1,1);//取点
S2:=if(tj2,ref(S1,1)+1,S1),PRECISION,COLORMAGENTA;//时间2
S3:=sum(tj2,0),COLORMAGENTA;
阶段总额（万元）:=SUM(AMOUNT/10000,S2)*100,PRECISION,LINETHICK,Color008BFA;//换手100%成交额
阶段总量（手）:=SUM(V,S2)*100,PRECISION,LINETHICK,COLORCYAN;//换手100%成交量
阶段成本（元）:=(阶段总额（万元）/(阶段总量（手）/100)),LINETHICK,PRECISION2,COLORRED;
DRAWTEXTex(1,0,10,75,'阶段平均成本:'+NUMTOSTR(阶段成本（元）[SYSPARAM(1)],2)+'(元)'),align4,COLORCYAN;
Aa3:=SUMBARS(VOL,CAPITAL);
换手成本:=IF(CAPITAL>0,SUM(AMOUNT,Aa3)/SUM(VOL,Aa3)/100,EMA(CLOSE,120));{100%换手平均成本线};
DRAWTEXTEX(1,0,10,90,'换手成本:'+NUMTOSTR(换手成本,2)),COLORYELLOW;
BB:=BARPOS=SYSPARAM(1);
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=YEAR;
fm:=MONTH;
fd:=DAY;
wd:=WEEKDAY;
pd:=SYSPARAM(1);
DRAWTEXTEX(c,1,0,840,'■今日： '+NUMTOSTR(fy[pd],0)+'年'+NUMTOSTR(fm[pd],0)+'月'+NUMTOSTR(fd[pd],0)+'日 '+wday[wd[pd]+1]),COLORYELLOW;
yyzq:=(sysparam(3)-sysparam(2))/1.8;
picl:=refx(llv(sysparam(5),yyzq),yyzq);
当天换手率:=((VOL / CAPITAL) * 100);
b:=DATACOUNT-BARPOS+1;
Wb:=BARSLAST(SYSPARAM(1)=BARPOS)+1;
换手率1:=SUM(当天换手率,Wb);
累计换手:=REFX(换手率1,Wb[DATACOUNT]-1);
DRAWTEXT(SYSPARAM(1)=BARPOS,picl,NUMTOSTR(b[SYSPARAM(1)],0)+'天'+'换手: '+NUMTOSTR(累计换手[SYSPARAM(1)],2)+'% '),align2,COLORYELLOW;
VERTLINE(SYSPARAM(1)=BARPOS),LINEDOT,COLORGREEN;
VERTLINE(SYSPARAM(3)=BARPOS and b),LINEDOT,COLORRED;
sj:=datacount-sysparam(1);
涨跌:=(DYNAINFO(7)-C)/C*100,COLORYELLOW,LINETHICK0;
{drawnumber(barpos+4=sysparam(1),l,sj,0),align5,COLORWHITE;//交易日}
DRAWTEXTex(1,0,10,250,'距今涨跌:'+NUMTOSTR(涨跌[SYSPARAM(1)],2)+'%'),align4,COLORRED;
hh:=SYSPARAM(4);ll:=SYSPARAM(5);
x:=ll-(hh-ll+MINDIFF)/5;
y:=HHV(VOL,SYSPARAM(3)-SYSPARAM(2)+1);
yvb:=y[SYSPARAM(3)]/(ll-x+MINDIFF);
z:=VOL/yvb+x;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,9,0) ,colorAA;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,8,0) ,color11BB;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,7,0) ,color22CC;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,6,0) ,color33DD;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,5,0) ,color44EE;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,4,0) ,color55FF;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,2.2,0) ,color66FF;
STICKLINE(CLOSE>REF(CLOSE,1),x,z,1.5,0) ,color77FF;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,9,0),colorAA00;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,8,0),colorBB11;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,7,0),colorCC22;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,6,0),colorDD33;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,5,0),colorEE44;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,4,0),colorFF55;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,2.5,0),colorFF66;
STICKLINE(CLOSE<=REF(CLOSE,1),x,z,1.5,0),colorFF77;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
