软件名称:[B]趋势线画法[/B]
软件类型:国产软件
运行环境:Win9X/2000/XP/2003/
软件语言:简体中文
授权方式:解密版
软件大小:2.00 KB
官方主页:Home Page
更新时间:2008-11-10 20:08:12
软件简介:
{--画线趋势---------------------------------------------------------}
INPUT:p1(3);
N:=p1;{原码 N:=3;}
A1:=向前引用(最高价,N)=最高值(最高价,2*N+1); B1:=信号过滤(A1,N); C1:=向前赋值(B1,N+1);
D1:=信号过滤(C1,N);{高点}
A2:=向前引用(最低价,N)=最低值(最低价,2*N+1); B2:=信号过滤(A2,N); C2:=向前赋值(B2,N+1);
D2:=信号过滤(C2,N);{低点}
E1:=(向前引用(最低值(最低价,2*N),1)+向前引用(最高值(最高价,2*N),1))/2; E2:=(最高价+最低价)/2;{高低点出现
在同一K线上时可作取舍}
H1:=(D1 AND 求逻辑非(D2 AND E1>=E2)) OR 是否最后周期 OR 有效值周期数(收盘价)=1;
L1:=(D2 AND 求逻辑非(D1 AND E1<E2)); H2:=D1 AND 求逻辑非(D2 AND E1>=E2);
X1:=向前引用(上一次条件成立位置(H1),1)+1; F1:=向前赋值(H1 AND 统计总数(L1,X1)>0,上一低点位置
(条件函数(L1,最低价,10000),X1));
G1:=F1>向前引用(F1,1); I1:=向前赋值(G1,2); LD:=I1>向前引用(I1,1),LINETHICK0;{过
滤后低点}
L2:=LD OR 是否最后周期 OR 有效值周期数(收盘价)=1;
X2:=向前引用(上一次条件成立位置(L2),1)+1; F2:=向前赋值(L2 AND 统计总数(H2,X2)>0,上一高点位置
(条件函数(H2,最高价,0),X2));
G2:=F2>向前引用(F2,1); I2:=向前赋值(G2,2); HD:=I2>向前引用(I2,1),LINETHICK0;{过
滤后高点}
///HD:="jgb.HD"(N);LD:="jgb.LD"(N);
R1:=向前赋值(是否最后周期,上一次条件成立位置(HD)+1); S1:=R1>向前引用(R1,1); {前一高}
T1:=向前赋值(是否最后周期,上一次条件成立位置(LD)+1); U1:=T1>向前引用(T1,1); {前一低}
R2:=向前赋值(S1,向前引用(上一次条件成立位置(HD),1)+2); S2:=R2>向前引用(R2,1); {前二高}
T2:=向前赋值(U1,向前引用(上一次条件成立位置(LD),1)+2); U2:=T2>向前引用(T2,1); {前二低}
T3:=向前赋值(U2,向前引用(上一次条件成立位置(LD),1)+2); U3:=T3>向前引用(T3,1); {前三低}
T4:=向前赋值(U3,向前引用(上一次条件成立位置(LD),1)+2); U4:=T4>向前引用(T4,1); {前四低}
R3:=向前赋值(S2,向前引用(上一次条件成立位置(HD),1)+2); S3:=R3>向前引用(R3,1); {前三高}
R4:=向前赋值(S3,向前引用(上一次条件成立位置(HD),1)+2); S4:=R4>向前引用(R4,1); {前四高}
★压力1:画直线(S2,最高价,S1,最高价,1),Color80FFFF,linethick2;
★支撑1:画直线(U2,最低价,U1,最低价,1),点状线,Color00FFFF,linethick2;
★压力2:画直线(S3,最高价,S2,最高价,1),ColorFF8000,linethick2;
★支撑2:画直线(U3,最低价,U2,最低价,1),点状线,ColorFF8000,linethick2;
★压力3:画直线(S4,最高价,S3,最高价,1),Color0000FF,linethick2;
★支撑3:画直线(U4,最低价,U3,最低价,1)点状线,Color0000FF,linethick2;
画图标(S2,最高价*1.01,10); 画图标(S3,最高价*1.01,10);
显示数字(S2,最高价*1.02,最高价,2),COLORMAGENTA;
显示数字(S1,最高价*1.02,最高价,2),COLORMAGENTA;
显示数字(S3,最高价*1.02,最高价,2),COLORMAGENTA;
画图标(U1,最低价*0.99,11); 画图标(U2,最低价*0.99,11);
画图标(U3,最低价*0.99,11);画图标(U4,最低价*0.99,11);
显示数字(U1,最低价*0.98,最低价,2),COLORCYAN;
显示数字(U2,最低价*0.98,最低价,2),COLORCYAN;
显示数字(U3,最低价*0.98,最低价,2),COLORCYAN;
显示数字(U4,最低价*0.98,最低价,2),COLORCYAN;
[url=http://www.70822.com/soft/sort013/sort02/down-4309.html]趋势线画法[/url]