原理解析：
輸出MA1:收盤價的5日簡單移動平均 輸出均線:收盤價的10日簡單移動平均 輸出MA3:收盤價的20日簡單移動平均 輸出MA4:收盤價的60日簡單移動平均 MA5賦值:收盤價的78日簡單移動平均,COLOR00FFFF,線寬為1 MA6賦值:MA5的3日指數移動平均,COLOR00FFFF,線寬為1 MA7賦值:MA6的3日指數移動平均,COLOR00FFFF,線寬為1 Y賦值:(最高價+最低價)/2 AO賦值:Y的5日簡單移動平均-Y的34日簡單移動平均 DU0賦值:AO上穿0 UD0賦值:0上穿AO TDU0賦值:上次DU0距今天數 TUD0賦值:上次UD0距今天數 DU3賦值:1日前的DU0 UD3賦值:1日前的UD0 TDU3賦值:上次DU3距今天數 TUD3賦值:上次UD3距今天數 UDGLINE賦值:如果TDU3<TUD3,返回TDU3日前的2日內最高價的最高值,否則返回TUD3日前的2日內最低價的最低值,畫黃色 JDU0賦值:1日前的收盤價<=1日前的UDGLINE AND 收盤價>UDGLINE AND TDU0<TUD0 JUD0賦值:1日前的收盤價>=1日前的UDGLINE AND 收盤價<UDGLINE AND TUD0<TDU0 JDU1賦值:JDU0 AND 統計TDU0日中滿足JDU0的天數=1 JUD1賦值:JUD0 AND 統計TUD0日中滿足JUD0的天數=1 JDU2賦值:JDU1 AND 1日前的上次JUD1距今天數<1日前的上次JDU1距今天數 當滿足條件JDU2時,在MA7*0.95位置書寫文字,畫黃色 當滿足條件MA3上穿MA4時,在MA4*0.98位置書寫文字,COLOR0000FF 當滿足條件MA4上穿MA3時,在MA3*0.98位置書寫文字,COLORFF0000 SC賦值:收盤價/1日前的收盤價>1.097 HS賦值:收盤價的2日簡單移動平均 澆水賦值:HS上穿1日前的HS AND 1日前的8日內SC的最高值 當滿足條件澆水時,在最低價和開盤價位置之間畫柱狀線,寬度為1,0不為0則畫空心柱.,COLORF00F00 當滿足條件澆水時,在最低價*0.995位置畫9號圖標 當滿足條件澆水時,在最低價*0.98位置書寫文字,COLOR0000FF HSC1賦值:收陽線AND 成交量(手)>1日前的成交量(手) AND 1日前的SC HSC2賦值:1日前的8日內成交量(手)的最高值/成交量(手)>=1.97 AND 1日前的8日內HSC1的最高值 AND 收陽線 當滿足條件HSC2時,在最低價*0.92位置書寫文字,COLORFF00FF 上線賦值:收盤價的2日[1日權重]移動平均 下線賦值:收盤價的6日[1日權重]移動平均 上線1賦值:收盤價的2日[1日權重]移動平均 下線1賦值:收盤價的6日[1日權重]移動平均 當滿足條件上線上穿下線時,在最低價*0.98位置書寫文字,COLOR00FF00 當滿足條件下線1上穿上線1時,在最高價*1.02位置書寫文字,畫黃色 BBI賦值:(收盤價的3日簡單移動平均+收盤價的6日簡單移動平均+收盤價的12日簡單移動平均+收盤價的24日簡單移動平均)/4 UPR賦值:BBI+3*BBI的13日估算標準差,線寬為2 DWN賦值:BBI-3*BBI的13日估算標準差 安全賦值:收盤價的60日簡單移動平均,線寬為2 LC賦值:1日前的收盤價 RSI賦值:收盤價-LC和0的較大值的6日[1日權重]移動平均/收盤價-LC的絕對值的6日[1日權重]移動平均*100 當滿足條件88上穿RSI時,在最高價*1.02位置書寫文字 ,COLORFF9966,線寬為2 A7賦值:(2*收盤價+最高價+最低價)/4 操作賦值:A7的5日簡單移動平均,線寬為2 操作1賦值:A7的5日簡單移動平均*1.03,線寬為2 操作2賦值:A7的5日簡單移動平均*0.97,線寬為2 VAR1賦值:21日內A7的最低值 VAR2賦值:21日內A7的最高值 SK賦值:(A7-VAR1)/(VAR2-VAR1)*100的7日指數移動平均 SD賦值:0.667*1日前的SK+0.333*SK的5日指數移動平均 當滿足條件如果統計8日中滿足收盤價<1日前的收盤價的天數/8>6/10ANDVOL>=1.5*成交量(手)的5日簡單移動平均ANDCOUNT(SK>=SD,3)ANDREF(最低價,1)=120日內最低價的最低值,返回1,否則返回0時,在最低價*0.98位置書寫文字 ,COLOR0099FF 當滿足條件如果統計13日中滿足收盤價<1日前的收盤價的天數/13>6/10ANDCOUNT(SK>SD,6)ANDREF(最低價,5)=120日內最低價的最低值ANDREF(收盤價>=開盤價,4)ANDREF(收陽線,3)ANDREF(收陽線,2)ANDREF(開盤價>CLOS,返回?,否則返回?時,在,1)ANDOPEN>1日前的收盤價,1,0)位置書寫文字 ,畫黃色 D賦值:收盤價的80日簡單移動平均-收盤價的10日簡單移動平均/3 當滿足條件如果收盤價<DANDVOL/240>成交量(手)的5日簡單移動平均/240ANDCLOSE>1日前的收盤價*1.08ANDCLOSE<收盤價的13日簡單移動平均*1.3,返回1,否則返回0時,在最低價*0.98位置書寫文字,畫黃色

源碼：

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,60);{紅土地=牛股}MA5:=MA(C,78),COLOR00FFFF,LINETHICK1;
MA6:=EMA(MA5,3),COLOR00FFFF,LINETHICK1;
MA7:=EMA(MA6,3),COLOR00FFFF,LINETHICK1;Y:=(H+L)/2;
AO:=MA(Y,5)-MA(Y,34 );
DU0:=CROSS(AO,0);
UD0:=CROSS(0,AO);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF(TDU3<TUD3,REF(HHV(H,2),TDU3),REF(LLV(L,2),TUD3)),COLORYELLOW;
JDU0:=REF(C,1)<=REF(UDGLINE,1) AND C>UDGLINE AND TDU0<TUD0;
JUD0:=REF(C,1)>=REF(UDGLINE,1) AND C<UDGLINE AND TUD0<TDU0;
JDU1:=JDU0 AND COUNT(JDU0,TDU0)=1;
JUD1:=JUD0 AND COUNT(JUD0,TUD0)=1;
JDU2:=JDU1 AND REF(BARSLAST(JUD1),1)<REF(BARSLAST(JDU1),1);
DRAWTEXT(JDU2,MA7*0.95,'紅土地'),COLORYELLOW;
DRAWTEXT(CROSS(MA3,MA4),MA4*0.98,'風調雨順'),COLOR0000FF;
DRAWTEXT(CROSS(MA4,MA3),MA3*0.98,'災情來臨'),COLORFF0000;
{澆水=回馬槍}
SC:=C/REF(C,1)>1.097;
HS:=MA(C,2);
澆水:=CROSS(HS,REF(HS,1)) AND REF(HHV(SC,8),1);
STICKLINE(澆水,L,O,1,0),COLORF00F00;
DRAWICON(澆水,L*0.995,9);
DRAWTEXT(澆水,L*0.98,'澆水'),COLOR0000FF;
{STICKLINE(抓牛,L,O,2,0),COLOR0000FF;
DRAWICON(抓牛,L*1.11,1),COLOR0000FF;}
HSC1:=C>O AND V>REF(V,1) AND REF(SC,1);
HSC2:=REF(HHV(V,8),1)/V>=1.97 AND REF(HHV(HSC1,8),1) AND C>O;
DRAWTEXT(HSC2,L*0.92,'施肥'),COLORFF00FF;
{自制通信達}
上線:=SMA(C,2,1);
下線:=SMA(C,6,1);
上線1:=SMA(C,2,1);
下線1:=SMA(C,6,1);DRAWTEXT( CROSS(上線,下線),LOW *0.98,'種菜' ),COLOR00FF00;
DRAWTEXT(CROSS(下線1,上線1),H*1.02,'收獲'),COLORYELLOW;
BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
UPR:=BBI+3*STD(BBI,13),LINETHICK2;
DWN:=BBI-3*STD(BBI,13);
安全:=MA(CLOSE,60),LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT( CROSS(88,RSI) , HIGH*1.02,'偷菜') ,COLORFF9966,LINETHICK2;
A7:=(2*C+H+L)/4;
操作:=MA(A7,5),LINETHICK2;
操作1:=MA(A7,5)*1.03,LINETHICK2;
操作2:=MA(A7,5)*0.97,LINETHICK2;
VAR1:=LLV(A7,21);
VAR2:=HHV(A7,21);SK:=EMA((A7-VAR1)/(VAR2-VAR1)*100,7);
SD:=EMA(0.667*REF(SK,1)+0.333*SK,5);
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>6/10 AND VOL>=1.5*MA(VOL,5) AND
COUNT(SK>=SD,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW*0.98,'種瓜') ,COLOR0099FF;
DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>6/10 AND
COUNT(SK>SD,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND
REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND
OPEN>REF(CLOSE,1),1,0),LOW*0.98,'種瓜') ,COLORYELLOW;
D:=MA(CLOSE,80)-MA(CLOSE,10)/3;
DRAWTEXT(IF(CLOSE<D AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08
AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW*0.98,'種豆'),COLORYELLOW;DRAWTEXT_FIX(C>O,0.01,0.9,0,' www.kzuj.com.cn '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;