|
編程思路破譯 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; 注： 館內各種公式為學習編程而保存，實戰使用前一定要看其中是否有未來函數并自己親自測試成功率，決不能依據公式名稱的描述和形容去投資，據此入市造成投資損失由投資者自己承擔。 發文不易，如獲益，歡迎贊賞，贊賞必復！ |
|
|
