【原】大智慧山水寻庄指标公式源码编程思路破译和风险提示

编程思路破译

DRAWTEXTABS(0,0,'桂林晚景')

输出空仓区:0,POINTDOT,画红色

输出持股区:0,POINTDOT,画绿色

输出变盘点:0,POINTDOT,画黄色

输出桂林山水甲天下:-0.05,画绿色,POINTDOT

输出股市峰谷任逍遥:0.05,COLORFFFF00,POINTDOT

A赋值:(3*收盘价+最低价+开盘价+最高价)/6

DK赋值:(20*A+19*1日前的A+18*2日前的A+17*3日前的A+16*4日前的A+15*5日前的A+14*6日前的A+13*7日前的A+12*8日前的A+11*9日前的A+10*10日前的A+9*11日前的A+8*12日前的A+7*13日前的A+6*14日前的A+5*15日前的A+4*16日前的A+3*17日前的A+2*18日前的A+20日前的A)/210

VA1赋值:DK的3日指数移动平均

VA2赋值:VA1的2日指数移动平均

LA赋值:VA1-VA2

LB赋值:VA2-VA1

FILLRGN(LA>LB,LA,0),COLOR339900

FILLRGN(LA<LB,LB,0),COLOR555555

当满足条件LA>LB时,在LB和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,COLOR559933

当满足条件LA<LB时,在LA和0位置之间画柱状线,宽度为1,0不为0则画空心柱.,画深灰色

当满足条件LA>LB时,在0位置画11号图标

当满足条件LA<LB时,在0位置画10号图标

当满足条件LA上穿LBORCROSS(LB,LA)时,在0位置画12号图标

DIFF3赋值: 收盘价的7日指数移动平均 - 收盘价的89日指数移动平均

赋值: DIFF3的21日指数移动平均

MACD3赋值: 2*(DIFF3-DEA3)*10

DIFF2赋值: 收盘价的5日指数移动平均 - 收盘价的26日指数移动平均

赋值: DIFF2的9日指数移动平均

MACD2赋值: 2*(DIFF2-DEA2)*10

DIFF1赋值: 收盘价的3日指数移动平均 - 收盘价的13日指数移动平均

赋值: DIFF1的9日指数移动平均

MACD1赋值: 2*(DIFF1-DEA1)*10

输出漓江水:填充背景,COLORF80606

VARA赋值:收盘价10%的之字转向上穿1日前的收盘价10%的之字转向

VARB赋值:1日前的收盘价10%的之字转向上穿收盘价10%的之字转向

VARC赋值:VARB

输出南归雁: 当满足条件VARC的2日过滤时,在480日内最高价的最高值位置书写文字,COLORFF00FF

VARD赋值:VARA

当满足条件VARD的2日过滤时,在-MACD3的绝对值*1.18位置书写文字,画红色

当满足条件VARD的2日过滤ANDDEA3<=0时,在-MACD3的绝对值*1.18位置书写文字,画红色,线宽为3

当满足条件VARD的2日过滤时,在-MACD3的绝对值*1.18和-MACD3的绝对值+1位置之间画柱状线,宽度为1,0不为0则画空心柱.,画绿色

VARF赋值:(月份=1 OR 月份=9) AND (日=7 OR 日=8 OR 日=9)

输出打鱼船:当满足条件VARF的3日过滤时,在34日内MACD3的最高值的绝对值*1.30位置书写文字,画红色

当满足条件DIFF3小于DEA3保持34个交易日后交叉上穿ANDDEA3<=0的34日过滤时,在34日内MACD3的最低值*1.2位置书写文字,画绿色

FILLRGN(MACD3>=0,0,MACD3),COLOR009E3A

FILLRGN(MACD3<0,0,-MACD3),COLOR646464

FILLRGN(MACD2>=0,0,MACD2),COLOR007D19

FILLRGN(MACD2<0,0,-MACD2),COLOR555555

FILLRGN(MACD1>=0,0,MACD1),COLOR006400

FILLRGN(MACD1<0,0,-MACD1),COLOR414141

FILLRGN(MACD3,0,-MACD3的绝对值*0.6),COLOR232323

FILLRGN(MACD1,0,-MACD1的绝对值*0.6),COLOR0F0F0F

程序源码

DRAWTEXTABS(0,0,'桂林晚景');

空仓区:0,POINTDOT,COLORRED;

持股区:0,POINTDOT,COLORGREEN;

变盘点:0,POINTDOT,COLORYELLOW;

桂林山水甲天下:-0.05,COLORGREEN,POINTDOT;

股市峰谷任逍遥:0.05,COLORFFFF00,POINTDOT;

A:=(3*C+L+O+H)/6;

DK:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+14*REF(A,6)

+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)

+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+

REF(A,20))/210;

VA1:=EMA(DK,3);

VA2:=EMA(VA1,2);

LA:=VA1-VA2;

LB:=VA2-VA1;

FILLRGN(LA>LB,LA,0),COLOR339900;

FILLRGN(LA<LB,LB,0),COLOR555555;

STICKLINE(LA>LB,LB,0,1,0),COLOR559933;

STICKLINE(LA<LB,LA,0,1,0),COLORGRAY;

DRAWICON(LA>LB,0,11);

DRAWICON(LA<LB,0,10);

DRAWICON(CROSS(LA,LB) OR CROSS(LB,LA),0,12);

DIFF3:= EMA(CLOSE,7) - EMA(CLOSE,89);

DEA3 := EMA(DIFF3,21);

MACD3:= 2*(DIFF3-DEA3)*10;

DIFF2:= EMA(CLOSE,5) - EMA(CLOSE,26);

DEA2 := EMA(DIFF2,9);

MACD2:= 2*(DIFF2-DEA2)*10;

DIFF1:= EMA(CLOSE,3) - EMA(CLOSE,13);

DEA1 := EMA(DIFF1,9);

MACD1:= 2*(DIFF1-DEA1)*10;

漓江水:DRAWGBK(CLOSE>0,STRIP(RGB(0,255,0),RGB(0,0,255),0)),COLORF80606;

VARA:=CROSS(ZIG(3,10),REF(ZIG(3,10),1));

VARB:=CROSS(REF(ZIG(3,10),1),ZIG(3,10));

VARC:=VARB;

南归雁: DRAWTEXT(FILTER(VARC,2),HHV(H,480),'｝｝｝｝'),COLORFF00FF;

VARD:=VARA;

DRAWTEXT(FILTER(VARD,2),-ABS(MACD3)*1.18,'︼︼'),COLORRED;

DRAWTEXT(FILTER(VARD,2) AND DEA3<=0,-ABS(MACD3)*1.18,'︼︼'),COLORRED,LINETHICK3;

STICKLINE(FILTER(VARD,2),-ABS(MACD3)*1.18,-ABS(MACD3)+1,1,0),COLORGREEN;

VARF:=(MONTH=1 OR MONTH=9) AND (DAY=7 OR DAY=8 OR DAY=9);

打鱼船:DRAWTEXT(FILTER(VARF,3),ABS(HHV(MACD3,34))*1.30,'指标入画图,低吸又高抛,心如漓江水,意随山起伏。'),COLORRED;

DRAWTEXT(FILTER(LONGCROSS(DIFF3,DEA3,34) AND DEA3<=0,34),LLV(MACD3,34)*1.2,'▲下网！'),COLORGREEN;

FILLRGN(MACD3>=0,0,MACD3),COLOR009E3A;

FILLRGN(MACD3<0,0,-MACD3),COLOR646464;

FILLRGN(MACD2>=0,0,MACD2),COLOR007D19;

FILLRGN(MACD2<0,0,-MACD2),COLOR555555;

FILLRGN(MACD1>=0,0,MACD1),COLOR006400;

FILLRGN(MACD1<0,0,-MACD1),COLOR414141;

FILLRGN(MACD3,0,-ABS(MACD3)*0.6),COLOR232323;

FILLRGN(MACD1,0,-ABS(MACD1)*0.6),COLOR0F0F0F;

风险提示

该公式包含未来函数:ZIG