琴心之大道至简(主图)  

a:=(3*CLOSE+LOW+OPEN+HIGH)/6;
中轴:  MA(CLOSE,21),color0000FF,linethick1;
压力:中轴 + 2*STD(CLOSE,21),color0000FF,linethick1;
支撑: 中轴 - 2*STD(CLOSE,21),color0000FF,linethick1;
A1:=MA(CLOSE,20);
ZX:=REF(A1,20/2+1),LINETHICK2,;
LIFE:(EMA(CLOSE,60)+EMA(CLOSE,90))/2,LINETHICK0,;
Var1:=(2*CLOSE+HIGH+LOW)/4;
SNOOK:EMA(Var1,99)*0.91,linethick0,;
STICKLINE(CLOSE>ZX,HIGH,LOW,1,0),,COLORYELLOW;
STICKLINE(CLOSE>ZX AND CLOSE>=LIFE,OPEN,CLOSE,8,0),,COLORRED;
STICKLINE(CLOSE>ZX AND CLOSE<=SNOOK,OPEN,CLOSE,8,0),,COLORGRAY;
STICKLINE(CLOSE>ZX AND CLOSE>SNOOK AND CLOSE<LIFE,OPEN,CLOSE,8,0),,COLORMAGENTA;
A1:=MA(CLOSE,20);
ZX:=REF(A1,20/2+1),LINETHICK2,COLORGREEN;
LIFE1:(EMA(CLOSE,60)+EMA(CLOSE,90))/2,LINETHICK0,COLORCC33FF;
Var1:=(2*CLOSE+HIGH+LOW)/4;
SNOOK1:EMA(Var1,99)*0.91,linethick0,COLORBLUE;
STICKLINE(CLOSE<ZX,HIGH,LOW,1,0),,COLORYELLOW;
STICKLINE(CLOSE<ZX AND CLOSE<=LIFE1,OPEN,CLOSE,8,0),,COLORBLUE;
STICKLINE(CLOSE<ZX AND CLOSE>=SNOOK1,OPEN,CLOSE,8,0),,COLORGREEN;
STICKLINE(CLOSE<ZX AND CLOSE<SNOOK1 AND CLOSE>LIFE,OPEN,CLOSE,8,0),,COLORGRAY;
画柱线(1,收盘价,开盘价,2,0),COLORWHITE;

琴心之半壁河山

    DRAWGBK(CLOSE>0, COLORRGB(1,8888,8888), COLORRGB(1,3333,6666),3);
CG:ma(C,17),;
FL3:hhv(CG,9),COLORred,linethick1;
FS3:if(CG<FL3,(CG-(FL3-CG)),FL3),COLORred,linethick1;
A1:=简单移动平均(收盘价,20);
ZX:=向前引用(A1,20/2+1),LINETHICK2,COLORGREEN;
LIFE:(指数平滑移动平均(收盘价,60)+指数平滑移动平均(收盘价,90))/2,LINETHICK0,COLORCC33FF;
Var1:=(2*收盘价+最高价+最低价)/4;
SNOOK:指数平滑移动平均(Var1,99)*0.91,linethick0,COLORBLUE;
画柱线(收盘价<ZX,最高价,最低价,1,0),,COLORYELLOW;
画柱线(收盘价<ZX AND 收盘价<=LIFE,开盘价,收盘价,8,0),,COLORBLUE;
画柱线(收盘价<ZX AND 收盘价>=SNOOK,开盘价,收盘价,8,0),,COLORGREEN;
画柱线(收盘价<ZX AND 收盘价<SNOOK AND 收盘价>LIFE,开盘价,收盘价,8,0),,COLORGRAY;
画柱线(收盘价<ZX,开盘价,收盘价,2,0),,COLORWHITE;

琴心之春花秋月  

Var5:=最低值(最低价,75);
Var6:=最高值(最高价,75);
Var7:=(Var6-Var5)/200;
Var8:=移动平均((收盘价-Var5)/Var7,20,1);
VarA:=3*Var8-2*移动平均(Var8,15,1);
主力: (100-VarA),LINETHICK2,COLOR3300FF;
yyu:=指数平滑移动平均((收盘价+最低价+最高价)/3,3);
a8:=绝对值(指数平滑移动平均(收盘价,100)-指数平滑移动平均(收盘价,10))/指数平滑移动平均((收盘价+最低价+最高价)/3,3)*收盘价*2+指数平滑移动平均((收盘价+最低价+最高价)/3,3);
a9:=绝对值(指数平滑移动平均(收盘价,100)-指数平滑移动平均(收盘价,10))/指数平滑移动平均((收盘价+最低价+最高价)/3,3)*收盘价+指数平滑移动平均((收盘价+最低价+最高价)/3,3);
X:=(a8-yyu)/(a8+yyu)*500;
xxccc:=(x-50)*2;
天龙:画柱线(xxccc<向前引用(xxccc,1),100 ,110,10,0 ) colorffbb44 ;
画柱线(xxccc>向前引用(xxccc,1),100 ,110,10,0) color44aaff ;
画柱线(xxccc<向前引用(xxccc,1),-100 ,-110,10,0 ) color44aaff ;
画柱线(xxccc>向前引用(xxccc,1),-100 ,-110,10,0 ) colorffbb44 ; ;
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 ) colorred linethick2;
空仓:画柱线(b<d,103 ,107,6,1 ) colorgreen linethick2;
中轴:50 coloryellow 点状线;
强势:80 colorred 点状线;
DIFF :=( 指数平滑移动平均(收盘价,20) - 指数平滑移动平均(收盘价,90))*100;
DEA  :=指数平滑移动平均(DIFF,45);
MACD :=2*(DIFF-DEA);
天时:画柱线(DIFF>=0,0,DIFF,8,0),COLORRED;
地利:画柱线(DIFF<0,0,DIFF,8,0),COLOR00FF00;
画柱线(DEA>=0,0,DEA,8,0),COLORBLUE;
画柱线(DEA<0,0,DEA,8,0),COLORYELLOW;

琴心之天涯漫漫(辅图)  

零雨 : EMA(CLOSE,5) - EMA(CLOSE,35),LINETHICK1,COLORBLUE;
家园  : EMA(零雨,5),COLORYELLOW,LINETHICK1;
明月和尚 : 2*(零雨-家园), COLORSTICK;
Y:=(HIGH+LOW)/2;
AO:=MA(Y ,5 )-MA(Y ,34 );
AC:AO-MA( AO,5),linethick0;
ac1:=REF(AC,1);
DU0:=CROSS(AC,0);
UD0:=CROSS(0,AC);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)),COLORYELLOW;
JDU0:=REF(CLOSE,1)<=REF(UDGLINE,1) AND CLOSE>UDGLINE AND TDU0<TUD0;
JUD0:=REF(CLOSE,1)>=REF(UDGLINE,1) AND CLOSE<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND 统计总数(JUD0,TUD0)=1;
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;
DRAWICON(JDU1 OR BARSLAST(JDU1)<BARSLAST(JUD1),0,10),ALIGN4;
DRAWICON(JUD1 OR BARSLAST(JDU1)>BARSLAST(JUD1),0,11),ALIGN5;

琴心之黑山老妖(辅图)  

    ABV:=MA(SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0)/25000,2);
M1:=eMA(ABV,13);
tj:=(abv-m1)*6;
tj3:=(abv-m1)/m1>0.2;
STICKLINE( 1,abv,ref(abv,1),tj ,1), COLORGREEN;
stickline(tj3,abv,ref(abv,1),tj,1), COLORBLUE;
stickline(abv>m1,abv,ref(abv,1),1,1),COLORRED;
stickline(abv<m1,abv,ref(abv,1),1,1), COLORRED ;

琴心之金蛇朗君(主图)  

    画渐变背景色(收盘价>0, RGB颜色值(1,8888,8888), RGB颜色值(1,3333,6666),3);
Var1:=(2*收盘价+最高价+最低价)/4*1;
Var4:=(2*收盘价+最高价+最低价)/4;
成本:指数平滑移动平均(Var4,90)*0.995,COLORGREEN,linethick2;
伏击: 指数平滑移动平均(Var4,142)*0.998, COLORMAGENTA,linethick2;
长底:指数平滑移动平均(Var4,250)*0.885,COLORYELLOW,linethick2;
阻击: 条件函数(年月日<1330608,指数平滑移动平均(Var1,99)*0.91*1,3), COLORRED,linethick2;
画图标(收盘价>=简单移动平均(收盘价,55),简单移动平均(收盘价,55),10);
画图标(收盘价<简单移动平均(收盘价,55),简单移动平均(收盘价,55),11);{主图叠}
CG:简单移动平均(收盘价,17),colorgreen;
FL3:最高值(CG,9),COLORred,linethick2;
FS3:条件函数(CG<FL3,(CG-(FL3-CG)),FL3),COLORred,linethick2;
A1:=简单移动平均(收盘价,20);
ZX:=向前引用(A1,20/2+1),LINETHICK2,;
LIFE:(指数平滑移动平均(收盘价,60)+指数平滑移动平均(收盘价,90))/2,LINETHICK0,;
Var1:=(2*收盘价+最高价+最低价)/4;
SNOOK:指数平滑移动平均(Var1,99)*0.91,linethick0,;
画柱线(收盘价>ZX,最高价,最低价,1,0),,COLORYELLOW;
画柱线(收盘价>ZX AND 收盘价>=LIFE,开盘价,收盘价,8,0),,COLORRED;
画柱线(收盘价>ZX AND 收盘价<=SNOOK,开盘价,收盘价,8,0),,COLORGRAY;
画柱线(收盘价>ZX AND 收盘价>SNOOK AND 收盘价<LIFE,开盘价,收盘价,8,0),,COLORMAGENTA;
画柱线(收盘价>ZX,开盘价,收盘价,2,0),,COLORWHITE;
A1:=简单移动平均(收盘价,20);
ZX:=向前引用(A1,20/2+1),LINETHICK2,COLORGREEN;
LIFE1:(指数平滑移动平均(收盘价,60)+指数平滑移动平均(收盘价,90))/2,LINETHICK0,COLORCC33FF;
Var1:=(2*收盘价+最高价+最低价)/4;
SNOOK1:指数平滑移动平均(Var1,99)*0.91,linethick0,COLORBLUE;
画柱线(收盘价<ZX,最高价,最低价,1,0),,COLORYELLOW;
画柱线(收盘价<ZX AND 收盘价<=LIFE1,开盘价,收盘价,8,0),,COLORBLUE;
画柱线(收盘价<ZX AND 收盘价>=SNOOK1,开盘价,收盘价,8,0),,COLORGREEN;
画柱线(收盘价<ZX AND 收盘价<SNOOK1 AND 收盘价>LIFE,开盘价,收盘价,8,0),,COLORGRAY;
画柱线(收盘价<ZX,开盘价,收盘价,2,0),,COLORWHITE;

琴心之看破红尘(量图)  

    AAA:=收盘价*9.819866245-14.180133755*向前引用(收盘价,1)-1.680133755*向前引用(收盘价,2)-1.346800422*向前引用(收盘价,3)
-1.096800422*向前引用(收盘价,4)-0.896800422*向前引用(收盘价,5)-0.730133755*向前引用(收盘价,6)-0.587276612*向前引用(收盘价,7)
-0.462276612*向前引用(收盘价,8)-0.351165501*向前引用(收盘价,9)-0.251165501*向前引用(收盘价,10)-0.16025641*向前引用(收盘价,11)
-0.076923077*向前引用(收盘价,12);
BBB:=收盘价*29.88179001-36.11820999*向前引用(收盘价,1)-2.61820999*向前引用(收盘价,2)-2.284876657*向前引用(收盘价,3)
-2.034876657*向前引用(收盘价,4)-1.834876657*向前引用(收盘价,5)-1.66820999*向前引用(收盘价,6)-1.525352848*向前引用(收盘价,7)
-1.400352848*向前引用(收盘价,8)-1.289241736*向前引用(收盘价,9)-1.189241736*向前引用(收盘价,10)-1.098332646*向前引用(收盘价,11)
-1.014999312*向前引用(收盘价,12)-0.938076235*向前引用(收盘价,13)-0.866647664*向前引用(收盘价,14)-0.799980997*向前引用(收盘价,15)
-0.737480997*向前引用(收盘价,16)-0.678657468*向前引用(收盘价,17)-0.623101912*向前引用(收盘价,18)-0.570470333*向前引用(收盘价,19)
-0.520470333*向前引用(收盘价,20)-0.472851286*向前引用(收盘价,21)-0.42739674*向前引用(收盘价,22)-0.383918479*向前引用(收盘价,23)
-0.342251813*向前引用(收盘价,24)-0.302251813*向前引用(收盘价,25)-0.263790274*向前引用(收盘价,26)-0.226753237*向前引用(收盘价,27)
-0.191038951*向前引用(收盘价,28)-0.156556193*向前引用(收盘价,29)-0.12322286*向前引用(收盘价,30)-0.090964795*向前引用(收盘价,31)
-0.059714795*向前引用(收盘价,32)-0.029411765*向前引用(收盘价,33);
高:=(3-BBB/AAA)*100;
上:=最高值(高,2);
收:=简单移动平均(高,3)-估算标准差(高,3);
开:=简单移动平均(高,5)-估算标准差(高,4);
低:=简单移动平均(高,5)-估算标准差(高,4);
MID1:=  简单移动平均(收,26);
画渐变背景色(上=高,RGB颜色值(150,0,0),RGB颜色值(100,50,0),1);
画渐变背景色(上<>高,RGB颜色值(0,150,0),RGB颜色值(0,80,0),1);
画渐变背景色(MID1>向前引用(MID1,1) AND 上<>高,RGB颜色值(150,50,0),RGB颜色值(0,150,0),1);
画渐变背景色(MID1<向前引用(MID1,1) AND 上=高,RGB颜色值(0,150,0),RGB颜色值(150,0,0),1);
显示文字(上=高 AND MID1>向前引用(MID1,1) AND 是否最后周期=1,MID1,' ←变红走强↑'),COLORYELLOW;
显示文字(上<>高 AND MID1<向前引用(MID1,1) AND 是否最后周期=1,MID1,' ←变绿走弱↓'),COLORCYAN;
显示文字(MID1>向前引用(MID1,1) AND 上<>高 AND 是否最后周期=1,MID1,' ←强势调整↓'),COLORMAGENTA;
显示文字(MID1<向前引用(MID1,1) AND 上=高 AND 是否最后周期=1,MID1,' ←弱势反弹↑'),COLORWHITE;
实际成交量: 成交量, 成交量柱状线;
画柱线(收盘价>向前引用(收盘价,1),0,实际成交量,8,0),COLORRED;
画柱线(收盘价>向前引用(收盘价,1),0,实际成交量,6,0),COLOR0066FF;
画柱线(收盘价>向前引用(收盘价,1),0,实际成交量,4,0),COLOR0099FF;
画柱线(收盘价>向前引用(收盘价,1),0,实际成交量,2,0),COLORYELLOW;
画柱线(收盘价<=向前引用(收盘价,1),0,实际成交量,8,0),COLORFF0000;
画柱线(收盘价<=向前引用(收盘价,1),0,实际成交量,6,0),COLORFF6600;
画柱线(收盘价<=向前引用(收盘价,1),0,实际成交量,4,0),COLORFF9900;
画柱线(收盘价<=向前引用(收盘价,1),0,实际成交量,2,0),COLORCYAN;
短剑:简单移动平均(成交量,30), , COLORRED,linethick2;
平剑: 简单移动平均(成交量,60), , COLORGREEN,linethick2;
慢剑:简单移动平均(成交量,90), , COLORYELLOW,linethick2;
木剑:简单移动平均(成交量,250), , colorffcc33,linethick2;

琴心之漓江渔歌(辅图)  

    {漓江渔歌}
{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;

MACD解盘  

    INPUT:n(20);

DIFF: 指数平滑移动平均(收盘价,12) - 指数平滑移动平均(收盘价,26),COLORYELLOW,LINETHICK2;
DEA1:=指数平滑移动平均(DIFF,9);0.10;
MACD: 2*(DIFF-DEA1),LINETHICK0;
画柱线(MACD>0,0,MACD,8,1),COLORRED;
画柱线(MACD<0,0,MACD,8,1),COLORCYAN;
DEA: 指数平滑移动平均(DIFF,9),COLORGREEN;
画分段线(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;
画分段线(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;
画图标(交叉函数(DIFF,DEA),DIFF-0.01,6);
画图标(交叉函数(DEA,DIFF),DIFF,11);
Var1:=指数平滑移动平均(收盘价,34)-指数平滑移动平均(收盘价,5);
Var2:=指数平滑移动平均(Var1,5);
趋势:=(-3)*(Var1-Var2), 彩色棒状线;
显示解盘文字(趋势>0,'Z线趋势上升中\n');
显示解盘文字(趋势<0,'Z线趋势下降中\n');
显示解盘文字(交叉函数(趋势,0),'Z线考虑买入\n');
显示解盘文字(交叉函数(0,趋势),'Z线考虑卖出\n');
Var11:=简单移动平均((成交量/(最高价-最低价)),4);
Var33:=绝对值(收盘价-开盘价);
Var44:=成交量/(最高价-最低价);
显示解盘文字(Var44<var11 AND Var33<简单移动平均(Var33,4),'资金无入场意愿，萎缩中\n');
显示解盘文字(Var44<var11 AND Var33>简单移动平均(Var33,4),'场内资金运作行为\n');
显示解盘文字(Var44>var11 AND Var33<简单移动平均(Var33,4),'多空双方激烈争夺中\n');
显示解盘文字(Var44>var11 AND Var33>简单移动平均(Var33,4),'场外资金介入（或出局）意愿强烈\n');
TR := 求和(最大值(最大值(最高价-最低价,绝对值(最高价-向前引用(收盘价,1))),绝对值(最低价-向前引用(收盘价,1))),14);
HD := 最高价-向前引用(最高价,1);
LD := 向前引用(最低价,1)-最低价;
DMP:= 求和(条件函数(HD>0 AND HD>LD,HD,0),14);
DMM:= 求和(条件函数(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= 简单移动平均(绝对值(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+向前引用(ADX,6))/2;
显示解盘文字(交叉函数(pdi,mdi),'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号\n');
显示解盘文字(交叉函数(mdi,pdi),'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号\n');
显示解盘文字(adx< 向前引用(adx,1) and adx<20,'ADX值递减，降到20以下，且横向行进时，市场气氛为盘整\n');
显示解盘文字(adx< 向前引用(adx,1) and 向前引用(adx,1)<向前引用(adx,2) and 向前引用(adx,2)>向前引用(adx,3) and 向前引用(adx,3)>向前引用(adx,4),'ADX值从上升倾向转为下降时，表明行情即将反转\n');
RSV:=(收盘价-最低值(最低价,9))/(最高值(最高价,9)-最低值(最低价,9))*100;
K:=移动平均(RSV,3,1);
D:=移动平均(K,3,1);
J:=3*K-2*D;
显示解盘文字(1=1,'下面为:macd,KDJ,CCI,W&R,RSI,MTM等指标的判断:');
显示解盘数值(1=1,'（中标）macd=',macd,2,1);
显示解盘文字(macd>0 and diff>0,'大势属多头市场\n');
显示解盘文字(macd>0.35,'超买中，随时有可能见顶回落\n');
显示解盘文字(macd<0 and diff<0,'大势属空头市场\n');
显示解盘文字(macd<-0.35,'超卖中，随时有可能反弹\n');
显示解盘文字(交叉函数(diff,dea) and 交叉函数(macd,0),'上穿o轴，可考虑买入\n');
显示解盘文字(交叉函数(j,k) and k<50,'KDJ金叉\n');
显示解盘文字(交叉函数(k,d) and k>70,'KDJ死叉\n');
显示解盘文字(j>84,'KDJ指标高位');显示解盘文字(j<16,'KDJ指标低位\n');
TYP := (最高价 + 最低价 + 收盘价)/3;
cci:=(TYP-简单移动平均(TYP,14))/(0.015*平均绝对偏差(TYP,14));
显示解盘文字(cci<-180,'CCI指标底位，买入机会\n');
显示解盘文字(cci>180,'CCI指标高位，卖出机会\n');
显示解盘数值(1=1,'（短标）cci=',cci,2,1);
显示解盘数值(1=1,'换手率=',成交量/流通盘大小*100,2,1);
显示解盘文字((成交量/流通盘大小)>0.075,'换手过大，小心主力出逃，短期头部\n');
wr:=-100*(最高值(最高价,14)-收盘价)/(最高值(最高价,14)-最低值(最低价,14));
显示解盘数值(1=1,'威廉指标（短标）=',wr,2,1);
显示解盘文字(wr>-20,'W&R超买，短线即将见顶，应及时卖出\n');
显示解盘文字(wr<-80,'W&R超卖，短线即将见底，应伺机买进\n');
MTM := 收盘价-向前引用(收盘价,6);
MTMMA := 简单移动平均(MTM,6);
显示解盘文字(交叉函数(MTM,MTMMA) and MTMMA<-0.8,'MTM从下向上突破MTMMA，买入信号\n');
显示解盘文字(交叉函数(MTMMA,MTM) and MTMMA>0.8,'MTM从上向下跌破MTMMA，卖出信号\n');

LC := 向前引用(收盘价,1);
RSI1:=移动平均(最大值(收盘价-LC,0),6,1)/移动平均(绝对值(收盘价-LC),6,1)*100;
RSI2:=移动平均(最大值(收盘价-LC,0),12,1)/移动平均(绝对值(收盘价-LC),12,1)*100;
显示解盘数值(1=1,'相对强弱RSI1=',RSI1,2,1);
显示解盘文字(RSI1>85,'6日RSI超买,防止回挡\n');
显示解盘文字(RSI1>80,'6日RSI向上突破85，超买,考虑卖出\n');
显示解盘文字(RSI1<15,'6日RSI超卖,随时有可能反弹\n');
显示解盘文字(RSI1<15,'6日RSI向下跌破15，超卖，考虑买入\n');
显示解盘文字(交叉函数(RSI1,15),'6日RSI向上突破15，买进信号\n');
显示解盘文字(交叉函数(RSI1,85),'6日RSI向下跌破85，卖出信号\n');
psy:=统计总数(收盘价>向前引用(收盘价,1),12)/12*100;
显示解盘数值(1=1,'12天心理线,PSY=',psy,2,1);
显示解盘数值(1=1,'获利盘比例=',获利盘比例(收盘价)*100,2,1);
显示解盘数值(1=1,'套牢盘比例=',100-获利盘比例(收盘价)*100,2,1);
Aa:=(指数平滑移动平均(收盘价,30)*2+简单移动平均(收盘价,60))/3;
Ra:=(成交量*收盘价);
VL1a:=指数平滑移动平均(Ra,13)/指数平滑移动平均(成交量,13);
VL2a:=指数平滑移动平均(Ra,60)/指数平滑移动平均(成交量,60);
VLa:=指数平滑移动平均((VL1a+VL2a)/2,3);
分水岭:=简单移动平均((Aa+VLa)/2,1);
显示解盘数值(1=1,'分水岭（中长标）=',分水岭,2,1);
显示解盘文字(收盘价>分水岭,'股价在分水岭之上,大势属多头,可积极做多\n');
显示解盘文字(收盘价<分水岭,'股价在分水岭之下,大势属空头,超跌只能抢反弹\n');
BBI:=(简单移动平均(收盘价,3)+简单移动平均(收盘价,6)+简单移动平均(收盘价,12)+简单移动平均(收盘价,24))/4;
UPR:=BBI+3*估算标准差(BBI,10);
DWN:=BBI-3*估算标准差(BBI,10);
var55:=(UPR-DWN)/UPR<0.03;
var56:=(UPR-DWN)/UPR>0.18;
var57:=(简单移动平均(收盘价,60)-简单移动平均(收盘价,5))/简单移动平均(收盘价,60)>0.15;
var58:=(简单移动平均(收盘价,5)-简单移动平均(收盘价,60))/简单移动平均(收盘价,5)>0.15;
显示解盘文字(var55,'多空布林收敛中，有变盘的可能，上下自己分析\n');
显示解盘文字(var57 and var56 and 收盘价>开盘价 ,'布林上下乖离太大，有反弹的

谢谢支持原码分享

okokok!!

谢谢支持原码分享

谢谢支持原码分享

首先谢谢，然后下载学习收藏

首先谢谢，支持原码分享

谢谢支持原码分享

谢谢支持原码分享

谢谢，学了不少

谢谢支持原码分享

谢谢支持原码分享

谢谢支持原码分享