放牛郎操盘系统《金牛取水》源码，有图，来自网络。
{金牛取水_放牛郎}
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA), COLORSTICK;
WW:=DEA>REF(DEA,1);
DD:=CROSS(DIFF,REF(DIFF,1));
TT:WW AND DD;
MA1:=MA(C,5);
MA2:=MA(C,10);
MA3:=MA(C,20);
MA4:=MA(C,30);
MA5:=MA(C,40);
MA6:=MA(C,60);
P3:=ABS(MA1-MA2)+ABS(MA2-MA5)+ABS(MA1-MA5);
三线粘合:=IF(P3/C<6/100 AND MA1>REF(MA1,1),444,0)COLORFF00FF,LINETHICK3;
长:=LAST(CLOSE>MA6,30,8) AND LAST(MA1>MA6,20,6) AND LAST(MA2>MA6,20,6);
金牛取水:IF(长 AND C>MA1 AND C>MA2 AND C>MA6 AND 三线粘合
AND MA1>REF(MA1,1) AND VOL/REF(MA(VOL,5),1)>1.8
AND DIFF>REF(DIFF,1) AND MACD>-0.1
AND REF(LOW,2)<MA6*1.03 AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>2/100
AND C>REF(C,5),444,0)COLOR00CCCC,LINETHICK4;
P31:=ABS(MA1-MA2)+ABS(MA2-MA3)+ABS(MA1-MA3);
月三线粘合:=IF(P31/C<5/100,2222,0)COLORFF00FF,LINETHICK3;
牛嘴:=IF(月三线粘合 AND MA1>REF(MA1,1) AND C>MA1 AND C>MA2
  AND C>MA6 AND MA1>MA6 AND MA2>MA6 AND DIFF>REF(DIFF,1)
AND MA5>REF(MA5,1) AND MA6>REF(MA6,1) AND MA4>REF(MA5,2)
AND MA6>REF(MA6,2) AND MA6>REF(MA6,3),2888,0)
COLOR0000FF,LINETHICK2;
金牛嘴:IF( 牛嘴 AND MACD>-0.32
AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)>1.5/100
AND VOL/REF(MA(VOL,5),1)>1.5,222,0)COLORRED,LINETHICK4;