【原】神龙操盘主图指标公式源码编程思路破译

编程思路破译

填充背景

A1赋值:日期 <= 8813181231

DRAWTEXTREL(210,110,STKLABEL+' '+品种名称),线宽为5,COLORFFFF80

输出DRAWTEXTREL(450,930,'所属板块:'+BKNAME),线宽为1,COLORAFFF00

输出输出输出DRAWTEXTREL(450,970,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 云数据指标:'+NUMTOSTRN(市盈(动),2)+'元'+' 云数据指标:'+NUMTOSTRN((收盘价 / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),线宽为1,COLOR00C0FF

输出输出输出输出DRAWTEXTREL(4,18,'流通A股:'+NUMTOSTRN(FINANCE2(7),0)+'万'+' 市净率:'+NUMTOSTRN((现价 / FINANCE2(34)),2)+' 昨:'+NUMTOSTRN(昨收盘价,2)+' 开:'+NUMTOSTRN(开盘价,2)+' 高:'+NUMTOSTRN(最高价,2)+' 低:'+NUMTOSTRN(最低价,2)+' 收:'+NUMTOSTRN(现价,2)+' 涨幅:'+NUMTOSTRN((涨幅 * 100),2)+'%'+' 振幅:'+NUMTOSTRN((振幅 * 100),2)+'%'+' 换手率:'+NUMTOSTRN((换手率 * 100),2)+'%'),线宽为1,画白色

DRAWTEXTABS(收盘价,25,'★            '),画红色

DRAWTEXTABS(收盘价,41,'操 '),画红色

DRAWTEXTABS(收盘价,57,'盘 '),画红色

DRAWTEXTABS(收盘价,73,'铁'),画红色

DRAWTEXTABS(收盘价,89,'律'),画红色

DRAWTEXTABS(收盘价,105,'★            '),画红色

输出输出DRAWTEXTABS(收盘价,60,'  空心:阳线|实体:阴线'  ),画黄色

输出输出DRAWTEXTABS(收盘价,89,'  线上:工作|线下:休息'),COLOR00FFFF

DRAWTEXTREL(200,63,'神龙①号操盘线上工作|神龙①号操盘线下休息'),线宽为1,COLOR00C0FF

DRAWTEXTREL(600,63,'靠近神龙①号操盘线为最佳低吸位'),线宽为1,COLOR00C0FF

输出五日线:(收盘价的5日简单移动平均) * A1,POINTDOT,线宽为4,画黄色

输出半年线:(收盘价的120日简单移动平均) * A1,线宽为1,COLOR0099FF

输出年线:(收盘价的250日简单移动平均) * A1,线宽为1,画蓝色

输出神龙①号操盘线:(收盘价的12日指数移动平均)* A1,线宽为1,画红色

输出神龙②号操盘线:(收盘价的50日指数移动平均) * A1,线宽为1,画青色

A2赋值:"CPZB@CP"

当满足条件(A2>=8)时,在最高价和最低价位置之间画柱状线,宽度为0.8,1不为0则画空心柱.,画绿色

当满足条件((A2>=8)AND(收阳线))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画绿色

当满足条件((A2>=8)AND(收阴线))时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色

当满足条件((A2>0)AND(A2<=2))时,在最高价和最低价位置之间画柱状线,宽度为0.8,1不为0则画空心柱.,画红色

当满足条件(((A2>0)AND(A2<=2))AND(收阳线))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色

当满足条件(((A2>0)AND(A2<=2))AND(收阴线))时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价>=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,1不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价>=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价<=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价<=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价>=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,1不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价>=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价<=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价<=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色

当满足条件(A2=1)时,在最低价位置书写文字,线宽为2,ALIGN1,COLOR208FFF

当满足条件(A2=1)时,在最低价位置书写文字,线宽为5,ALIGN1,画黄色

当满足条件(A2=9)时,在最高价位置书写文字,线宽为2,ALIGN1,画青色

当满足条件(A2=9)时,在最高价+0.38位置书写文字,线宽为5,画青色

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画白色

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画白色

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLORDDDDDD

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORCCCCCC

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,画白色

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLOREEEEEE

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORDDDDDD

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORCCCCCC

当满足条件(A2=9)时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画白色

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为0,0不为0则画空心柱.,COLORFFBBFF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画洋红色

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为7,0不为0则画空心柱.,COLORFF22FF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为6,0不为0则画空心柱.,COLORFF44FF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为5,0不为0则画空心柱.,COLORFF66FF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为4,0不为0则画空心柱.,COLORFF88FF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为3,0不为0则画空心柱.,COLORFF99FF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFAAFF

当满足条件(A2=1)时,在收盘价和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLORFFBBFF

A3赋值:(((收盘价的21日线性回归斜率)*20)+收盘价)的68日指数移动平均

A4赋值:收盘价的10日指数移动平均

A5赋值:2日前的收盘价

A6赋值:((((收盘价-A5)和0的较大值)的6日[1日权重]移动平均) / ((收盘价-A5)的绝对值的6日[1日权重]移动平均)) * 100

A7赋值:如果((A6<(1日前的A6))AND(A6>79)),返回A6,否则返回0

当满足条件(A4上穿A3)时,在最低价位置书写文字,线宽为2,ALIGN1,画黄色

当满足条件A7时,在最高价位置书写文字,线宽为3,画绿色

A8赋值:21日内最低价的最低值

A9赋值:21日内最高价的最高值

A10赋值:(((收盘价-A8)/(A9-A8))*100)的5日指数移动平均

A11赋值:(((收盘价-A8)/(A9-A8))*50)的13日指数移动平均

A12赋值:((0.667*(1日前的A10))+(0.333*A10))的2日指数移动平均

A13赋值:55日内最低价的最低值

A14赋值:34日内最高价的最高值

A15赋值:(((收盘价-A13)/(A14-A13))*100)的3日指数移动平均

A16赋值:(A11 + A15) / 2

A17赋值:((0.667*(1日前的A15))+(0.333*A10))的2日指数移动平均

A18赋值:A16的5日指数移动平均

A19赋值:((0.667*(1日前的A18))+(0.333*A18))的2日指数移动平均

A20赋值:A10上穿A11

A21赋值:(A10上穿A19) AND (A19 < 30)

A22赋值:A21 * 0.6

当满足条件(A22=0.6)时,在最低价位置书写文字,线宽为4,ALIGN1,画黄色

当满足条件(A20=1)时,在最低价位置书写文字,线宽为4,ALIGN1,画白色

A23赋值:((收盘价 + 最低价) + 最高价) / 3

A24赋值:A23的6日指数移动平均

A25赋值:A24的5日指数移动平均

A26赋值:A24上穿A25

当满足条件A26时,在(最低价/1.005)位置画3号图标,线宽为2,ALIGN1,画洋红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价>=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,1不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价>=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价<=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画红色

当满足条件((收盘价>=神龙①号操盘线)AND(收盘价<=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画红色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价>=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,1不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价>=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,1不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价<=开盘价))时,在最高价和最低价位置之间画柱状线,宽度为0.5,0不为0则画空心柱.,画绿色

当满足条件((收盘价<神龙①号操盘线)AND(收盘价<=开盘价))时,在开盘价和收盘价位置之间画柱状线,宽度为8,0不为0则画空心柱.,画绿色

程序源码

DRAWGBK(CLOSE>0,STRIP(RGB(0,150,220),RGB(0,0,60),0));

A1:=DATE <= 8813181231;

DRAWTEXTREL(210,110,STKLABEL+' '+STKNAME),LINETHICK5,COLORFFFF80;

DRAWTEXTREL(450,930,'所属板块:'+BKNAME),LINETHICK1,COLORAFFF00;

DRAWTEXTREL(450,970,'每股收益:'+NUMTOSTRN(FINANCE2(3),3)+'元'+' 市盈率:'+NUMTOSTRN(DYNAINFO(39),2)+'元'+' 市净率:'+NUMTOSTRN((CLOSE / FINANCE2(4)),2)+'元'+' 净资产:'+NUMTOSTRN(FINANCE2(4),2)+'元'),LINETHICK1,COLOR00C0FF;

DRAWTEXTREL(4,18,'流通A股:'+NUMTOSTRN(FINANCE2(7),0)+'万'+' 市净率:'+NUMTOSTRN((DYNAINFO(7) / FINANCE2(34)),2)+' 昨:'+NUMTOSTRN(DYNAINFO(3),2)+' 开:'+NUMTOSTRN(DYNAINFO(4),2)+' 高:'+NUMTOSTRN(DYNAINFO(5),2)+' 低:'+NUMTOSTRN(DYNAINFO(6),2)+' 收:'+NUMTOSTRN(DYNAINFO(7),2)+' 涨幅:'+NUMTOSTRN((DYNAINFO(14) * 100),2)+'%'+' 振幅:'+NUMTOSTRN((DYNAINFO(13) * 100),2)+'%'+' 换手率:'+NUMTOSTRN((DYNAINFO(37) * 100),2)+'%'),LINETHICK1,COLORWHITE;

DRAWTEXTABS(CLOSE,25,'★ ======================'),COLORRED;

DRAWTEXTABS(CLOSE,41,'操 '),COLORRED;

DRAWTEXTABS(CLOSE,57,'盘 '),COLORRED;

DRAWTEXTABS(CLOSE,73,'铁'),COLORRED;

DRAWTEXTABS(CLOSE,89,'律'),COLORRED;

DRAWTEXTABS(CLOSE,105,'★ ======================'),COLORRED;

DRAWTEXTABS(CLOSE,60,'  空心:阳线|实体:阴线'  ),COLORYELLOW;

DRAWTEXTABS(CLOSE,89,'  线上:工作|线下:休息'),COLOR00FFFF;

DRAWTEXTREL(200,63,'神龙①号操盘线上工作|神龙①号操盘线下休息'),LINETHICK1,COLOR00C0FF;

DRAWTEXTREL(600,63,'靠近神龙①号操盘线为最佳低吸位'),LINETHICK1,COLOR00C0FF;

五日线:(MA(C,5)) * A1,POINTDOT,LINETHICK4,COLORYELLOW;

半年线:(MA(C,120)) * A1,LINETHICK1,COLOR0099FF;

年线:(MA(C,250)) * A1,LINETHICK1,COLORBLUE;

神龙①号操盘线:(EMA(C,12))* A1,LINETHICK1,COLORRED;

神龙②号操盘线:(EMA(C,50)) * A1,LINETHICK1,COLORCYAN;

{卖线:EMA(SLOPE(C,21)*21+C,42),COLORRED,LINETHICK2;}

A2:="CPZB@CP";

STICKLINE((A2 >= 8),H,L,0.8,1),COLORGREEN;

STICKLINE(((A2 >= 8) AND (C > O)),O,C,8,1),COLORGREEN;

STICKLINE(((A2 >= 8) AND (C < O)),C,O,8,0),COLORGREEN;

STICKLINE(((A2 > 0) AND (A2 <= 2)),H,L,0.8,1),COLORRED;

STICKLINE((((A2 > 0) AND (A2 <= 2)) AND (C > O)),O,C,8,1),COLORRED;

STICKLINE((((A2 > 0) AND (A2 <= 2)) AND (C < O)),C,O,8,0),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C >= O)),H,L,0.5,1),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C >= O)),O,C,8,1),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C <= O)),H,L,0.5,0),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C <= O)),O,C,8,0),COLORRED;

STICKLINE(((C < 神龙①号操盘线) AND (C >= O)),H,L,0.5,1),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C >= O)),O,C,8,1),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C <= O)),H,L,0.5,0),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C <= O)),O,C,8,0),COLORGREEN;

DRAWTEXT((A2 = 1),L,'￣'),LINETHICK2,ALIGN1,COLOR208FFF;

DRAWTEXT((A2 = 1),L,'B'),LINETHICK5,ALIGN1,COLORYELLOW;

DRAWTEXT((A2 = 9),H,'￣'),LINETHICK2,ALIGN1,COLORCYAN;

DRAWTEXT((A2 = 9),H+0.38,'S'),LINETHICK5,COLORCYAN;

STICKLINE((A2 = 9),C,O,0,0),COLORWHITE;

STICKLINE((A2 = 9),C,O,8,0),COLORWHITE;

STICKLINE((A2 = 9),C,O,7,0),COLORDDDDDD;

STICKLINE((A2 = 9),C,O,6,0),COLORCCCCCC;

STICKLINE((A2 = 9),C,O,5,0),COLORWHITE;

STICKLINE((A2 = 9),C,O,4,0),COLOREEEEEE;

STICKLINE((A2 = 9),C,O,3,0),COLORDDDDDD;

STICKLINE((A2 = 9),C,O,2,0),COLORCCCCCC;

STICKLINE((A2 = 9),C,O,1,0),COLORWHITE;

STICKLINE((A2 = 1),C,O,0,0),COLORFFBBFF;

STICKLINE((A2 = 1),C,O,8,0),COLORMAGENTA;

STICKLINE((A2 = 1),C,O,7,0),COLORFF22FF;

STICKLINE((A2 = 1),C,O,6,0),COLORFF44FF;

STICKLINE((A2 = 1),C,O,5,0),COLORFF66FF;

STICKLINE((A2 = 1),C,O,4,0),COLORFF88FF;

STICKLINE((A2 = 1),C,O,3,0),COLORFF99FF;

STICKLINE((A2 = 1),C,O,2,0),COLORFFAAFF;

STICKLINE((A2 = 1),C,O,1,0),COLORFFBBFF;

A3:=EMA((((SLOPE(C,21)) * 20) + C),68);

A4:=EMA(C,10);

A5:=REF(C,2);

A6:=((SMA((MAX((C - A5),0)),6,1)) / (SMA(ABS((C - A5)),6,1))) * 100;

A7:=IF(((A6 < (REF(A6,1))) AND (A6 > 79)),A6,0);

DRAWTEXT((CROSS(A4,A3)),L,'△'),LINETHICK2,ALIGN1,COLORYELLOW;

DRAWTEXT(A7,H,'○'),LINETHICK3,COLORGREEN;

A8:=LLV(L,21);

A9:=HHV(H,21);

A10:=EMA((((CLOSE - A8) / (A9 - A8)) * 100),5);

A11:=EMA((((CLOSE - A8) / (A9 - A8)) * 50),13);

A12:=EMA(((0.667 * (REF(A10,1))) + (0.333 * A10)),2);

A13:=LLV(L,55);

A14:=HHV(H,34);

A15:=EMA((((C - A13) / (A14 - A13)) * 100),3);

A16:=(A11 + A15) / 2;

A17:=EMA(((0.667 * (REF(A15,1))) + (0.333 * A10)),2);

A18:=EMA(A16,5);

A19:=EMA(((0.667 * (REF(A18,1))) + (0.333 * A18)),2);

A20:=CROSS(A10,A11);

A21:=(CROSS(A10,A19)) AND (A19 < 30);

A22:=A21 * 0.6;

DRAWTEXT((A22 = 0.6),L,'◇'),LINETHICK4,ALIGN1,COLORYELLOW;

DRAWTEXT((A20 = 1),L,'◇'),LINETHICK4,ALIGN1,COLORWHITE;

A23:=((C + L) + H) / 3;

A24:=EMA(A23,6);

A25:=EMA(A24,5);

A26:=CROSS(A24,A25);

DRAWICON(A26,(LOW / 1.005),3),LINETHICK2,ALIGN1,COLORMAGENTA;

STICKLINE(((C >= 神龙①号操盘线) AND (C >= O)),H,L,0.5,1),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C >= O)),O,C,8,1),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C <= O)),H,L,0.5,0),COLORRED;

STICKLINE(((C >= 神龙①号操盘线) AND (C <= O)),O,C,8,0),COLORRED;

STICKLINE(((C < 神龙①号操盘线) AND (C >= O)),H,L,0.5,1),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C >= O)),O,C,8,1),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C <= O)),H,L,0.5,0),COLORGREEN;

STICKLINE(((C < 神龙①号操盘线) AND (C <= O)),O,C,8,0),COLORGREEN;

该公式包含未来函数:DYNAINFO
该公式包含未来函数:FINANCE