大智慧老张解盘未加密选股指标公式源码

大智慧老张解盘未加密选股指标公式源码

源码正文：

多空２:=ema(c,148){XG51};
多空３:=ema(c,250){XG51};
TJTS:=BARstATUS=2{XG51};
IF C>0 AND TJTS THEN BEGIN
DRAWTEXTREL(20,50,'老张解盘'),LINETHICK6,Coloryellow{XG51};
DRAWTEXTREL(200,50,STKLABEL+' '+STKNAME),LINETHICK6,ColorFFFF80{XG51};
DRAWTEXTREL(500,30,'流通:'+NUMTOSTRN(FINANCE2 (36),0 )+' '+'换手:'+NUMTOSTRN( DYNAINFO(37)*100,3 )),LINETHICK3,ColorFFFF80;end{XG51};
IF c>=多空２ AND TJTS THEN BEGIN
DRAWTEXTREL(480,200,'股价在半年线之上'),LINETHICK3,color00ff00;end{XG51};
IF c<多空２ AND TJTS THEN BEGIN
DRAWTEXTREL(480,200,'股价在半年线之下'),LINETHICK3,color00ffff;end{XG51};
IF 多空２>=ref(多空２,1) AND TJTS THEN BEGIN
DRAWTEXTREL(670,200,'半年线趋势向上'),LINETHICK3,colorffff00;end{XG51};
IF 多空２<ref(多空２,1) AND TJTS THEN BEGIN
DRAWTEXTREL(670,200,'半年线趋势向下'),LINETHICK3,color00ffff;end{XG51};
IF c>=多空３ AND TJTS THEN BEGIN
DRAWTEXTREL(240,600,'股价在年线之上'),LINETHICK3,color00ffff;end{XG51};
IF c<多空３ AND TJTS THEN BEGIN
DRAWTEXTREL(240,600,'股价在年线之下'),LINETHICK3,colorffff00;end{XG51};
IF 多空３>=ref(多空３,1) AND TJTS THEN BEGIN
DRAWTEXTREL(240,700,'年线趋势向上'),LINETHICK3,color00ffff;end{XG51};
IF 多空３<ref(多空３,1) AND TJTS THEN BEGIN
DRAWTEXTREL(240,700,'年线趋势向下'),LINETHICK3,colorffff00;end{XG51};
tr:=c*2.5/100+c{XG51};
hd:=c-c*2.5/100{XG51};
IF cost(50) AND TJTS THEN BEGIN
DRAWTEXTREL(20,200,'市场平均成本:'+NUMTOSTRN( cost(50),2)),LINETHICK3,colorffff00;end{XG51};
IF cost(4) AND TJTS THEN BEGIN
DRAWTEXTREL(20,300,'主力平均成本:'+NUMTOSTRN( cost(4),2)),LINETHICK3,color00ffff;end{XG51};
IF cost(30) AND TJTS THEN BEGIN
DRAWTEXTREL(20,400,'控盘平均成本:'+NUMTOSTRN( cost(30),2)),LINETHICK3,color0000ff;end{XG51};
IF cost(75) AND TJTS THEN BEGIN
DRAWTEXTREL(20,500,'拉升平均成本:'+NUMTOSTRN( cost(75),2)),LINETHICK3,color0000ff;end{XG51};
IF cost(95) AND TJTS THEN BEGIN
DRAWTEXTREL(20,600,'顶部平均成本:'+NUMTOSTRN( cost(95),2)),LINETHICK3,color00ffff;end{XG51};
IF cost(0.05) AND TJTS THEN BEGIN
DRAWTEXTREL(20,700,'底部平均成本:'+NUMTOSTRN( cost(0.05),2)),LINETHICK3,color00ffff;end{XG51};
IF tr AND TJTS THEN BEGIN
DRAWTEXTREL(240,200,'股道卖出价预测:'+NUMTOSTRN( tr,2)),LINETHICK3,color00ffff;end{XG51};
IF hd AND TJTS THEN BEGIN
DRAWTEXTREL(240,300,'股道买入价预测:'+NUMTOSTRN( hd,2)),LINETHICK3,color0099ff;end{XG51};
IF C>0 AND TJTS THEN BEGIN
DRAWTEXTREL(240,400,'获利盘比例=:'+NUMTOSTRN( winner(c)*100,2)),LINETHICK3,color0099ff;end{XG51};
IF C>0 AND TJTS THEN BEGIN
DRAWTEXTREL(240,500,'套牢盘比例=:'+NUMTOSTRN( (100-winner(c)*100),2)),LINETHICK3,color0000ff;end{XG51};
ld:=ma(v/(h-l),4){XG51};
dmp:=abs(c-o){XG51};
dmm:=v/(h-l){XG51};
i:=-100{XG51};
IF dmm<ld and dmp<ma(dmp,4) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'资金无入场意愿，萎缩中'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF dmm<ld and dmp>ma(dmp,4) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'场内资金有运作行为'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF dmm>ld and dmp<ma(dmp,4) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'多空双方激烈争夺中'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF dmm>ld and dmp>ma(dmp,4) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'场外资金介入（或出局）意愿强烈'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
pdi:=sum(max(max(h-l,abs(h-ref(c,1))),abs(l-ref(c,1))),14){XG51};
mdi:=h-ref(h,1){XG51};
adx:=ref(l,1)-l{XG51};
adxr:=sum(if(mdi>0 and mdi>adx,mdi,0),14){XG51};
typ:=sum(if(adx>0 and adx>mdi,adx,0),14){XG51};
cci:=adxr*100/pdi{XG51};
wr:=typ*100/pdi{XG51};
mtm:=ma(abs(wr-cci)/(wr+cci)*100,6){XG51};
mtmma:=(mtm+ref(mtm,6))/2{XG51};
IF cross(cci,wr) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'PDI线从下向上突破MDI线，显示有新多头进场，为买进信号'),LINETHICK3,color0099ff;i:=i+100;end{XG51};
IF cross(wr,cci) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'PDI线从上向下跌破MDI线，显示有新空头进场，为卖出信号'),LINETHICK3,colorff0000;i:=i+100;end{XG51};
IF mtm>ref(mtm,1) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'ADX值持续高于前一日，行情将维持原趋势'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF mtm<ref(mtm,1) and mtm<20 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'ADX值递减，降到20以下，且横向行进时，气氛为盘整'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF mtm<ref(mtm,1) and ref(mtm,1)<ref(mtm,2) and ref(mtm,2)>ref(mtm,3) and ref(mtm,3)>ref(mtm,4) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'ADX值从上升倾向转为下降时，表明行情即将反转'),LINETHICK3,color0099ff;i:=i+100;end{XG51};
lc:=(h+l+c)/3{XG51};
rsi1:=(lc-ma(lc,14))/0.015*avedev(lc,14){XG51};
rsi2:=-(100*(hhv(h,14)-c)/(hhv(h,14)-llv(l,14))){XG51};
IF rsi1<-180 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'CCI指标底位，买入机会'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF rsi1>180 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'CCI指标高位，卖出机会'),LINETHICK3,color00ff00;i:=i+100;end{XG51};
IF v/capital>0.075 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'换手过大，小心主力出逃，短期头部'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF rsi2>-20 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'W&R超买，短线即将见顶，应及时卖出'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF rsi2<-80 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'W&R超卖，短线即将见底，应伺机买进'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
PSY:=c-ref(c,6){XG51};
布林１:=ma(psy,6){XG51};
IF cross(psy,布林１) and 布林１<-0.8 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'MTM从下向上突破MTMMA，买入信号'),LINETHICK3,color00ff00;i:=i+100;end{XG51};
IF cross(布林１,psy) and 布林１>0.8 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'MTM从上向下跌破MTMMA，卖出信号'),LINETHICK3,color00ff00;i:=i+100;end;

布林２:=ref(c,1){XG51};
布林３:=SMA(max(c-布林２,0),6,1)/sma(abs(c-布林２),6,1)*100{XG51};
布林４:=sma(max(c-布林２,0),12,1)/sma(abs(c-布林２),12,1)*100{XG51};
IF 布林３>80 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破85，超买,考虑卖出'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF 布林３<15 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'6日RSI超卖,随时有可能反弹，考虑买入'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF cross(布林３,15) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'6日RSI向上突破15，买进信号'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF cross(布林３,85) AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'6日RSI向下跌破85，卖出信号'),LINETHICK3,color00ff00;i:=i+100;end{XG51};
布林５:=count(c>ref(c,1),12)/12*100{XG51};
布林６:=(ma(c,3)+ma(c,6)+ma(c,12)+ma(c,24))/4{XG51};
布林７:=布林６+3*std(布林６,10){XG51};
xx:=布林６-3*std(布林６,10){XG51};
a001:=(布林７-xx)/布林７<0.03{XG51};
a002:=(布林７-xx)/布林７>0.18{XG51};
a003:=(ma(c,60)-ma(c,5))/ma(c,60)>0.15{XG51};
a004:=(ma(c,5)-ma(c,60))/ma(c,5)>0.15{XG51};
IF a001 AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'多空布林收敛中，有变盘的可能，上下自己分析'),LINETHICK3,colorffff00;i:=i+100;end{XG51};
IF a003 and a002 and c>o AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'布林上下乖离太大，有反弹的可能'),LINETHICK3,color00ffff;i:=i+100;end{XG51};
IF a004 and a002 and c<o AND TJTS THEN BEGIN
DRAWTEXTREL(480,400+i,'布林上下乖离太大，有回落的可能'),LINETHICK3,color00ff00;i:=i+100;end{XG51};
IF h>=hhv(h,20) AND TJTS THEN BEGIN
DRAWTEXTREL(850,200,'创20天新高'),LINETHICK3,colorffff00;end{X*G!5~1*C*N*{};

大智慧顺势而为未加密选股指标公式源码

源码正文：

均价:=(HIGH+4*LOW+OPEN+CLOSE)/7{XG51};
均价差:=ema(均价,13)-Ema(均价,34){XG51};
移动均价:=EMA(均价差,5){XG51};
差:=(均价差-移动均价)*5{XG51};
A:=IF(差>=1000,1000,IF(差<=均价,均价,差)){XG51};
B:=FORCAst(FORCAST(A,31),10){XG51};
上涨:IF(A>B,A,B),COLORWHITE{XG51};
下跌:IF(A<B,A,B),COLORCYAN{XG51};
FILLRGN(A,B,A>B,RGB(250,0,0),A<B,RGB(0,250,0)){XG51};
分水岭:B,LINETHICK2,COLORRED{XG51};
DRAWGBKLAST(1,STRIP(RGB(4,1,28),RGB(4,1,35),0)){X.G_5~1.C.N.{};