|
編程思路破譯 M1賦值:1 VAR1賦值:收盤價的9日指數移動平均的9日指數移動平均 控盤賦值:(VAR1-1日前的VAR1)/1日前的VAR1*1000 有莊控盤賦值:如果控盤>1日前的控盤AND控盤>0,返回控盤,否則返回0,畫紅色, VARA賦值:(收盤價-收盤價的13日簡單移動平均)/收盤價的13日簡單移動平均*400 VARB賦值:100-VARA的絕對值 天線賦值: 如果VARB<90,返回VARB,否則返回100 整體二分之一賦值:(開盤價+收盤價)/2, 二一位上賦值: 收盤價>1日前的整體二分之一 VAR11賦值:100*(收盤價-18日內收盤價的最低值)/(18日內最高價的最高值-18日內最低價的最低值)的5日簡單移動平均-20 有莊控盤S賦值:有莊控盤>1日前的有莊控盤 紅軍賦值: 如果VAR11>0,返回VAR11,否則返回0,畫紅色 紅軍大賦值:紅軍>0 紅軍S賦值:紅軍>1日前的紅軍 二一位上大賦值:二一位上>0 天線小賦值:天線<99 輸出HJ:天線小 AND 二一位上大 AND 紅軍大 AND 有莊控盤S 當滿足條件HJ時,在20和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫棕色 M40賦值:40 M5賦值:4 MA1賦值:收盤價的M1日簡單移動平均,畫白色,線寬為2 MA5賦值:收盤價的M5日簡單移動平均,線寬為3, MA5向上賦值:MA5>1日前的MA5 M1大于M5賦值:MA1>MA5 MA40賦值:收盤價的M40日簡單移動平均,線寬為3, 股價大于M40賦值:收盤價>MA40 上收賦值:最低價 箱頂89賦值:1日前的89日內上收的最高值的2日簡單移動平均,畫紅色,線寬為4 箱頂30賦值:1日前的30日內上收的最高值的2日簡單移動平均,畫紅色,線寬為4 箱頂5賦值:1日前的4日內上收的最高值的2日簡單移動平均,畫紅色,線寬為1 股價大于頂5賦值:收盤價>箱頂5 股價大頂30賦值:收盤價>箱頂30 P9賦值:8 MA8賦值:收盤價的P9日簡單移動平均,畫黃色,線寬為1 M5大于M8賦值:MA5>MA8 輸出發散:MA8>1日前的MA8 AND 股價大于頂5 AND M1大于M5 AND M5大于M8 AND MA5向上 AND 股價大于M40,畫深灰色 輸出突破發散:MA8>1日前的MA8 AND 股價大于頂5 AND M1大于M5 AND M5大于M8 AND MA5向上 AND 股價大頂30 AND 股價大于M40,畫黃色 當滿足條件發散時,在40和20位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫深灰色 當滿足條件突破發散時,在60和40位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫黃色 DIF賦值:收盤價的12日指數移動平均-收盤價的26日指數移動平均 DEA賦值:DIF的9日指數移動平均 MACD賦值:(DIF-DEA)*2 MACD大于0賦值:MACD>0 MACD上賦值: MACD>1日前的MACD MTMN賦值:4 MTMN1賦值:4 MTM賦值:收盤價-MTMN日前的收盤價 MTMMA賦值:MTM的MTMN1日簡單移動平均 MTM大賦值:MTM>MTMMA N1賦值:3 N2賦值:6 N3賦值:12 N4賦值:24 BBI賦值:(收盤價的N1日簡單移動平均+收盤價的N2日簡單移動平均+收盤價的N3日簡單移動平均+收盤價的N4日簡單移動平均)/4 BBI上賦值: BBI>1日前的BBI 價大BBI賦值:收盤價>BBI L3賦值:8 賦值: (收盤價-收盤價的L3日簡單移動平均)/收盤價的L3日簡單移動平均*100 BIAS大賦值:BIAS3>0 N賦值:4 M賦值:4 散戶賦值:100*(M日內最高價的最高值-收盤價)/(M日內最高價的最高值-M日內最低價的最低值) RSV賦值:(收盤價-N日內最低價的最低值)/(N日內最高價的最高值-N日內最低價的最低值)*100 K賦值:RSV的3日[1日權重]移動平均 D賦值:K的3日[1日權重]移動平均 J賦值:3*K-2*D 莊家賦值:J的6日指數移動平均 莊大賦值:莊家>散戶 雷達主力賦值:(收盤價-收盤價的3日簡單移動平均)/收盤價的3日簡單移動平均*480的2日指數移動平均 雷達大0賦值:雷達主力>0 MM1賦值:二一位上大 AND MACD大于0 AND MACD上 AND MTM大 AND 價大BBI AND BBI上 AND BIAS大 AND 莊大,畫洋紅色 輸出MM:二一位上大 AND MACD上 AND MTM大 AND 價大BBI AND BBI上 AND BIAS大 AND 莊大 AND 雷達大0,畫洋紅色 輸出X3:MM AND HJ AND 發散 當滿足條件MM時,在90和60位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫洋紅色 當滿足條件X3時,在90和0位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫紅色 程序源碼 M1:=1; VAR1:=EMA(EMA(CLOSE,9),9); 控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000; 有莊控盤:=IF(控盤>REF(控盤,1) AND 控盤>0,控盤,0),COLORRED,; VARA:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*400; VARB:=100-ABS(VARA); 天線:= IF(VARB<90,VARB,100); 整體二分之一:=(O+C)/2,; 二一位上:= C>REF(整體二分之一,1); VAR11:=MA(100*(CLOSE-LLV(CLOSE,18))/(HHV(HIGH,18)-LLV(LOW,18)),5)-20; 有莊控盤S:=有莊控盤>REF(有莊控盤,1); 紅軍:= IF(VAR11>0,VAR11,0),COLORRED; 紅軍大:=紅軍>0; 紅軍S:=紅軍>REF(紅軍,1); 二一位上大:=二一位上>0; 天線小:=天線<99; HJ:天線小 AND 二一位上大 AND 紅軍大 AND 有莊控盤S; STICKLINE(HJ ,20 ,0 ,3,0 ),COLORBROWN; M40:=40; M5:=4; MA1:=MA(CLOSE,M1),COLORWHITE,LINETHICK2; MA5:=MA(CLOSE,M5),LINETHICK3,; MA5向上:=MA5>REF(MA5,1); M1大于M5:=MA1>MA5; MA40:=MA(CLOSE,M40),LINETHICK3,; 股價大于M40:=C>MA40; 上收:=L; 箱頂89:=MA(REF(HHV(上收,89),1),2),COLORRED,LINETHICK4; 箱頂30:=MA(REF(HHV(上收,30),1),2),COLORRED,LINETHICK4; 箱頂5:=MA(REF(HHV(上收,4),1),2),COLORRED,LINETHICK1; 股價大于頂5:=C>箱頂5; 股價大頂30:=C>箱頂30; P9:=8; MA8:=MA(CLOSE,P9),COLORYELLOW,LINETHICK1; M5大于M8:=MA5>MA8; 發散:MA8>REF(MA8,1) AND 股價大于頂5 AND M1大于M5 AND M5大于M8 AND MA5向上 AND 股價大于M40,COLORGRAY; 突破發散:MA8>REF(MA8,1) AND 股價大于頂5 AND M1大于M5 AND M5大于M8 AND MA5向上 AND 股價大頂30 AND 股價大于M40,COLORYELLOW; STICKLINE(發散 ,40 ,20 ,3,0 ),COLORGRAY; STICKLINE(突破發散 ,60 ,40 ,3,0 ),COLORYELLOW; DIF:=EMA(CLOSE,12)-EMA(CLOSE,26); DEA:=EMA(DIF,9); MACD:=(DIF-DEA)*2; MACD大于0:=MACD>0; MACD上:= MACD>REF(MACD,1); MTMN:=4; MTMN1:=4; MTM:=CLOSE-REF(CLOSE,MTMN); MTMMA:=MA(MTM,MTMN1); MTM大:=MTM>MTMMA; N1:=3; N2:=6; N3:=12; N4:=24; BBI:=(MA(CLOSE,N1)+MA(CLOSE,N2)+MA(CLOSE,N3)+MA(CLOSE,N4))/4; BBI上:= BBI>REF(BBI,1); 價大BBI:=C>BBI; L3:=8; BIAS3 := (CLOSE-MA(CLOSE,L3))/MA(CLOSE,L3)*100; BIAS大:=BIAS3>0; N:=4; M:=4; 散戶:=100*(HHV(HIGH,M)-CLOSE)/(HHV(HIGH,M)-LLV(LOW,M)); RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100; K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; 莊家:=EMA(J,6); 莊大:=莊家>散戶; 雷達主力:=EMA( (CLOSE-MA(CLOSE,3))/MA(CLOSE,3)*480,2); 雷達大0:=雷達主力>0; MM1:=二一位上大 AND MACD大于0 AND MACD上 AND MTM大 AND 價大BBI AND BBI上 AND BIAS大 AND 莊大,COLORMAGENTA; MM:二一位上大 AND MACD上 AND MTM大 AND 價大BBI AND BBI上 AND BIAS大 AND 莊大 AND 雷達大0,COLORMAGENTA; X3:MM AND HJ AND 發散; STICKLINE(MM ,90,60 ,3,0 ),COLORMAGENTA; STICKLINE(X3 ,90,0 ,3,0 ),COLORRED; 注： 館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。 發文不易，如獲益，歡迎贊賞，贊賞必復！ |
|
|
