一目均衡指標函數源碼視頻

① 一目均衡表 指標的使用

「一目均衡表」是日本在二次大戰前發明，功能是提供市場的方向及入市位，一目均衡表的假設是全沒有依據任何所謂的技術分析工具或理論，一目均衡表是全世界技術分析的鼻祖。 一目均衡表，顧名思義是「一眼睇曬」。日本文KINKO，直譯為時空平衡點，HYO是圖表的稱謂，故此，Ichimoku Kinko Hyo包含了一個時空平衡點的圖表，提供一個價格宏觀的變動，及投資者入市的方向。

使用方法

編輯

利用一目均衡表區分強弱市（買賣信號）。

遲行線開始下穿K線。

2）由下降轉為上升的調整階段，一目均衡表的表現：

K線開始站在基準線的上方；

轉換線上穿基準線；

遲行線上穿K線；

K線由下方進入雲層，最終上穿雲層；

遲行線由雲的上方穿出。

一目均衡表的其它特徵

市場呈強勢之時，通常難以觸及雲的邊線；

市場呈強勢之時，通常不會穿透轉換線，在穿透轉換線時，一般意味著進入調整；

始終未穿透基準線的市勢，當開始穿透基準線時，可能意味著較大調整的開始；

價位觸及雲的上邊線後，未能上穿基準線，雲層較易被穿透；

遲行線穿透日日線和雲層的時候，容易出現暴跌；

在下降市中，通常難以觸及基準線。

② gateio的K線指標里一目均衡表的發明者是誰

日本記者一目山人發明

③ 哪個軟體能看一目均衡圖

不能給具體的公式,網路會吞
其實均衡圖由五組參數合成，與現在常用的移動版平均線吻權合。參數建基於各個長短周期的高低點，提供一明確簡單的走勢圖。
五個參數如下：
1) 短軸快線
2) 中軸慢線
3) 後移指標
4) 前移指標
5) 前移指標

不能給具體的公式,否則就會被網路給吞了.你自己搜索下吧.
新手也可以下載自己模擬學習下

④ 一目均衡表的計算方法

一目均衡圖由五組參數合成，與現在常用的移動平均線吻合。參數基專於各個長短周期的高低屬點，提供一明確簡單的走勢圖。五個參數如下：
1、短軸快線
短軸快線 = 轉換線 = (9 日內最高+9 日內最低)/2，以9日為一短線周期 (周期長短可任意更改)。
2、中軸慢線
中軸慢線 = 基準線 = (26 日內最高+26 日內最低)/2， 以26 日為一中線周期 (周期長短可任意調教)。
3、後移指標
後移指標 = 遲行帶 = 將今日收市價後移至一中線周期。
4、前移指標A
前移指標A = 先行帶A = (短軸快線+中軸慢線)/2，前移至一中線周期。
5、前移指標B
前移指標B = 先行帶B = (52 日內最高+52日內最低)/2， 前移至一中線周期。
6、雲帶（抵抗帶）
雲帶= 前移指標A及前移指標B的空間。
一目均衡表以9, 26, 52 三個系數計算周期，在1930年代，日本是每周六天工作，傳統的系統包括個半星期(短)、一個月(中)及二個月(長)為准，現今社會，己由六個工作天改為五個，故此根據一目均衡表的神髓，應改為7, 22, 44 才能配合現今社會。

⑤ gate.io的K線指標里一目均衡表是什麼意思

一目均衡表是日本最流行的圖表的交易工具，廣泛為投資者採用，由日本記者一目山人發明。
一目通過均衡表由每日的K線（一目均衡表中稱日日線），5條線及一個企業抵抗帶（俗稱雲圖）構成。通過解讀誰可以通過市場的力量懂表，也可以在這里買賣信號的幾個之間的關系。

⑥ 哪個炒股軟體可以看到一目均衡表這個指標

此公式不知道是不是你所說的一目均衡表指標。

{n1 9, n2 26 , n3 52}
AA:=(HHV(HIGH,120)-LLV(LOW,120))/30;
VAR1:=(2*CLOSE+HIGH+LOW)/4;
轉換線:(HHV(HIGH,N1)+LLV(LOW,N1))/2,COLORRED,LINETHICK2;
基準線:(HHV(HIGH,N2)+LLV(LOW,N2))/2,COLORBLUE,LINETHICK2;
遲行線:REF(CLOSE,N2),COLORFF9224;
先行帶一:REF((轉換線+基準線)/2,N2),COLORYELLOW,LINETHICK1;
先行帶二:REF((HHV(HIGH,N3)+LLV(LOW,N3))/2,N2),COLOR909090,LINETHICK1;
選股:CROSS(轉換線,基準線),LINETHICK0;
STICKLINE(先行帶一<=先行帶二,先行帶一,先行帶二,4,1.5),COLOR339933;
STICKLINE(先行帶一>先行帶二,先行帶一,先行帶二,4,1),COLOR0033CC;
DRAWTEXT(CROSS(轉換線,基準線) AND VAR1<MIN(先行帶一,先行帶二),MIN(基準線,LOW)*0.995,'▲'),COLORYELLOW ;
DRAWTEXT(CROSS(轉換線,基準線) AND RANGE(VAR1,MIN(先行帶一,先行帶二),MAX(先行帶一,先行帶二)),LOW*0.995,'▲\N▲'),COLORYELLOW;
DRAWTEXT(CROSS(轉換線,基準線) AND VAR1>MAX(先行帶一,先行帶二),LOW-AA*0.5,'▲\N▲\N▲'),COLORYELLOW ;
DRAWTEXT(CROSS(基準線,轉換線) AND VAR1<MIN(先行帶一,先行帶二),MAX(基準線,HIGH)+AA*2,'▼\N▼\N▼'),COLORFFFFFF ;
DRAWTEXT(CROSS(基準線,轉換線) AND RANGE(VAR1,MIN(先行帶一,先行帶二),MAX(先行帶一,先行帶二)),MAX(基準線,HIGH)+AA,'▼\N▼'),COLORFFFFFF ;
DRAWTEXT(CROSS(基準線,轉換線) AND VAR1>MAX(先行帶一,先行帶二),MAX(基準線,HIGH)+AA,'▼'),COLORFFFFFF ;
{陰柱}
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORFF9F68;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.5,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.2,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0.8,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0.6,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0.4,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0.2,0 ),COLOR00FF00;
{紅柱}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.2,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.8,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.6,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.4,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.2,0) ,COLORFFBBFF;

⑦ 誰用過這個fractal 指標 和 一目均衡指標效果如何

此公式不知道是不是你所說的一目均衡表指標。回 {n1 9, n2 26 , n3 52} AA:=(HHV(HIGH,120)-LLV(LOW,120))/30; VAR1:=(2*CLOSE+HIGH+LOW)/4; 轉換線答:(HHV(HIGH,N1)+LLV(LOW,N1))/2,COLORRED,LINETHICK2; 基準線:(HHV(HIGH,N2)+LLV(LOW,N2))/2,COLO...

⑧ 請問有沒有人知道在《股票盯盤系統》APP里怎麼寫入一目均衡的公式，網上找的說有不可識別的欄位，謝謝！

一.選股指標.

次日漲停
W1:=C=HHV(C,20);
W2:=BARSLAST(W1);
W3:=IF(W2>0,REF(C,W2),REF(C,W2));
W4:=CROSS(C,REF(W3,1));
W4 AND COUNT(W4,5)=1;
黃轉紫選股
DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=(DIFF-DEA)*2;
紫柱:MACD<0 AND MACD>REF(MACD,1) AND REF(MACD,1)<REF(MACD,2);

低位金叉選股
DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=(DIFF-DEA)*2;
低位金叉:CROSS(DIFF,DEA) AND DIFF<-0.1;

二次金叉選股
DIFF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA:=EMA(DIFF,9);
MACD:=(DIFF-DEA)*2;
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:CROSS(DIFF,DEA) AND DEA<0 ANDCOUNT(JCCOUNT=2,21)=1;
絕地反彈
（1）
VAR1:=REF(LOW,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),13,1)*100;
VAR3:=EMA(IF(CLOSE*1.2,VAR2*13,VAR2/13),13);
VAR4:=LLV(LOW,34);
VAR5:=HHV(VAR3,34);
VAR6:=IF(LLV(LOW,55),1,0);
VAR7:=EMA(IF(LOW<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6;
XL1:=MA(LOW,2)*0.96;
XL2:=MA(LOW,26)*0.85;
XL3:=REF(XL1,1)<XL2 AND REF(XL1,1)<XL1AND REF(XL1,1)<REF(XL1,2);
啟動:=IF(XL3,0,VAR7*3),COLORRED;
XG:啟動>25;

（2）

BACKSET( (REF(CLOSE,1)<REF(OPEN,1) AND
CLOSE>OPEN ANDABS(CLOSE-REF(CLOSE,1))/CLOSE<0.002),2);
A2:=FILTER(A1<=V3,10);
ND CAPITAL<300000000
REF(V,1) = LLV(V,4) AND V >=REF(V,1)
HHV(V,3)=REF(V,1) AND HHV(V,5)=REF(V,1) ANDHHV(V,21)=REF(V,1)
AND V >=REF(V,1)
01>0 AND T02>0;

1.三線粘合
M:=1;
M5:=MA(CLOSE,5);
M10:=MA(CLOSE,10);
M20:=MA(CLOSE,20);
K1:=MAX(MAX(M5,M10),MAX(M10,M20));
K2:=MIN(MIN(M5,M10),MIN(M10,M20));
A:=MAX(M5,MAX(M10,M20))/MIN(M5,MIN(M10,M20))<1+0.03*M;
A1:=(K1/K2-1)<0.005;
A2:=(K1/K2-1)<0.005;
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
XG:A AND A1 AND A2 AND A3 AND C>O AND V>REF(V,1) AND CAPITAL<=300000000;

2.三條線粘合
N1:=5;N2:=10;N3:=20;M:=1;
MA1:=MA(C,N1);MA2:=MA(C,N2);MA3:=MA(C,N3);
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
MAX(MA1,MAX(MA2,MA3))/MIN(MA1,MIN(MA2,MA3))<1+0.01*M
AND C>O AND V> REF(V,1) ANDFINANCE(7)<=300000000
AND A3 AND CAPITAL<=300000000;

3.均線粘合
M:=1;
M5:=MA(CLOSE,5);
M10:=MA(CLOSE,10);
M20:=MA(CLOSE,20);
K1:=MAX(MAX(M5,M10),MAX(M10,M20));
K2:=MIN(MIN(M5,M10),MIN(M10,M20));
A:=MAX(M5,MAX(M10,M20))/MIN(M5,MIN(M10,M20))<1+0.01*M;
A1:=(K1/K2-1)<0.005;
A2:=(K1/K2-1)<0.005;
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
XG:A AND A1 AND A2 AND A3 ;
3. 金叉選股指標
快線:=EMA(EMA(EMA(EMA(CLOSE,2),2),2),2);
慢線:=EMA(REF(快線,1),2);
A3:=V>REF(V,1)*1.5 AND V>MA(V,5);
XG:CROSS(快線,慢線) AND C>O AND
V>=MA(V,21) AND V> REF(V,1) ANDCAPITAL<=300000000 ;
4.角度
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
V0:CROSS(MA5,MA10) AND CROSS(MA10,MA20) AND
CROSS(MA5,MA20) ;
IF(角度MA3>45 AND 角度MA5>40 AND 角度MA10>10
AND 角度MA20>20 AND MA(C,135)>REF(MA(C,135),1),
1,0),COLOR00FF00
1.聚寶盆

DIFF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIFF,M);
MACD2:=2*(DIFF-DEA);
HHV(MACD2,4)<0 AND MACD2>REF(MACD2,1)AND REF(MACD2,1)<REF(MACD2,2) AND REF(MACD2,2)<REF
(MACD2,3);
2.強勢股
{SJXXG四均線選股}
MA3:=MA(C,3);
MA5:=MA(C,5);
MA10:=MA(C,10);
MA20:=MA(C,20);
V0:=MA(C,3)>REF(MA(C,3),1) ANDMA(C,5)>REF(MA(C,5),1) AND C>MA(C,3)
AND MA(C,3)>MA(C,5) ; {均線C,MA3,MA5多頭排列並向上；}
角度MA3:=ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416;
角度MA5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
角度MA10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416;
角度MA20:=ATAN((MA20/REF(MA20,1)-1)*100)*180/3.1416;
選股MA20:IF(角度MA3>45 AND 角度MA5>45 AND 角度MA10>60 AND 角度MA20>45 ANDMA(C,250)>REF(MA(C,250),1),
1,0),COLOR00FF00;
{設計思路：
1.3日均線角度大於45度；
2:5日均線角度大於45度；
3:10日均線角度大於60度；
4.20日均線角度大於45度；
5.MA250向上；};
3。紫色沖關
(1).
CROSS( CLOSE,MA(C,30))
AND CLOSE>MA(C,22) AND CLOSE>MA(C,30)AND
COUNT(MA(CLOSE,13)>REF(MA(CLOSE,13),1),1)
AND COUNT(MA(CLOSE,8)>REF(MA(CLOSE,8),1),1)
ANDCOUNT(MA(CLOSE,20)>REF(MA(CLOSE,20),1),1)
AND CLOSE/OPEN>1.015
AND DYNAINFO(37)>0.2% COLORLIBLUE;

(2).
QSXS:=MA(CLOSE,8)>REF(MA(CLOSE,8),1) ANDMA(CLOSE,3)>REF(MA(CLOSE,3),1) AND MA(CLOSE,5)>REF(MA(CLOSE,5),1);
DXJC:=CROSS(CLOSE,MA(C,21)) ANDCLOSE>MA(C,13) AND CLOSE/OPEN>1.015;
HSL:=VOL/CAPITAL*100;
選股:QSXS AND DXJC AND HSL>2;

(3).
{SJXXG四均線選股}
MA3:=MA(C,1);
MA5:=MA(C,3);
MA10:=MA(C,5);
MA20:=MA(C,10);
V0:=MA(C,1)>REF(MA(C,1),0.5) ANDMA(C,3)>REF(MA(C,3),0.5) AND C>MA(C,1)
AND MA(C,1)>MA(C,1) ; {均線C,MA3,MA5,MA10,MA20多頭排列並向上；}
角度MA3:=ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416;
角度MA5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
角度MA10:=ATAN((MA10/REF(MA10,1)-1)*100)*180/3.1416;
角度MA20:=ATAN((MA20/REF(MA20,1)-1)*100)*180/3.1416;
選股MA20:IF(角度MA3>50 AND 角度MA5>40 AND 角度MA10>30
AND 角度MA20>20 AND MA(C,250)>REF(MA(C,250),1),
1,0),COLOR00FF00;
{設計思路：
1.1日均線角度大於40度；
2:3日均線角度大於40度；
3:5日均線角度大於50度；
4.10日均線角度大於40度；
5.MA135向上；};

(4).
{SJXXG四均線選股}
MA3:=MA(C,5);
MA5:=MA(C,10);
MA10:=MA(C,15);
MA20:=MA(C,20);
V0:=MA(C,5)>REF(MA(C,10),1) ANDMA(C,10)>REF(MA(C,15),1)
AND MA(C,15)>MA(C,20) ; {均線C,MA3,MA5多頭排列並向上；}
角度MA3:=ATAN((MA3/REF(MA3,1)-1)*100)*180/3.1416;
角度MA5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
角度MA10:=ATAN((MA10/REF(MA3,1)-1)*100)*180/3.1416;
角度MA20:=ATAN((MA20/REF(MA5,1)-1)*100)*180/3.1416;
選股MA20:IF(角度MA3>42 AND 角度MA5>25 AND 角度MA10>15 AND 角度MA20>10
AND MA(C,135)>REF(MA(C,135),1),
1,0),COLOR00FF00;
{設計思路：
1.3日均線角度大於30度；
2:5日均線角度大於40度；
3:10日均線角度大於45度；
4.20日均線角度大於40度；
5.MA135向上；};

(5).5日最底

V5:=LLV(V,5);
QSXS:=MA(CLOSE,5)>REF(MA(CLOSE,5),1) ANDMA(CLOSE,8)>REF(MA(CLOSE,8),1)
AND MA(CLOSE,21)>REF(MA(CLOSE,21),1);
DXJC:=CROSS(CLOSE,MA(C,21)) ANDCLOSE>MA(C,21) AND CLOSE/OPEN>1.015;
HSL:=VOL/CAPITAL*100;
選股:V5 AND QSXS AND DXJC AND HSL>2;
1....{蓄勢待發}
V0:=EMA(C,5);
EMA10:=EMA(C,10);
EMA20:=EMA(C,20);
EMA30:=EMA(C,30);
EMA60:=EMA(C,60);
M1:=1000*EMA10/EMA60<=1015 AND1000*EMA10/EMA60>=975;
M2:=1000*EMA20/EMA60<=1020 AND1000*EMA20/EMA60>=980;
M3:=1000*EMA30/EMA60<=1015 AND1000*EMA30/EMA60>=985;
M4:=M1 AND M2 AND M3 AND CROSS(V0,EMA10);
M5:=M1 AND M2 AND M3 AND CROSS(V0,EMA30);
T1:=1000*EMA10/EMA30<=1010 AND1000*EMA10/EMA30>=990;
T2:=1000*EMA20/EMA30<=1010 AND1000*EMA20/EMA30>=990;
T3:=T1 AND T2 AND CROSS(V0,EMA10);
T4:=T1 AND T2 AND CROSS(V0,EMA30);
M4 OR M5 OR T3 OR T4;

2.短線之王
VAR1:=(-100)*(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3));
CROSS(VAR1,-87) AND OPEN<MA(CLOSE,5) ANDCLOSE>=1.099*REF(CLOSE,1) AND INDEXC>0.98*REF(INDEXC,1) ANDCLOSE<=1.47*LLV
(CLOSE,58);

3.槍挑小梁王
W1:=C=HHV(C,20);
W2:=BARSLAST(W1);
W3:=IF(W2>0,REF(C,W2),REF(C,W2));
W4:=CROSS(C,REF(W3,1));
槍挑小梁王:W4 AND COUNT(W4,5)=1;

4.短線之王
VAR1:=(-100)*(HHV(HIGH,3)-CLOSE)/(HHV(HIGH,3)-LLV(LOW,3));
CROSS(VAR1,-87) AND OPEN<MA(CLOSE,5) ANDCLOSE>=1.099*REF(CLOSE,1) AND INDEXC>0.98*REF(INDEXC,1) ANDCLOSE<=1.47*LLV
(CLOSE,58);
5.財務突破選股
{財務突破選股公式-理想閑雲孤鶴－通信達專用}
年認同價:=MA(C,240);
價格中樞:=(SUM(年認同價,0)/(BARSSINCE(年認同價>0)+239));
箱頂:=價格中樞*1.2;
箱底:=價格中樞*0.8;
毛利潤率:=FINANCE(21)/FINANCE(20);
成長價值:=年認同價*(1+毛利潤率);
收益價值:=年認同價+FINANCE(33);
回調認同:=EMA(EXPMA(C,20),13);
多頭:=(回調認同>REF(回調認同,1))AND(成長價值>REF(成長價值,1))AND(收益價值>REF(收益價值,1))AND(DYNAINFO(7)>0);
回調條件:=COUNT(C<回調認同,5)>=3;
回調突破:=(REF(C,1)<=REF(回調認同,1))AND(C>回調認同)AND(回調條件)AND 多頭;
成長條件:=COUNT(C<成長價值,5)>=3;
成長突破:=(REF(C,1)<=REF(成長價值,1))AND(C>成長價值)AND(成長條件)AND 多頭;
收益條件:=COUNT(C<收益價值,5)>=3;
收益突破:=(REF(C,1)<=REF(收益價值,1))AND(C>收益價值)AND(收益條件)AND 多頭;
箱底條件:=COUNT(C<箱底,5)>=3;
箱底突破:=(REF(C,1)<=REF(箱底,1))AND(C>箱底)AND(箱底條件)AND 多頭;
價格條件:=COUNT(C<價格中樞,5)>=3;
價格突破:=(REF(C,1)<=REF(價格中樞,1))AND(C>價格中樞)AND(價格條件)AND 多頭;
箱頂條件:=COUNT(C<箱頂,5)>=3;
箱頂突破:=(REF(C,1)<=REF(箱頂,1))AND(C>箱頂)AND(箱頂條件)AND 多頭;
突破買點:(回調突破+成長突破+收益突破+箱底突破+價格突破+箱頂突破);

6.橫盤是銀

VAR1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR2:=SMA(VAR1,3,1);

⑨ 一目均衡表在哪裡可以學到呀。。。。。

日本雲是吧，主要是分上升雲和下降雲，默認藍色的基準線，這些很好用，最穩妥的方法就是價格在雲上只做多，價格在雲下只做空，找好入場點就行了，基準線的原理是回調50%，比較有效的支撐阻力，前幾年國際上還討論過ichimoku的參數，9,26,52最好，該指標最好用於H1，H4，D1
震盪行情不好做，會失靈，如果H1周期用雲圖，判斷是否震盪，可依據ADX在H1里，白線是否在25和20下來判斷震盪
我的qq空間有講解313009936

代碼
//+------------------------------------------------------------------+
//| Ichimoku.mq4 |
//| Copyright ?2004, MetaQuotes Software Corp. |
//| http://www.metaquotes.net/ |
//+------------------------------------------------------------------+
#property right "Copyright ?2004, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net/"

#property indicator_chart_window
#property indicator_buffers 7
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 SandyBrown
#property indicator_color4 Thistle
#property indicator_color5 Lime
#property indicator_color6 SandyBrown
#property indicator_color7 Thistle
//---- input parameters
extern int Tenkan=9;
extern int Kijun=26;
extern int Senkou=52;
//---- buffers
double Tenkan_Buffer[];
double Kijun_Buffer[];
double SpanA_Buffer[];
double SpanB_Buffer[];
double Chinkou_Buffer[];
double SpanA2_Buffer[];
double SpanB2_Buffer[];
//----
int a_begin;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,Tenkan_Buffer);
SetIndexDrawBegin(0,Tenkan-1);
SetIndexLabel(0,"Tenkan Sen");
//----
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,Kijun_Buffer);
SetIndexDrawBegin(1,Kijun-1);
SetIndexLabel(1,"Kijun Sen");
//----
a_begin=Kijun; if(a_begin<Tenkan) a_begin=Tenkan;
SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_DOT);
SetIndexBuffer(2,SpanA_Buffer);
SetIndexDrawBegin(2,Kijun+a_begin-1);
SetIndexShift(2,Kijun);
SetIndexLabel(2,NULL);
SetIndexStyle(5,DRAW_LINE,STYLE_DOT);
SetIndexBuffer(5,SpanA2_Buffer);
SetIndexDrawBegin(5,Kijun+a_begin-1);
SetIndexShift(5,Kijun);
SetIndexLabel(5,"Senkou Span A");
//----
SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_DOT);
SetIndexBuffer(3,SpanB_Buffer);
SetIndexDrawBegin(3,Kijun+Senkou-1);
SetIndexShift(3,Kijun);
SetIndexLabel(3,NULL);
SetIndexStyle(6,DRAW_LINE,STYLE_DOT);
SetIndexBuffer(6,SpanB2_Buffer);
SetIndexDrawBegin(6,Kijun+Senkou-1);
SetIndexShift(6,Kijun);
SetIndexLabel(6,"Senkou Span B");
//----
SetIndexStyle(4,DRAW_LINE);
SetIndexBuffer(4,Chinkou_Buffer);
SetIndexShift(4,-Kijun);
SetIndexLabel(4,"Chinkou Span");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Ichimoku Kinko Hyo |
//+------------------------------------------------------------------+
int start()
{
int i,k;
int counted_bars=IndicatorCounted();
double high,low,price;
//----
if(Bars<=Tenkan || Bars<=Kijun || Bars<=Senkou) return(0);
//---- initial zero
if(counted_bars<1)
{
for(i=1;i<=Tenkan;i++) Tenkan_Buffer[Bars-i]=0;
for(i=1;i<=Kijun;i++) Kijun_Buffer[Bars-i]=0;
for(i=1;i<=a_begin;i++) { SpanA_Buffer[Bars-i]=0; SpanA2_Buffer[Bars-i]=0; }
for(i=1;i<=Senkou;i++) { SpanB_Buffer[Bars-i]=0; SpanB2_Buffer[Bars-i]=0; }
}
//---- Tenkan Sen
i=Bars-Tenkan;
if(counted_bars>Tenkan) i=Bars-counted_bars-1;
while(i>=0)
{
high=High[i]; low=Low[i]; k=i-1+Tenkan;
while(k>=i)
{
price=High[k];
if(high<price) high=price;
price=Low[k];
if(low>price) low=price;
k--;
}
Tenkan_Buffer[i]=(high+low)/2;
i--;
}
//---- Kijun Sen
i=Bars-Kijun;
if(counted_bars>Kijun) i=Bars-counted_bars-1;
while(i>=0)
{
high=High[i]; low=Low[i]; k=i-1+Kijun;
while(k>=i)
{
price=High[k];
if(high<price) high=price;
price=Low[k];
if(low>price) low=price;
k--;
}
Kijun_Buffer[i]=(high+low)/2;
i--;
}
//---- Senkou Span A
i=Bars-a_begin+1;
if(counted_bars>a_begin-1) i=Bars-counted_bars-1;
while(i>=0)
{
price=(Kijun_Buffer[i]+Tenkan_Buffer[i])/2;
SpanA_Buffer[i]=price;
SpanA2_Buffer[i]=price;
i--;
}
//---- Senkou Span B
i=Bars-Senkou;
if(counted_bars>Senkou) i=Bars-counted_bars-1;
while(i>=0)
{
high=High[i]; low=Low[i]; k=i-1+Senkou;
while(k>=i)
{
price=High[k];
if(high<price) high=price;
price=Low[k];
if(low>price) low=price;
k--;
}
price=(high+low)/2;
SpanB_Buffer[i]=price;
SpanB2_Buffer[i]=price;
i--;
}
//---- Chinkou Span
i=Bars-1;
if(counted_bars>1) i=Bars-counted_bars-1;
while(i>=0) { Chinkou_Buffer[i]=Close[i]; i--; }
//----
return(0);
}
//+------------------------------------------------------------------+