相關標簽:

?

該指標為網上所得，其將日線、周線、月線巧妙地同時顯示在主圖窗口，為看盤者免去了來回變換分析周期的麻煩，同時也可作為時間箱體操作參考。
同時還給出了一些走勢的看法。
{日線周線月線同現（主圖 源碼）};
{月};
MC:=C#MONTH,NODRAW;
MH:=H#MONTH,NODRAW;
ML:=L#MONTH,NODRAW;
MO1:=IF(DAY<REF(DAY,1),O,DRAWNULL);
MO:=HHV(MO1,DAY),NODRAW;
STICKLINE(MC>=MO,MH,ML,4,-1)COLOR00009C;
STICKLINE(MC<=MO,MH,ML,4,-1),COLOR4F2F4F;
{周}
周O1:=IF(WEEKDAY<REF(WEEKDAY,1),O,DRAWNULL);
周開:HHV(周O1,WEEKDAY)COLORRED,NODRAW;
周高:HHV(H,WEEKDAY)COLORYELLOW,NODRAW;
周低:LLV(L,WEEKDAY)COLOR32CD32,NODRAW;
周收:C#WEEK, COLORFF6EC7,NODRAW;
STICKLINE(周收>=周開,周收,周高,4,0)COLOR600060;
STICKLINE(周收>=周開,周低,周收,4,0)COLOR00009C;
STICKLINE(周收<周開,周收,周高,4,0),COLOR9F3333;
STICKLINE(周收<周開,周開,周低,4,0),COLOR9F3333;
MA5:MA(C,5);
MA10:MA(C,10);
MA20:MA(C,20);
MA60:MA(C,60);
MA120:MA(C,120);
{STICKLINE(MA5>=MA60 AND MA60>=MA10,MA10,MA60,1,-1),COLORBLUE;
STICKLINE(MA5>=MA10 AND MA5<=MA60,MA10,MA5,1,-1),COLORBLUE;
STICKLINE(MA20>=MA60 AND MA60>=MA40,MA40,MA60,1,-1),COLORFF00FF;
STICKLINE(MA20>=MA40 AND MA20<MA60,MA40,MA20,1,-1),COLORFF00FF;
STICKLINE(MA5>=MA20 AND MA20>=MA10,MA10,MA20,1,-1),COLORYELLOW;
STICKLINE(MA5>=MA10 AND MA5<MA20,MA10,MA5,1,-1),COLORYELLOW;}
上開:=O;
上收:=C;
上高:=H;
上低:=L;
JJ:=(上開+上高+上低)/3;
A:=EMA(JJ,4);
黃金線A:=A;
VA1:=EMA(上收,8);
VA2:=EMA(上收,20);
DRAWTEXT(CROSS(VA1,VA2)AND(C>=O)AND 黃金線A>REF(黃金線A,1),VA1*0.97,'B')COLORRED;
VAR3P:=IF(CLOSE/REF(CLOSE,1)>1.050 AND HIGH/CLOSE<1.010 AND IF(CLOSE>REF(CLOSE,1),88,0)>0, 91, 0);
DRAWTEXT(VAR3P>90,LOW*0.978,'B')COLORMAGENTA;
DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.02,'S')COLORGREEN;
VAR1:=EMA(EMA(CLOSE,13),13);
控盤:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
有莊控盤:=控盤>REF(控盤,1) AND 控盤>0;
SS:=有莊控盤 AND CROSS(EMA(C,3),EMA(C,5)) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA(C,3),EMA(C,12)) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA(C,5),EMA(C,7)) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018
OR CROSS(EMA(C,3),EMA(C,7)) AND C>O AND C>REF(C,1) AND C/REF(C,1)>=1.018 AND CROSS(EMA(C,3),EMA(C,12));
DRAWICON(SS,LOW*0.978,36);
DRAWKLINE(H,O,L,C);
AAA:=CONST(HHV(H,90));
ABB:=MA(CLOSE,20);
AZI:=(CLOSE > MA(CLOSE,5));
ADD:=(MA(CLOSE,5) > MA(CLOSE,10));
AEE:=(CLOSE > MA(CLOSE,10));
AFF:=(MA(CLOSE,5) > MA(CLOSE,20));
AGG:=(CLOSE > MA(CLOSE,20));
AHH:=REF(ABB,1);
AII:=(ABB > AHH);
AVX:=(((((IF(AZI,10,(0 - 10)) + IF(ADD,10,(0 - 10))) + IF(AEE,10,(0 - 10)))
+ IF(AFF,10,(0 - 10))) + IF(AGG,10,(0 - 10))) + IF(AII,10,(0 - 10)));
DSLX:=(CLOSE / INDEXC);
DSLX1:=MA(DSLX,5);
DSLX2:=MA(DSLX,10);
V1:=MA(VOL,5);
V2:=MA(VOL,10);
T1:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T2:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));
T3:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)),1,0));
T4:=CONST(IF(C<200 AND ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)),1,0));
T5:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T6:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));
T7:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T8:=CONST(IF(C<200 AND ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));
T9:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T10:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));
T11:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T12:=CONST(IF(C<200 AND ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));
T13:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),1,0));
T14:=CONST(IF( C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),1,0));
T15:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),1,0));
T16:=CONST(IF(C<200 AND ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),1,0));
T17:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));
T18:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 >= V2)),1,0));
T19:=CONST(IF(C>200 AND (CROSS(AVX,1) AND (V1 < V2)),1,0));
T20:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 >= V2)),1,0));
T21:=CONST(IF(C>200 AND (CROSS(1,AVX) AND (V1 < V2)),1,0));
T22:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)),1,0));
T23:=CONST(IF(C>200 AND (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)),1,0));
T24:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)),1,0));
T25:=CONST(IF(C>200 AND (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)),1,0));
DRAWTEXT(T1=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'量能理想,明顯走強,中線參與，倉位在2/3左右'),COLORFF00FF ;
DRAWTEXT(T2=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'走勢趨強,還顯不足,短線進場，倉位在1/2左右'),COLORRED ;
DRAWTEXT(T3=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'量價良好,沒有明顯走強，短線進場，倉位1/2左右'),COLORRED ;
DRAWTEXT(T4=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'形態尚可，量能不足，未完全走強，短線參與，倉位1/3左右'),COLORRED ;
DRAWTEXT(T5=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'形態變壞，重倉者減持大半，清倉者觀望'),COLORF0F000 ;
DRAWTEXT(T6=1 AND CURRBARSCOUNT=80,AAA*0.98 ,'隨大盤一起下跌，明顯縮量走勢，考慮到風險，減持或清倉'),COLORF0F000 ;
DRAWTEXT(T7=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股放量下跌，走勢明顯偏弱，離場觀望'),COLORF0F000 ;
DRAWTEXT(T8=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股縮量下跌，走勢偏弱，離場觀望'),COLORF0F000 ;
DRAWTEXT(T9=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股形態良好，強勢明顯，量能充足，可以繼續持有'),COLORRED ;
DRAWTEXT(T10=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'上行趨勢不變，強勢依然，量能開始轉弱，注意風險'),COLORRED ;
DRAWTEXT(T11=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股仍然具備上漲潛力，但股性偏弱，可考慮減倉'),COLORFF99FF ;
DRAWTEXT(T12=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股走勢趨弱，量能不足，減持大部分籌碼'),COLOR008FFF ;
DRAWTEXT(T13=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股形態不佳，注意成交量的變化，目前不適合參與'),COLORF0F000 ;
DRAWTEXT(T14=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'趨勢不明，股價偏弱，注意量能變化，目前不宜參與'),COLORF0F000 ;
DRAWTEXT(T15=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'有走強跡象，但量能不足，趨勢不明，不適合操作'),COLORYELLOW ;
DRAWTEXT(T16=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'該股走勢太弱，沒有參與價值'),COLOR008FFF ;
DRAWTEXT(T17=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤理想，有明顯走強跡象，中線參與，倉位在2/3左右'),COLORFF00FF ;
DRAWTEXT(T18=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'如前期經過一輪下跌，最佳買點，前期有過一段漲幅需謹慎'),COLORYELLOW ;
DRAWTEXT(T19=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'考慮短線進場，倉位在1/2左右，一旦量能放大,加倉買入'),COLORFF00FF ;
DRAWTEXT(T20=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤形態走壞，重倉者可以減去大部分倉位'),COLOR008FFF ;
DRAWTEXT(T21=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤縮量調整，注意風險，短線清倉觀望'),COLOR008FFF ;
DRAWTEXT(T22=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤走勢良好，量能理想，可以繼續持有強勢股'),COLORFF00FF ;
DRAWTEXT(T23=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤形態良好，但量能稍顯不足，隨時準備減倉'),COLORYELLOW ;
DRAWTEXT(T24=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤趨勢不明，注意成交量變化，目前不適宜進場'),COLORF0F000 ;
DRAWTEXT(T25=1 AND CURRBARSCOUNT=80,AAA-(AAA*0.03),'大盤趨勢向下，量能萎縮，不適合進場'),COLORF0F000 ;

?

公式導入教程: 【通達信公式源碼導入方法教程】 【同花順公式源碼導入方法教程】 【大智慧新一代公式源碼導入方法教程】

?

 

有思路，想編寫各種指標公式，交易模型，選股公式，還原公式的朋友

可聯系技術人員 QQ: 262069696  或微信：cxhjy888 進行 有償收費 編寫！(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)

（怎么收費，代編流程等詳情請點擊查閱！）

(注：由于人數限制，QQ或微信請選擇方便的一個聯系我們就行，加好友時請簡單備注下您的需求，否則無法通過。謝謝您！)