{稍作美化版}   

{副图: 经典博弈;JDBY;版权属于:JIPGEMLING.见凌见};   

{参数设置: N(1,500,3); M(1,500,18);P(1,100,10)};   

{参数其他: 坐标线位置 自动；额外Y轴分界 值1=0 };   

{用法: N调节空方出没及量度;M调节曲线平滑;P监控};   

{声明: 本公式为JIPGEMLING.见凌见的业余科研成果};   

{仅允许散户股民个人使用,不得盗版和作为商品买卖};   

成交量:VOL,STICK;   

{YAN:=CLOSE>OPEN OR (CLOSE=OPEN)AND (CLOSE>=REF(CLOSE,1)   

AND HIGH>=CLOSE)此句花括号位置错，已更正如下句。2010.5.4 10:59};   

YAN:=CLOSE>OPEN OR ((CLOSE=OPEN)AND CLOSE>=REF(CLOSE,1)   

AND HIGH>=CLOSE);   

YIN:=NOT(YAN);   

TT:=(HIGH=REF(LOW,1))*(LOW=REF(HIGH,1));   

TJ:=BARSLASTCOUNT(TT);   

DT:=(HIGH=LOW)*SIGN(CLOSE-REF(CLOSE,TJ+1))/1000;   

CC:=(OPEN+HIGH+LOW)/3;   

CM:=CLOSE-EMA(CC,N);   

KS:=BARSCOUNT(CLOSE)>1;{此句有疏漏，原值【>0】正确应为【>1】改后删除本行文字2010.05.04 17:35};   

KF:=EMA(EMA(KS*(CLOSE<=CC)*(CM<=0)*(0.1+成交量),M),4);   

DF:=EMA(EMA(KS*(CLOSE>=CC)*(CM>=0)*(0.1+成交量),M),4);   

ZZ:=(CLOSE+HIGH+LOW)/3;   

CT:=IF(MAX(C,O)<ZZ,1,IF(MIN(C,O)>ZZ,-1,0));   

ZD:ABS(CM/EMA(CC,N))*P;{增加可调参数P，监控ZD=0~1之间};   

ZL:=ABS(HIGH-LOW)+ZD*ABS(CLOSE-OPEN)/2+0.003*(HIGH=LOW);   

ＤX%:(IF(CT=0,ZD*(ZZ-(CLOSE+OPEN)/2),   

     CT*ZD*ABS(CLOSE-OPEN)/2)+2*ZZ-HIGH-LOW+DT)/ZL*100,NODRAW;   

DV:ＤX%*(0.1+成交量)/100,NODRAW;   

买:=(1+ＤX%/100)*成交量/2,NODRAW,COLORRED;{屏宽不够 屏蔽这2句};   

卖:=(1-ＤX%/100)*成交量/2,NODRAW,COLORCYAN;{用‘=’号屏蔽输出};   

STICKLINE(YAN,0,买,3.5,0),COLOR1399DD;{下部粗柱主买量};   

STICKLINE(YAN,0,VOL,2.1,0),COLOR13AADD;   

STICKLINE(YAN,0,VOL,0.7,0),COLOR13BBDD;   

STICKLINE(YIN,0,买,3.5,0),COLOR33AA33;{下部粗柱主买量};   

STICKLINE(YIN,0,VOL,2.1,0),COLOR33CC33;   

STICKLINE(YIN,0,VOL,0.7,0),COLOR33E833;   

STICKLINE(DV>0,0,ABS(DV),0.8,0),COLOR3113FF;   

STICKLINE(DV<0,0,ABS(DV),0.5,0),COLORDE5533;   

空方:KF*1.3,COLORDEEDDE,LINETHICK2;   

多方:DF*1.3,COLOR33FFFF,LINETHICK2;   

表观趋势:(多方-空方),COLORDF8833,LINETHICK3;   

资金流势:EMA(EMA(KS*DV*7,M),4),COLOR1133FF,LINETHICK3;   

{源码结束};