编程思路破译DRAWGBKLAST(日期>900101,STRIP(自定色,自定色,0)) 当满足条件收阳线时,在开盘价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000FF 当满足条件收阳线时,在收盘价和最高价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR0000FF 当满足条件开盘价>=收盘价时,在收盘价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FF00 当满足条件开盘价>=收盘价时,在开盘价和最高价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,COLOR00FF00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,COLORFF5500 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLORFF7700 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORFF9900 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFFBB00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLORFFCC00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFFDD00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFEE00 当满足条件开盘价>=收盘价时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFFF00 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱. ,COLOR000033 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱. ,COLOR000055 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱. ,COLOR000066 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱. ,COLOR000077 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱. ,COLOR000099 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱. ,COLOR0000BB 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱. ,COLOR0000DD 当满足条件收阳线时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱. ,COLOR0000FF 输出市场成本:以成交量(手)/当前流通股本(手)为权重成交额(元)/(100*成交量(手))的动态移动平均,COLORFF9900,DOTLINE 当满足条件DISPSTATUS=2时,在MCST位置书写文字,COLOR00FF00,线宽为1,ALIGN1 MCST*1.092 ,COLOR0077FF MCST*0.908 ,COLOR00FF00 FILLRGN(MCST*1.092,MCST,MCST*1.092>MCST,自定色),LAYER7 FILLRGN(MCST*0.908,MCST,MCST*0.908<MCST,自定色),LAYER7 输出MA5:收盘价的5日加权移动平均,COLOR00FF00,DOTLINE PARTLINE(MA5,MA5>1日前的MA5,自定色),线宽为3,LAYER0 RC赋值:(最高价+最低价+收盘价*2)/4 R2D赋值:RC的27日加权移动平均 R2E赋值:RC的27日估算标准差 R3F赋值:(RC-R2D)/R2E*100 R40赋值:R3F的3日加权移动平均 R41赋值:R40的3日加权移动平均 JD赋值:R41的2日加权移动平均 AJ赋值:3*R41-2*JD 当满足条件AJ上穿JD时,在最低价-0.05位置书写文字,COLOR00FFFF,线宽为2 当满足条件JD上穿AJ时,在最高价+0.05位置书写文字,COLOR0044FF,线宽为2 A赋值:成交量(手)累加至当前流通股本(手)*1的天数 A1赋值:获利盘为10%的成本分布的A日累和/A A2赋值:获利盘为20%的成本分布的A日累和/A A3赋值:获利盘为30%的成本分布的A日累和/A A4赋值:获利盘为40%的成本分布的A日累和/A A5赋值:获利盘为50%的成本分布的A日累和/A 输出庄家成本:(5*A1+4*A2+3*A3+2*A4+A5)/15,COLORFF9900, CIRCLEDOT 当满足条件DISPSTATUS=2时,在庄家成本位置书写文字,COLOR00FFFF,线宽为1,ALIGN1 输出DRAWTEXTREL(5,10,'■现实获利盘比例: '+NUMTOSTRN(以收盘价计算的获利盘比例*100,1)+' %'),COLOR00FFFF,线宽为3 程序源码DRAWGBKLAST(DATE>900101,STRIP(RGB(0,0,150),RGB(0,0,40),0)); {以下设置五彩立体K线} STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF; STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF; STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00; STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLORFF5500; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORFF7700; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORFF9900; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORFFBB00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORFFCC00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORFFDD00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORFFEE00; STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORFFFF00; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLOR000033; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000BB; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000DD; STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000FF; {成本通道} MCST:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),COLORFF9900,DOTLINE; { GUPANG.COM 股-旁-网_大智慧股票指标公式} DRAWTEXT(DISPSTATUS=2,MCST,'【市场成本】'),COLOR00FF00,LINETHICK1,ALIGN1; MCST*1.092 ,COLOR0077FF; MCST*0.908 ,COLOR00FF00;; FILLRGN(MCST*1.092,MCST,MCST*1.092>MCST,RGB(60,0,60)),LAYER7; FILLRGN(MCST*0.908,MCST,MCST*0.908<MCST,RGB(0,60,0)),LAYER7; {MA5} MA5:WMA(C,5),COLOR00FF00,DOTLINE; PARTLINE(MA5,MA5>REF(MA5,1),RGB(255,150,0)),LINETHICK3,LAYER0; {高抛.低吸} RC:=(H+L+C*2)/4; R2D:=WMA(RC,27); R2E:=STD(RC,27); R3F:=(RC-R2D)/R2E*100; R40:=WMA(R3F,3); R41:=WMA(R40,3); JD:=WMA(R41,2); AJ:=3*R41-2*JD; DRAWTEXT(CROSS(AJ,JD) ,L-0.05,'←吸'),COLOR00FFFF,LINETHICK2; DRAWTEXT(CROSS(JD,AJ) ,H+0.05,'←抛'),COLOR0044FF,LINETHICK2; A:=SUMBARS(V,CAPITAL*1);;{累计换手=100%的周期} A1:=SUM(COST(10),A)/A;{在A周期里获利10%的平均价} A2:=SUM(COST(20),A)/A;{在A周期里获利20%的平均价} A3:=SUM(COST(30),A)/A;{在A周期里获利30%的平均价} A4:=SUM(COST(40),A)/A;{在A周期里获利40%的平均价} A5:=SUM(COST(50),A)/A;{在A周期里获利50%的平均价} 庄家成本:(5*A1+4*A2+3*A3+2*A4+A5)/15,COLORFF9900, CIRCLEDOT;{求出庄家成本}; DRAWTEXT(DISPSTATUS=2,庄家成本,'【庄家成本】'),COLOR00FFFF,LINETHICK1,ALIGN1; {E:=LLV(L,250)=L;}{一年中最低价的位置} {E1:=BARSLAST(E);}{求得一年中最低价的位置到现在的周期} {选股:IF(CROSS(C,庄家成本) AND E1>=40,1,0 );};{只要40天以上不创一年的新低的都有庄}; DRAWTEXTREL(5,10,'■现实获利盘比例: '+NUMTOSTRN(WINNER(CLOSE)*100,1)+' %'),COLOR00FFFF,LINETHICK3; 风险提示 该公式包含未来函数:WINNER |
|
来自: 追梦文库 > 《牛妖庄股黑马主力机构》