相關標簽:

?

{均線主圖}{星期顯示}
yy1:=WEEKDAY;
IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(10,950,'■星期五■'),LINETHICK2,Color0048EE;end;
IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(10,950,'■星期四■'),LINETHICK2,Color3056FF;end;
IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(10,950,'■星期三■'),LINETHICK2,Color7156FF;end;
IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(10,950,'■星期二■'),LINETHICK2,Color936AFF;end;
IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(10,950,'■星期一■'),LINETHICK2,ColorD4A3FF;end;
IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(10,950,'■星期六■'),LINETHICK2,Color05FF00;end;
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(10,950,'■星期日■'),LINETHICK2,Color0000FF;end;{均線語言 箱體空間}
if DISPSTATUS=2 then aaa:=BARPOS;
if DISPSTATUS=1 then bbb:=BARPOS;
ddd:=aaa-bbb;
ee:=hhv(h,ddd);
MSTATUS:=BARSTATUS=2;
MA5:MA(C,5),PRECIS2;
MA10:MA(C,10),PRECIS2;
MA30:MA(C,30),PRECIS2;
MA60:MA(C,60),PRECIS2,LINETHICK2;
MA125:MA(C,125),ColorFFFF00,PRECIS2,LINETHICK2;
MA250:MA(C,250),PRECIS2,LINETHICK2;
i:=1;
IF MSTATUS and (MA5 > MA10 and MA10 > MA30 and MA5 > MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均線多頭排列。股價高位謹防筑頂。中低位當股價向上突破5、10、30日均線，均線呈多頭排列是最佳買入時機。'+ma5+' > '+ma10+' > '+ma30+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < MA10 and MA10 < MA30 and MA5 < MA30) THEN BEGIN DRAWTEXTABS(0,i*16,'短期均線空頭排列。股價高位謹防棄莊，賣盤涌出破位下跌。中低位當股價向下突破5、10、30日均線，均線呈空頭排列時，注意觀察股價所處箱體位置。'+ma5+' < '+ma10+' < '+ma30+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > MA60 and MA30 > MA125 and MA60 > MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均線多頭排列。注意股價突然下跌，當股價回檔至當前盤面30、60、125日任一均線獲得支撐，關注均線助漲，次日股價放量向上突破，是中長期最佳買入時機。'+ma30+' > '+ma60+' > '+ma125+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < MA60 and MA30 < MA125 and MA60 < MA125) THEN BEGIN DRAWTEXTABS(0,i*16,'中期均線空頭列排。30、60、125日中長期均線下行呈空頭排列，注意箱體上下撐壓或無量空跌。'+ma30+' < '+ma60+' < '+ma125+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA60 > MA125 and MA125 > MA250 and MA60 > MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'長期均線多頭排列。即60，125，250日均線向上多頭排列。注意：當股價處于箱體頂部，所有均線多頭排列，股價反復震蕩不能突破，可能頂部即將形成。'+ma60+' > '+ma125+' > '+ma250+';'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1; END;
IF MSTATUS and (MA60 < MA125 and MA125 < MA250 and MA60 < MA250) THEN BEGIN DRAWTEXTABS(0,i*16,'長期均線空頭排列。即60，125，250日均線向下空頭排列。注意：當所有均線空頭排列的時候，股價處于箱體的一個次高位，中位，或箱體下沿，可能是階段底部的形成。 '+ma60+' < '+ma125+' < '+ma250+';'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA5,MA10)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均線金叉。注意觀察股價在箱體的位置，30日和其他均線是否成為股價上漲的阻力，或股價在高位的運行方向，判斷是反轉上漲還是下跌中途的小反彈。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA10,MA5)) THEN BEGIN DRAWTEXTABS(0,i*16,'短期5日10日均線死叉。當股價反彈遭遇30日和其他均線的阻力形成死叉，可能是股價下跌中途的小反彈。高位區死叉，必須逃頂或止損。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA125)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價上穿半年線。在半年線上方運行的個股被稱為強勢股。適合中小資金根據短線技術指標套利操作。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA125,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價跌破半年線。在半年線下方運行的個股被稱為弱勢股。適合大資金進場吸籌操作。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價上穿年線。股票筑底后，股價經過反復震蕩洗盤上穿年線，予以鎖定跟蹤。'),COLORFF00FF,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(MA250,C)) THEN BEGIN DRAWTEXTABS(0,i*16,'今日股價跌破年線。跌破年線，證明深度調整格局可能形成。如果后市股價繼續深跌，調整時間和空間難以預測。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (CROSS(C,MA60) and CROSS(C,MA125) and CROSS(C,MA250)) THEN BEGIN DRAWTEXTABS(0,i*16,'股價一陽穿三線。5、10、30日均線三線合一，股價一陽穿三線，向上反轉，可能變盤反轉在即。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢向上。注意：如果股價在低位中位30日均線之上，圍繞另一條重要均線縮量橫盤，隨后5-10日均線金叉，所有均線向上呈多頭排列，是中長期績優牛股的搖籃。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 > REF(MA30,1) AND MA30 < REF(MA30,1)*1.001) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢走平。需觀察5日和10日均線方向，如30日均線發出趨勢向下信號，5日10日均線形成死叉，注意減倉或出貨。'),COLORFFCC66,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA30 < REF(MA30,1)) THEN BEGIN DRAWTEXTABS(0,i*16,'30日均線趨勢向下。關注股價所處箱體位置，如股價當前上漲或下跌時，則需觀察箱體阻力支撐位置。如果股價處于遠離30日均線位置，一般情況下股價反彈空間有限。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1)*1.015) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線強勁向上。需觀察股價所處其他均線和箱體位置,如果收盤時股價突然跌破5日均線，則需觀察箱體下方支撐，提防空頭陷阱，股價轉向。'),COLORRED,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 > REF(MA5,1) AND MA5 < REF(MA5,1)*1.005) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線方向不明。當股價連續跌破5日均線和箱體下沿，導致股價方向開始向下，績優股應適當做空；股價在箱體內則需觀察股價下方的重要均線位置，可否獲得支撐。'),COLORYELLOW,ALIGN0,LINETHICK1;
i:=i+1;
END;
IF MSTATUS and (MA5 < REF(MA5,1)*0.985) THEN BEGIN DRAWTEXTABS(0,i*16,'5日均線快速向下，短線風險可能降臨。需結合其他均線運行方向分析，如果股價在一個大箱體中，則需觀察下方均線支撐，偌收盤前股價獲得支撐，5-10均線金叉并數日向上，則可順勢而為做多。'),COLORGREEN,ALIGN0,LINETHICK1;
i:=i+1;
END;
if DISPSTATUS=2 then begin;
cxh100:='■所屬行業板塊：';
if inblock('電力')=1 then cxh100:=cxh100+'電力。';
if inblock('電力設備')=1 then cxh100:=cxh100+'電力設備。';
if inblock('電器')=1 then cxh100:=cxh100+'電器。';
if inblock('電子信息')=1 then cxh100:=cxh100+'電子信息。';
if inblock('房地產')=1 then cxh100:=cxh100+'房地產。';
if inblock('紡織服裝')=1 then cxh100:=cxh100+'紡織服裝。';
if inblock('鋼鐵')=1 then cxh100:=cxh100+'鋼鐵。';
if inblock('工程建筑')=1 then cxh100:=cxh100+'工程建筑。';
if inblock('供水供氣')=1 then cxh100:=cxh100+'供水供氣。';
if inblock('化工')=1 then cxh100:=cxh100+'化工。';
if inblock('化纖')=1 then cxh100:=cxh100+'化纖。';
if inblock('機械')=1 then cxh100:=cxh100+'機械。';
if inblock('計算機')=1 then cxh100:=cxh100+'計算機。';
if inblock('建材')=1 then cxh100:=cxh100+'建材。';
if inblock('交通工具')=1 then cxh100:=cxh100+'交通工具。';
if inblock('交通設施')=1 then cxh100:=cxh100+'交通設施。';
if inblock('教育傳媒')=1 then cxh100:=cxh100+'教育傳媒。';
if inblock('旅游酒店')=1 then cxh100:=cxh100+'旅游酒店。';
if inblock('煤炭石油')=1 then cxh100:=cxh100+'煤炭石油。';
if inblock('釀酒食品')=1 then cxh100:=cxh100+'釀酒食品。';
if inblock('農林牧漁')=1 then cxh100:=v

?

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

?