【图】个股趋势

CODE: [Copy to clipboard]   
{个股趋势}
input:n(12,1,111);
o0:=开盘价;
c0:=收盘价;
h0:=最高价;
l0:=最低价;
画柱线(c0=o0 and c0>向前引用(c0,1),c0,o0,8,0),Color0000FF;
画柱线(c0=o0 and c0<向前引用(c0,1),c0,o0,8,0),ColorA6FF00;
画柱线(c0=o0 and c0>向前引用(c0,1),h0,l0,0,0),Color0000FF;
画柱线(c0=o0 and c0<向前引用(c0,1),h0,l0,0,0),ColorA6FF00;
画柱线(c0>o0,h0,l0,0,0),Color0000FF;
画柱线(c0<o0,h0,l0,0,0),ColorA6FF00;
画柱线(c0>o0,c0,o0,8,1),Color0000FF;
画柱线(c0<o0,c0,o0,8,0),ColorA6FF00;

a:简单移动平均(c0,n);
b:=a-向前引用(a,1);
ab:=条件函数(b>0,求相反数(b),b);
k:向前引用(a,1)+ab;
d:a+绝对值(a-k);
cd:=条件函数(b>0,b,求相反数(b));
s:向前引用(a,1)+cd;
画图标(交叉函数(s,d),h0*1.02,5);
画图标(交叉函数(d,s),l0,4);
画柱线(s>d and 是否最后周期,最高值(h0,60),最低值(l0,60),1,0),ColorA6FF00,shift2;
画柱线(s<d and 是否最后周期,最高值(h0,60),最低值(l0,60),1,0),Color0000FF,shift2;
画柱线(s>d and 是否最后周期,c0,向前引用(h0,上一次条件成立位置(交叉函数(s,d))),20,0),ColorA6FF00,shift2;
画柱线(s<d and 是否最后周期,c0,向前引用(l0,上一次条件成立位置(交叉函数(d,s))),20,0),Color0000FF,shift2;

显示文字(系统参数(2)=有效值周期数(C0),h0,证券名称),ALIGN4,COLORWHITE;


y0:=趋势线数值(求和(向后引用(是否最后周期,0),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y:=趋势线数值(求和(向后引用(是否最后周期,1),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y02:=趋势线数值(求和(向后引用(是否最后周期,2),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y1:=趋势线数值(求和(向后引用(是否最后周期,3),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y2:=趋势线数值(求和(向后引用(是否最后周期,5),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y3:=趋势线数值(求和(向后引用(是否最后周期,7),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y4:=趋势线数值(求和(向后引用(是否最后周期,9),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y5:=趋势线数值(求和(向后引用(是否最后周期,11),0)=0,最高价,是否最后周期,最高价,0,1),linethick2;
y60:=趋势线数值(求和(向后引用(是否最后周期,20),0)=0,最高值(最高价,60),是否最后周期,最高价,0,1),linethick2;

z0:=趋势线数值(求和(向后引用(是否最后周期,0),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z:=趋势线数值(求和(向后引用(是否最后周期,1),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z02:=趋势线数值(求和(向后引用(是否最后周期,2),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z1:=趋势线数值(求和(向后引用(是否最后周期,3),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z2:=趋势线数值(求和(向后引用(是否最后周期,5),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z3:=趋势线数值(求和(向后引用(是否最后周期,7),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z4:=趋势线数值(求和(向后引用(是否最后周期,9),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z5:=趋势线数值(求和(向后引用(是否最后周期,11),0)=0,最低价,是否最后周期,最低价,0,1),linethick2;
z60:=趋势线数值(求和(向后引用(是否最后周期,20),0)=0,最低值(最低价,60),是否最后周期,最低价,0,1),linethick2;
dy1:=符号值(收盘价-开盘价);
dzc:=符号值(收盘价-向前引用(收盘价,1));
dcx:=符号值(最高价-向前引用(最高价,1));
xgd:=最高价-最高值(最高价,60)=0;
xdd:=最低价-最低值(最低价,60)=0;
qs:符号值(y0-向前引用(y0,1))+符号值(y-向前引用(y,1))+符号值(y02-向前引用(y02,1))+符号值(y1-向前引用(y1,1))+符号值(y2-向前引用(y2,1))+符号值(y3-向前引用(y3,1))+符号值(y4-向前引用(y4,1))+符号值(y5-向前引用(y5,1))
+符号值(z0-向前引用(z0,1))+符号值(z-向前引用(z,1))+符号值(z02-向前引用(z02,1))+符号值(z1-向前引用(z1,1))+符号值(z2-向前引用(z2,1))+符号值(z3-向前引用(z3,1))+符号值(z4-向前引用(z4,1))+符号值(z5-向前引用(z5,1))
+dy1+dzc+dcx+xgd+xdd*-1,linethick0;

显示文字(是否最后周期,最高价*条件函数(xdd=-20,1.14,1.02),'  '+数字转化为字符串(qs,0)),colorgreen,align1,shift2;

显示文字(是否最后周期 and qs<=-5,最高价*条件函数(xdd=-20,1.14,1.02),' \n'+'  个股趋势非常恶劣\n'+'  坚决清仓出局!'),colorgreen,align1,shift2;
显示文字(是否最后周期 and qs=-20,最高价*条件函数(xdd=-20,1.14,1.02),' \n'+' \n'+' \n'+'  创60天新低!'),colorgreen,align1,shift2;
显示文字(是否最后周期 and 介于(qs,-5,7),最高价,' \n'+'  个股趋势疲软\n'+'  减仓看跌!'),coloryellow,align1,shift2;
显示文字(是否最后周期 and 介于(qs,7,20),最高价,' \n'+'  个股趋势健康\n'+'  坚决持股或买进!'),COLORMAGENTA,align1,shift2;
显示文字(是否最后周期 and qs=20,最高价,' \n'+'  个股趋势健康\n'+'  创出60天新高!'),shift2;股票论坛 www.55188.com