本贴转自:
http://u1046.s6.tt8.cn/ns_detail ... ;cpath=&catid=0
{漓江渔歌}
{N 15 1 100,M1 3 1 50,M2 3 1 50}
VarA:=简单移动平均(收盘价,20);
RSV:=(收盘价-最低值(最低价,27))/(最高值(最高价,27)-最低值(最低价,27));
K:=移动平均(RSV,5,1);
D:=移动平均(K,3,1);
D2:=移动平均(K,2,1);
t1:=(3*K-2*D)*100;
山:=(3*K-2*D)*100;
天空:画区间彩带(t1>-10,0,120),COLORFFFF99;
A1:=简单移动平均(收盘价,5);
A2:=简单移动平均(向前引用(最高值(收盘价,10),1),5);
卖出A:=交叉函数(A2,A1);
A4:=年月日=1020520;
画图标(A4,115,'Z01');
A5:=交叉函数(简单移动平均(收盘价,120),简单移动平均(收盘价,60));
画图标(A5,110,'F03');
桂山:画区间彩带(山,0,山),COLOR00FFAA;
画区间彩带(山,0,山*0.97),COLOR00EE99;
画区间彩带(山,0,山*0.93),COLOR00DD99;
画区间彩带(山,0,山*0.88),COLOR00CC99;
画区间彩带(山,0,山*0.82),COLOR00BB99;
画区间彩带(山,0,山*0.75),COLOR00AA99;
画区间彩带(山,0,山*0.67),COLOR009999;
画区间彩带(山,0,山*0.60),COLOR008899;
画区间彩带(山,0,山*0.53),COLOR007799;
画区间彩带(山,0,山*0.46),COLOR006699;
t2:=((100-山)-100)*2/3;
漓江水:画区间彩带(t1>-10,0,-72),COLORCCFF00;
倒影:=t2;
画区间彩带(倒影,0,倒影),COLOR00EE99;
画区间彩带(倒影,0,倒影*0.96),COLOR00DD99;
画区间彩带(倒影,0,倒影*0.91),COLOR00CC99;
画区间彩带(倒影,0,倒影*0.85),COLOR00BB99;
画区间彩带(倒影,0,倒影*0.78),COLOR00AA99;
画区间彩带(倒影,0,倒影*0.7),COLOR009999;
画区间彩带(倒影,0,倒影*0.61),COLOR008899;
画区间彩带(倒影,0,倒影*0.5),COLOR007799;
顶线:=100-((最高价-VarA)/VarA);Var1:=简单移动平均(收盘价,20);
Var2:=(收盘价-最低值(最低价,27))/(最高值(最高价,27)-最低值(最低价,27));
Var3:=移动平均(Var2,5,1);
Var4:=移动平均(Var3,3,1);
Var5:=移动平均(Var3,2,1);
Var6:=(3*Var3-2*Var4)*100;
Var8:=100-(最高价-Var1)/Var1;
Var9:=(收盘价-最低值(最低价,15))/(最高值(最高价,15)-最低值(最低价,15))*100;
VarA:=移动平均(Var9,3,1);
VarB:=移动平均(VarA,3,1);
VarC:=Var6 < 10;
VarD:=VarA < 16 AND VarB < 21;
VarE:=Var6>=88 OR Var8<=90;
VarF:=交叉函数(Var8,Var6) OR 交叉函数(90,Var6);
Var10:=VarC OR VarD;
打渔船: 显示文字(信号过滤(Var10,2),-35,'︼'), COLORRED;
Var11:=VarE OR VarF;
南归雁: 显示文字(信号过滤(Var11,2),97,'＞'),COLORff9966;
a:=(3*收盘价+最低价+开盘价+最高价)/6;
b:=(20*a+19*向前引用(a,1)+18*向前引用(a,2)+17*向前引用(a,3)+16*向前引用(a,4)+15*向前引用(a,5)+14*向前引用(a,6)+13*向前引用(a,7)+12*向前引用(a,8)+11*向前引用(a,9)+10*向前引用(a,10)+9*向前引用(a,11)+8*向前引用(a,12)+7*向前引用(a,13)+6*向前引用(a,14)+5*向前引用(a,15)+4*向前引用(a,16)+3*向前引用(a,17)+2*向前引用(a,18)+向前引用(a,20))/210;
d:=简单移动平均(b,10);
持仓:画柱线(b>d,103 ,107,6,1 ) colorFFCC00 linethick2;
空仓:画柱线(b<d,103 ,107,6,1 ) colorgreen linethick2;
