超短压力线.docx
《超短压力线.docx》由会员分享，可在线阅读，更多相关《超短压力线.docx（72页珍藏版）》请在冰豆网上搜索。
超短压力线
超短压力线（加入主图即可）
STICKLINE（CLOSEref（OPEN,1）,ref（close,1）,ref（close,1）,20,0）,COLORFFFFFF;
平常常用的压力支持线
RSV:
=（CLOSE-LLV（LOW,13））/（HHV（HIGH,13）-LLV（LOW,13））*100;
K:
=SMA（RSV,3,1）;
D:
=SMA（K,3,1）;
J:
=3*K-2*D;
RSV12:
=（CLOSE-LLV（LOW,34））/（HHV（HIGH,34）-LLV（LOW,34））*100;
K12:
=SMA（RSV12,3,1）;
D12:
=SMA（K12,3,1）;
J12:
=3*K12-2*D12;
RSV24:
=（CLOSE-LLV（LOW,55））/（HHV（HIGH,55）-LLV（LOW,55））*100;
K24:
=SMA（RSV24,3,1）;
D24:
=SMA（K24,3,1）;
J24:
=3*K24-2*D24;
压力位:
IF（CROSS（j24,j）,H,REF（H,BARSLAST（CROSS（j24,j））））,COLORred,LINETHICK2;
支撑位:
IF（CROSS（j,j24）,L,REF（L,BARSLAST（CROSS（j,j24））））,COLOR77AAFF,,LINETHICK2;
上升通道强势股（楼梯股）（源码，加入主图）
AA10:
=MA（C,10）;
BB10:
=atan（（aa10-ref（aa10,1）））*180/3.1416;
STICKLINE（BB10>1andAA10>ref（AA10,1）,AA10,REF（AA10,1）,8,0）,colorred;
STICKLINE（BB10<1andAA10AA20:
=MA（C,20）;
BB20:
=atan（（aa20-ref（aa20,1）））*180/3.1416;
STICKLINE（BB20>1,AA20,REF（AA20,1）,8,0）,COLORYELLOW;
STICKLINE（BB20<1,AA20,REF（AA20,1）,8,1）,COLORbbcccc;
CZW-G
input:
p1（3,0,30）,p2（6,1,300）,p3（18,1,300）,p4（250,0,300）;
Var1:
=（C+L+H）/3;
Var2:
=eMA（Var1,6）;
Var3:
=eMA（Var2,5）;
Var4:
=eMA（Var3,12）;
Var5:
=eMA（Var4,5）;
生命线:
eMA（Var3,30）,COLORRED,POINTDOT;
DRAWICON（C>=生命线,生命线,10）;
DRAWICON（C<生命线,生命线,11）;
a:
=HHV（MA（（L+H+C）/3,3）,3）;
b:
=llv（MA（（L+H+C）/3,3）,10）;
STICKLINE（BARSCOUNT（C）=SYSPARAM
（1）,a,a,20,0）,Coloryellow,linethick3,shift1;
DRAWNUMBER（BARSCOUNT（C）=SYSPARAM
（1）,a,a,3）,shift3,colorYELLOW;
STICKLINE（BARSCOUNT（C）=SYSPARAM
（1）,b,b,20,0）,ColorDB3FDD,linethick3,shift1;
DRAWNUMBER（BARSCOUNT（C）=SYSPARAM
（1）,b,b,3）,shift3,ColorDB3FDD;
DRAWTEXT（sysparam
（2）=BARPOS,c,''+BLKNAME）,COLORccffcc,ALIGN4;//板块
a1:
=cost（95）;
a2:
=cost（5）;
ly:
=（a1-a2）*100/（a1+a2）;
drawicon（ly>ref（ly,1）,l*0.98,8）ALIGN5;
input:
N（3）;
A1:
=REF（H,N）=HHV（H,2*N+1）;B1:
=FILTER（A1,N）;C1:
=BACKSET（B1,N+1）;D1:
=FILTER（C1,N）;{高点}
A2:
=REF（L,N）=LLV（L,2*N+1）;B2:
=FILTER（A2,N）;C2:
=BACKSET（B2,N+1）;D2:
=FILTER（C2,N）;{低点}
E1:
=（REF（LLV（L,2*N）,1）+REF（HHV（H,2*N）,1））/2;E2:
=（H+L）/2;{高低点出现在同一K线上时可作取舍}
H1:
=（D1ANDNOT（D2ANDE1>=E2））ORISLASTBARORBARSCOUNT（C）=1;
L1:
=（D2ANDNOT（D1ANDE1=D1ANDNOT（D2ANDE1>=E2）;
X1:
=REF（BARSLAST（H1）,1）+1;F1:
=BACKSET（H1ANDCOUNT（L1,X1）>0,LLVBARS（IF（L1,L,10000）,X1））;
G1:
=F1>REF（F1,1）;I1:
=BACKSET（G1,2）;LD:
=I1>REF（I1,1）,LINETHICK0;{过滤后低点}
L2:
=LDORISLASTBARORBARSCOUNT（C）=1;
X2:
=REF（BARSLAST（L2）,1）+1;F2:
=BACKSET（L2ANDCOUNT（H2,X2）>0,HHVBARS（IF（H2,H,0）,X2））;
G2:
=F2>REF（F2,1）;I2:
=BACKSET（G2,2）;HD:
=I2>REF（I2,1）,LINETHICK0;{过滤后高点}
///HD:
="jgb.HD"（N）;LD:
="jgb.LD"（N）;
R1:
=BACKSET（ISLASTBAR,BARSLAST（HD）+1）;S1:
=R1>REF（R1,1）;{前一高}
T1:
=BACKSET（ISLASTBAR,BARSLAST（LD）+1）;U1:
=T1>REF（T1,1）;{前一低}
R2:
=BACKSET（S1,REF（BARSLAST（HD）,1）+2）;S2:
=R2>REF（R2,1）;{前二高}
T2:
=BACKSET（U1,REF（BARSLAST（LD）,1）+2）;U2:
=T2>REF（T2,1）;{前二低}
T3:
=BACKSET（U2,REF（BARSLAST（LD）,1）+2）;U3:
=T3>REF（T3,1）;{前三低}
T4:
=BACKSET（U3,REF（BARSLAST（LD）,1）+2）;U4:
=T4>REF（T4,1）;{前四低}
R3:
=BACKSET（S2,REF（BARSLAST（HD）,1）+2）;S3:
=R3>REF（R3,1）;{前三高}
R4:
=BACKSET（S3,REF（BARSLAST（HD）,1）+2）;S4:
=R4>REF（R4,1）;{前四高}
★压力1:
DRAWLINE（S2,H,S1,H,1）,Color80FFFF;
★支撑1:
DRAWLINE（U2,L,U1,L,1）,POINTDOT,Color00FFFF,linethick2;
★压力2:
DRAWLINE（S3,H,S2,H,1）,ColorFF8000;
★支撑2:
DRAWLINE（U3,L,U2,L,1）,POINTDOT,ColorFF8000;
★压力3:
DRAWLINE（S4,H,S3,H,1）,Color0000FF;
★支撑3:
DRAWLINE（U4,L,U3,L,1）POINTDOT,Color0000FF;
DRAWICON（S2,H*1.01,10）;DRAWICON（S3,H*1.01,10）;
DRAWNUMBER（S2,H*1.02,H,2）,COLORMAGENTA;
DRAWNUMBER（S1,H*1.02,H,2）,COLORMAGENTA;
DRAWNUMBER（S3,H*1.02,H,2）,COLORMAGENTA;
DRAWICON（U1,L*0.99,11）;DRAWICON（U2,L*0.99,11）;
DRAWICON（U3,L*0.99,11）;DRAWICON（U4,L*0.99,11）;
DRAWNUMBER（U1,L*0.98,L,2）,COLORCYAN;
DRAWNUMBER（U2,L*0.98,L,2）,COLORCYAN;
DRAWNUMBER（U3,L*0.98,L,2）,COLORCYAN;
DRAWNUMBER（U4,L*0.98,L,2）,COLORCYAN;
STICKLINE（open>=close,close,open,0,0）,COLOR00FF00;
STICKLINE（open>=close,close,open,8,0）,COLOR008800;
STICKLINE（open>=close,close,open,7,0）,COLOR009900;
STICKLINE（open>=close,close,open,6,0）,COLOR00AA00;
STICKLINE（open>=close,close,open,5,0）,COLOR00BB00;
STICKLINE（open>=close,close,open,4,0）,COLOR00CC00;
STICKLINE（open>=close,close,open,3,0）,COLOR00DD00;
STICKLINE（open>=close,close,open,2,0）,COLOR00EE00;
STICKLINE（open>=close,close,open,1,0）,COLOR00FF00;
STICKLINE（close>open,close,open,0,0）,COLORFFBBFF;
STICKLINE（close>open,close,open,8,0）,COLORFF00FF;
STICKLINE（close>open,close,open,7,0）,COLORFF22FF;
STICKLINE（close>open,close,open,6,0）,COLORFF44FF;
STICKLINE（close>open,close,open,5,0）,COLORFF66FF;
STICKLINE（close>open,close,open,4,0）,COLORFF88FF;
STICKLINE（close>open,close,open,3,0）,COLORFF99FF;
STICKLINE（close>open,close,open,2,0）,COLORFFAAFF;
STICKLINE（close>open,close,open,1,0）,COLORFFBBFF;
input:
n（9）,m（3）;
RSV:
=（CLOSE-LLV（LOW,N））/（HHV（HIGH,N）-LLV（LOW,N））*100;
K:
=SMA（RSV,M,1）;
D:
=BARSLAST（CROSS（K,80））;
KH:
=REF（H,D）;
PARTLINE（C预警:
CROSS（C,KH）;
DRAWTEXT（CROSS（C,KH）,L*0.995,'预警'）,COLORGREEN;
KD指标K值上穿80时（条件），取当日最高价，向右画线，直到某日收盘价突破该价格（突破该线），画线结束。
1、作出主图指标；2突破时条件选股（预警）。
XH-Zzig-分段信号
INPUT:
N（20,1,100）;
M:
=（SYSPARAM（4）-SYSPARAM（5））/SYSPARAM（5）*100,LINETHICK0;{确定高低点差}
M1:
=IF（DATATYPE>5,M/6,IF（DATATYPE>3,M/8,M/10））,LINETHICK0;{确定ZIG转向参数}
M1:
IF（M1>1,FLOOR（M1）,CEILING（M1））,LINETHICK0;
z:
=zig（4,M1）;f:
=z-ref（z,1）;
d:
=FILTER（refx（f>0andref（f,1）<0,1）orBARPOS=1,2）;{低点}
wd:
=barslast（d）;{低点位置}
g:
=FILTER（refx（f<0andref（f,1）>0,1）orBARPOS=1,2）;{高点}
wg:
=barslast（g）;{高点位置}
xwd:
=if（sum（wd=0,2）>1,1,wd）linethick0;//低点位置确认
xwg:
=if（sum（wg=0,2）>1,1,wg）linethick0;//高点位置确认
fd:
=hhv（h,xwd）/ref（L,xwd）-1>M1/100;//低点巩固系数
fg:
=1-LLv（L,xwg）/ref（h,xwg）>M1/100;//高点巩固系数
dqz:
=BACKSET（ISLASTBARandwdgqz:
=BACKSET（ISLASTBARandwg{以下输出信号}
dd:
dqz*dorBARPOS=1;{输出低点}
gg:
gqz*gorBARPOS=1;{输出高点}
画圆弧
ng\nd均为16
drawtext（sysparam
（2）=barpos,c,'板块:
'+blkname）,colorccffff,align4;
gg:
="xh-z.gg";//（ng）;
dd:
="xh-z.dd";//（nd）;
p:
=SYSPARAM
（1）;
z:
=gg*h+dd*L;
sd:
=sum（dd,0）;
sdd:
=sd[p]-sd+1;
wx1:
=barssince（sdd=3）;
wx2:
=barssince（sdd=2）;
wx3:
=barssince（sdd=1）;
ry1:
=hhv（（wx1=0）*z,0）;
ry2:
=hhv（（wx2=0）*z,0）;
ry3:
=hhv（（wx3=0）*z,0）;
rx2:
=hhv（（wx2=0）*wx1,wx1+1）;
rx3:
=hhv（（wx3=0）*wx1,wx1+1）;
x2:
=rx2[p];
x3:
=rx3[p];
y1:
=ry1[p];
y2:
=（ry2[p]-ry1[p]）;
y3:
=（ry3[p]-ry1[p]）;
xy:
=POW（x2,2）+POW（y2,2）;
e:
=（x3*xy/x2-（x3*x3+y3*y3））/（y3-x3*y2/x2）;
d:
=-（y2*e+xy）/x2;
y1:
=POW（（d*d+e*e）/4-POW（（wx1+d/2）,2）,0.5）;
y2:
=-POW（（d*d+e*e）/4-POW（（wx1+d/2）,2）,0.5）;
c1:
=ref（L,wx1）-ref（y1,wx1）;
yy:
=（y1+c1）;
c2:
=ref（L,wx1）+ref（y1,wx1）;
ye:
=（y2+c2）;
wyy:
=abs（ref（yy,wx3）-ref（z,wx3））<0.01;
wye:
=abs（ref（ye,wx3）-ref（z,wx3））<0.01;
ifwyy[datacount]then
yy,LINETHICK2,COLORMAGENTA;
ELSE
ye,LINETHICK2,COLORMAGENTA;
sg:
=sum（gg,0）;
sgg:
=sg[p]-sg+1;
wxg1:
=barssince（sgg=3）;
wxg2:
=barssince（sgg=2）;
wxg3:
=barssince（sgg=1）;
ryg1:
=hhv（（wxg1=0）*z,0）;
ryg2:
=hhv（（wxg2=0）*z,0）;
ryg3:
=hhv（（wxg3=0）*z,0）;
rxg2:
=hhv（（wxg2=0）*wxg1,wxg1+1）;
rxg3:
=hhv（（wxg3=0）*wxg1,wxg1+1）;
xg2:
=rxg2[p];
xg3:
=rxg3[p];
yg1:
=ryg1[p];
yg2:
=（ryg2[p]-ryg1[p]）;
yg3:
=（ryg3[p]-ryg1[p]）;
xyg:
=POW（xg2,2）+POW（yg2,2）;
eg:
=（xg3*xyg/xg2-（xg3*xg3+yg3*yg3））/（yg3-xg3*yg2/xg2）;
g:
=-（yg2*eg+xyg）/xg2;
yg1:
=POW（（g*g+eg*eg）/4-POW（（wxg1+g/2）,2）,0.5）;
yg2:
=-POW（（g*g+eg*eg）/4-POW（（wxg1+g/2）,2）,0.5）;
cg1:
=ref（z,wxg1）-ref（yg1,wxg1）;
yyg:
=（yg1+cg1）;
cg2:
=ref（z,wxg1）+ref（yg1,wxg1）;
yeg:
=（yg2+cg2）;
wyyg:
=abs（ref（yyg,wxg3）-ref（z,wxg3））<0.01;
wyeg:
=abs（ref（yeg,wxg3）-ref（z,wxg3））<0.01;
ifwyyg[datacount]then
yyg,LINETHICK2,COLORGREEN;
ELSE
yeg,LINETHICK2,COLORGREEN;
DRAWICON（dd,z,11）;
DRAWICON（gg,z,10）;
波段画线
input:
n（5,5,30）;
fh:
=high;fl:
=low;
///以下找历史最高点，hh1表示最高价，phh1表示最高点位置///
hh1:
=fh[1];phh1:
=1;
fori=1todatacountdo//从第1条K线开始，循环执行下面3条复合语句，直到K线结束
ifhh1hh1:
=fh;phh1:
=i;//用hh1单值变量记录历史最高价,phh1记录位置
end;
///以下找phh1之后的最低点，ll表示最低价，pll最低点位置
ifphh1ll:
=fl[phh1+1];
fori=phh1todatacountdo
ifll>flthenbegin
ll:
=fl;pll:
=i;
end;
end;
///以下用zig转折模拟波段，通过参数n来调整波的分布///
///找历史最高后的波峰最高点，hh2次高价，phh2位置///
tj:
=peakbars（high,n,1）=0;
nstart:
=max（lbound（tj）,phh1+1）;
ifnstart<=datacountthenbegin
hh2:
=0;
fori=nstarttodatacountdo
iftjthenbegin
ifhh2hh2:
=fh;
phh2:
=i;
end;
end;
end;
//////以下画线///////////
drawline（barpos=phh1,high,barpos=phh2,high,1）,colormagenta;
drawline（barpos=phh1,high,barpos=pll,low,1）,coloryellow;
波浪+趋势
{以下语句为新结构波浪}
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;{高低点出现在同一K线上时可作取舍}
H1:
=（D1ANDNOT（D2ANDE1>=E2））ORISLASTBARORBARSCOUNT（CLOSE）=1;
L1:
=（D2ANDNOT（D1ANDE1=D1ANDNOT（D2ANDE1>=E2）;
X1:
=REF（BARSLAST（H1）,1）+1;F1:
=BACKSET（H1ANDCOUNT（L1,X1）>0,LLVBARS（IF（L1,LOW,10000）,X1））;
G1:
=F1>REF（F1,1）;I1:
=BACKSET（G1,2）;LD:
=I1>REF（I1,1）;{过滤后低点}
L2:
=LDORISLASTBARORBARSCOUNT（CLOSE）=1;
X2:
=REF（BARSLAST（L2）,1）+1;F2:
=BACKSET（L2ANDCOUNT（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）,COLORWHITE,LINETHICK1,POINTDOT;
DRAWLINE（HD,H,LD,L,0）,COLORWHITE,LINETHICK1,POINTDOT;
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）,COLORWHITE,LINETHICK1,POINTDOT;
{以上语句为新结构波浪}
A3:
=HB3:
=REF（H,REF（BARSLAST（HD）,1）+1）>REF（H,REF（BARSLAST（HD）,1）+2+REF（BARSLAST（HD）,REF（BARSLAST（HD）,1）+2））;
D3:
=A3ANDB3ANDHD;E3:
=BACKSET（D3,REF（BARSLAST（HD）,1）+2）;HH:
=E3>REF（E3,1）;{找出全部长期高点}
A4:
=L>REF（L,REF（BARSLAST（LD）,1）+1）;
B4:
=REF（L,REF（BARSLAST（LD）,1）+1）D4:
=A4ANDB4ANDLD;E4:
=BACKSET（D4,REF（BARSLAST（LD）,1）+2）;LL:
=E4>REF（E4,
升级会员 