经典博弈.JDBY——（源码.简化版）

修正稳定版
JDBY发表两天来，引起一些网友质疑，有些属于我的编程差错，有些可能是从不同角度看问题，都值得我重视和改进。
今贴出一个修正版，供网友参考。欢迎网友继续质疑，在我能力范围内尽量回答，不过我的脾气也可能是全世界最差的，今后也要改了，确实抱歉啊。
在此，感谢【大彻小悟】网友不吝指正。在此声明，除文中“注明保留版权语句”外，其余各功能语句均放弃版权，如有需要自由引用（我初步查过，多属首次面世，如需要放心引用）。
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
{副图: 经典博弈;JDBY;修正稳定版;原创.JIPGEMLING.见凌见};
{参数设置: N(1,500,3); M(1,500,18); P(1,100,12)};
{参数其他: 坐标线位置 自动； 额外Y轴分界 值1=0 };
{用法: N调节空方出没及量度;M调节曲线平滑;P调整_监控};
{声明: 本公式为JIPGEMLING.见凌见的业余科研成果};
{仅允许散户股民个人使用,不得盗版和作为商品买卖};
成交量:VOL,STICK;
YAN:=CLOSE>OPEN OR (CLOSE=OPEN AND CLOSE>=REF(CLOSE,1)
AND HIGH>=CLOSE){阳量线};
YIN:=NOT(YAN){阴量线};
TJ:=BARSLASTCOUNT(HIGH=LOW){横排"一字"K线计数};
ZR:=CLOSE>=REF(CLOSE,TJ+1)AND HIGH>=REF(HIGH,TJ+1);
ZC:=CLOSE<=REF(CLOSE,TJ+1)AND HIGH<REF(HIGH,TJ+1);
DT:=(HIGH=LOW)*IF(ZR,1,IF(ZC,-1,0))/1000{广义常量};
CC:=(OPEN+HIGH+LOW)/3;
CM:=CLOSE-EMA(CC,N);
KS:=BARSCOUNT(CLOSE)>1;
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(CLOSE,OPEN)<ZZ,1,IF(MIN(CLOSE,OPEN)>ZZ,-1,0));
ZD:(CC-LLV(L,P))/(1.001*HHV(H,P)-LLV(L,P)){本句及以下2句保留版权};
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{解概念方程式};
卖:=(1-ＤX%/100)*成交量/2,NODRAW,COLORCYAN;
STICKLINE(YAN,0,买,3.2,0),COLOR1399DD{下部黄色粗柱主买};
STICKLINE(YAN,0,VOL,2,0),COLOR13AADD;
STICKLINE(YAN,0,VOL,0.7,0),COLOR13BBDD;
STICKLINE(YIN,0,买,3.2,0),{COLOR33AA33}COLOR1399DD;
STICKLINE(YIN,0,VOL,2,0),COLOR33CC33;
STICKLINE(YIN,0,VOL,0.7,0),COLOR33E333;
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;
{END};
【A股指数日线图】



{稍作美化版}

{副图: 经典博弈;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;
{源码结束};