編程思路破譯
N賦值:5
大盤情緒賦值:"880005$收盤價"
輸出大盤情緒1:"SZ399001$上漲家數"+"SH000001$上漲家數"
2400,畫淡紅色,線寬為2
當滿足條件是否最后一個周期=1時,在2400位置書寫文字,COLORFFFFFF
800,畫淡藍色,線寬為2
當滿足條件是否最后一個周期=1時,在800位置書寫文字,畫淡藍色
500,COLOR66FFFF,線寬為2
當滿足條件是否最后一個周期=1時,在500位置書寫文字,COLOR66FFFF
A賦值:"880812$成交額(元)"*0.00000001
A1賦值:如果A<25,返回1,否則返回0
A2賦值:如果A>154ANDA<180,返回1,否則返回0
A3賦值:如果A>200AND大盤情緒1<2000,返回1,否則返回0
A4賦值:如果A/A的20日簡單移動平均>1.5,返回1,否則返回0
A5賦值:如果A>200AND大盤情緒1>1800,返回1,否則返回0
當滿足條件A2時,在2000位置書寫文字,畫紅色
當滿足條件A5時,在3000位置書寫文字
當滿足條件A3時,在1000位置書寫文字,畫綠色
D賦值:"880770$最高價"*0.1
DD賦值:"880770$最低價"*0.1
DD1賦值:"880770$收盤價"*0.1
DD2賦值:"880770$開盤價"*0.1
輸出DD3:"880770$成交量(手)"/1日前的"880770$成交量(手)"
輸出DD4:DD2/1日前的DD1
D1賦值:N日內D的最高值
輸出D2:D1/DD
輸出D5:D1/DD*100
輸出D6:DD2/1日前的DD1
D3賦值:DD1上穿DD1的5日簡單移動平均 AND DD1上穿DD1的10日簡單移動平均
當滿足條件D2>1.088時,在2500位置書寫文字,畫紅色
當滿足條件D3AND大盤情緒1>1500時,在2000位置書寫文字
當滿足條件D6<0.98ANDDD1<DD2時,在2000位置書寫文字,畫綠色
輸出D4:A上穿A的20日簡單移動平均
A/A的20日簡單移動平均
AAAA賦值:"880772$最高價"
AA賦值:"880772$收盤價"
AA1賦值:"880772$開盤價"
AA11賦值:"880772$最低價"
AAA11賦值:"880772$成交量(手)"
AD1賦值:AA的20日簡單移動平均
輸出AD2:(AD1-AAAA)<2 AND AA的5日簡單移動平均<AD1 AND 大盤情緒<1500
AA3賦值:AA11/1日前的AA<0.97 AND AA<AA1
輸出AAA3:AAA11的5日簡單移動平均上穿AAA11的20日簡單移動平均
輸出F:上次AAA3距今天數
輸出F1:F>0 AND AAA11/AAA11的20日簡單移動平均>1.7
輸出F2:AA的3日簡單移動平均上穿AA的7日簡單移動平均
輸出F3:AA的3日簡單移動平均<AA的7日簡單移動平均 AND AAA11<AAA11的20日簡單移動平均
當滿足條件AA3時,在1500位置書寫文字,畫綠色
當滿足條件AAA3時,在1500位置書寫文字,畫紅色
當滿足條件F1時,在400位置書寫文字,畫紅色
當滿足條件AAA3時,在0和100位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫紅色
當滿足條件F1時,在0和300位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫紅色
當滿足條件F3時,在0和-150位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫綠色
當滿足條件F2時,在0和300位置之間畫柱狀線,寬度為3,0不為0則畫空心柱.,畫黃色
程序源碼
N:=5;
大盤情緒:="880005$C";{總上漲家數}
大盤情緒1:"SZ399001$ADVANCE"+"SH000001$ADVANCE";{總上漲家數};
2400,COLORLIRED,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,2400,' '),COLORFFFFFF;
800,COLORLIBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,800,' '),COLORLIBLUE;
500,COLOR66FFFF,LINETHICK2;
DRAWTEXT(ISLASTBAR=1,500,' '),COLOR66FFFF;
A:="880812$AMOUNT"*0.00000001;
A1:=IF(A<25,1,0);
A2:=IF(A>154 AND A<180,1,0);
A3:=IF(A>200 AND 大盤情緒1<2000 ,1,0);
A4:=IF(A/MA(A,20)>1.5,1,0);
A5:=IF(A>200 AND 大盤情緒1>1800 ,1,0);
DRAWTEXT(A2,2000,'弱分歧'),COLORRED;
DRAWTEXT(A5,3000,'高潮期');
DRAWTEXT(A3,1000,'強分歧'),COLORGREEN;
D:="880770$H"*0.1;
DD:="880770$L"*0.1;
DD1:="880770$C"*0.1;
DD2:="880770$O"*0.1;
DD3:"880770$V"/REF("880770$V",1);
DD4:DD2/REF(DD1,1);
D1:=HHV(D,N);
D2:D1/DD;
D5:D1/DD*100;
D6:DD2/REF(DD1,1);
D3:=crOSS(DD1,MA(DD1,5)) AND CROSS(DD1,MA(DD1,10));
DRAWTEXT(D2>1.088,2500,'接力'),COLORRED;
DRAWTEXT(D3 AND 大盤情緒1>1500,2000,'強共振點');
DRAWTEXT(D6<0.98 AND DD1<DD2,2000,'衰退'),COLORGREEN;
D4:CROSS(A,MA(A,20));
A/MA(A,20);
AAAA:="880772$H";
AA:="880772$C";
AA1:="880772$O";
AA11:="880772$L";
AAA11:="880772$V";
AD1:=MA(AA,20);
AD2:(AD1-AAAA)<2 AND MA(AA,5)<AD1 AND 大盤情緒<1500;
AA3:=AA11/REF(AA,1)<0.97 AND AA<AA1;
AAA3:CROSS(MA(AAA11,5),MA(AAA11,20));
F:BArslAST(AAA3);
F1:F>0 AND AAA11/MA(AAA11,20)>1.7;
F2:CROSS(MA(AA,3),MA(AA,7));
F3:MA(AA,3)<MA(AA,7) AND AAA11<MA(AAA11,20);
DRAWTEXT(AA3,1500,'切換'),COLORGREEN;
DRAWTEXT(AAA3,1500,'主勝預警'),COLORRED;
DRAWTEXT(F1,400,'主升階段'),COLORRED;
{DRAWTEXT(AD2,3000,'爆頭'),COLORRED;}
STICKLINE(AAA3,0,100,3,0),COLORRED;
STICKLINE(F1,0,300,3,0),COLORRED;
STICKLINE(F3,0,-150,3,0),COLORGREEN;
STICKLINE(F2,0,300,3,0),COLORYELLOW;
注：
館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。
發文不易，如獲益，歡迎贊賞，贊賞必復！
