通達信江恩黃金分割主圖指標公式
2020/10/24 18:06:45
T1:=1;
T:=125;
HDAY:=13;
LDAY:=20;
調點:=3;
DRAWGBK(C>0, RGB(01,01,01),RGB(01,01,01),0,0,1);{黑色}
DRAWKLINE(H,O,L,C);
{黃金分割}
HH:=REF(HHV(H,T),T1);
LL:=REF(LLV(L,T),T1);
H1:=HH-(HH-LL)*0.191;
H2:=HH-(HH-LL)*0.382;
H3:=HH-(HH-LL)*0.5;
H4:=HH-(HH-LL)*0.618;
H5:=HH-(HH-LL)*0.764;
H6:=HH-(HH-LL)*0.809;
H7:=HH-(HH-LL)*0.236;
頂1:=HH+(HH-LL)*0.191;
頂2:=HH+(HH-LL)*0.382;
頂3:=HH+(HH-LL)*0.618;
底1:=IF((HH-LL)<LL,LL-(HH-LL)*0.191,LL-LL*0.191);
底2:=IF((HH-LL)<LL,LL-(HH-LL)*0.382,LL-LL*0.382);
底3:=IF((HH-LL)<LL,LL-(HH-LL)*0.618,LL-LL*0.618);
高:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(HH,DATE),DRAWNULL);
一:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H1,DATE),DRAWNULL);
二:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H2,DATE),DRAWNULL);
三:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H3,DATE),DRAWNULL);
四:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H4,DATE),DRAWNULL);
五:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H5,DATE),DRAWNULL);
六:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H6,DATE),DRAWNULL);
七:=IF(CURRBARSCOUNT<=T+T1,REFDATE(H7,DATE),DRAWNULL);
低:=IF(CURRBARSCOUNT<=T+T1 AND CURRBARSCOUNT>T1,REFDATE(LL,DATE),DRAWNULL);
NOTEXT1:高,COLOR007799;
AA:REFDATE(一,DATE),DOTLINE,COLOR555555;
BB:REFDATE(二,DATE),DOTLINE,COLOR005858;
CC:REFDATE(三,DATE),DOTLINE,COLOR777777;
DD:REFDATE(四,DATE),DOTLINE,COLOR005858;
EE:REFDATE(五,DATE),DOTLINE,COLOR555555;
FF:REFDATE(六,DATE),DOTLINE,COLOR555555;
GG:REFDATE(七,DATE),DOTLINE,COLOR555555;
NOTEXT8:低,COLOR668800;
TT:=INTPART(T*0.5)+T1;
TT1:=(CURRBARSCOUNT=TT);
TT2:=(CURRBARSCOUNT=TT-32);
TT3:=(CURRBARSCOUNT=TT-40);
DRAWTEXT(TT1 AND 高,高-(高-低)*0.025,STRCAT(' 【高點】: ',CON2STR(HH,2))),COLOR007799;
DRAWTEXT(TT1 AND 一,一+(高-低)*0.020,STRCAT('191 (809): ',CON2STR(H1,2))),COLOR888888;
DRAWTEXT(TT1 AND 二,二+(高-低)*0.020,STRCAT('382 (618): ',CON2STR(H2,2))),COLOR008888;
DRAWTEXT(TT1 AND 三,三+(高-低)*0.020,STRCAT(' 【中點】: ',CON2STR(H3,2))),COLOR000088;
DRAWTEXT(TT1 AND 四,四+(高-低)*0.020,STRCAT('618 (382): ',CON2STR(H4,2))),COLOR008888;
DRAWTEXT(TT1 AND 五,五+(高-低)*0.020,STRCAT('764 (236): ',CON2STR(H5,2))),COLOR888888;
DRAWTEXT(TT1 AND 六,六+(高-低)*0.020,STRCAT('809 (191): ',CON2STR(H6,2))),COLOR888888;
DRAWTEXT(TT1 AND 七,七+(高-低)*0.020,STRCAT('236 (764): ',CON2STR(H7,2))),COLOR888888;
DRAWTEXT(TT1 AND 低,低+(高-低)*0.020,STRCAT(' 【低點】: ',CON2STR(LL,2))),COLOR668800;
DRAWTEXT(TT3 AND 高,高+(高-低)*0.040,''),COLOR007799;{頂距};
DRAWTEXT_FIX(1,0.68,0.02,0,'【注意：高低點的位置是否找對？不對一定要調整參數找準！】'),COLOR0000FF;
上角度:=70;
下角度:=70;
角度:=100;
CURR:=CURRBARSCOUNT;
TCH:=CONST(FINDHIGH(H,0,HDAY*10,1));
GTT:=CONST(BARSLAST(TCH=H))+1;
SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));
BCL:=CONST(FINDLOW(L,0,LDAY*10,1));
DTT:=CONST(BARSLAST(BCL=L))+1;
SX漲L:=CONST(IF(DTT=1,L,REF(L,DTT-1)));
漲點:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=SX漲L)+1));
跌點:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=SX跌H)+1));
最低:=IF(調點=1,跌點,IF(調點=2,漲點,IF(調點=3,漲點,跌點)));
L斜率:=下角度/IF(C<300,1000,10);
最高:=IF(調點=1,跌點,IF(調點=2,漲點,IF(調點=3,跌點,漲點)));
H斜率:=上角度/IF(C<300,1000,10);
天線:=SX跌H;
地線:=SX漲L;
K:=(天線-地線)/(IF(跌點>=漲點,跌點,漲點)-IF(跌點>=漲點,漲點,跌點));
上斜線:=IF(地線+CONST(L斜率*4.00)*最低>=地線,地線+CONST(L斜率*4.00)*最低,DRAWNULL);
上斜線0:=IF(地線+CONST(L斜率*2.00)*最低>=地線,地線+CONST(L斜率*2.00)*最低,DRAWNULL);
上斜線1:=IF(地線+CONST(L斜率*1.5)*最低>=地線,地線+CONST(L斜率*1.5)*最低,DRAWNULL);
上斜線2:=IF(地線+CONST(L斜率*1.00)*最低>=地線,地線+CONST(L斜率*1.000)*最低,DRAWNULL);
上斜線3:=IF(地線+CONST(L斜率*0.70)*最低>=地線,地線+CONST(L斜率*0.70)*最低,DRAWNULL);
上斜線4:=IF(地線+CONST(L斜率*0.50)*最低>=地線,地線+CONST(L斜率*0.50)*最低,DRAWNULL);
上斜線5:=IF(地線+CONST(L斜率*0.365)*最低>=地線,地線+CONST(L斜率*0.365)*最低,DRAWNULL);
上斜線6:=IF(地線+CONST(L斜率*0.250)*最低>=地線,地線+CONST(L斜率*0.250)*最低,DRAWNULL);
上斜線7:=IF(地線+CONST(L斜率*0.165)*最低>=地線,地線+CONST(L斜率*0.165)*最低,DRAWNULL);
上斜線8:=IF(地線+CONST(L斜率*0.123)*最低>=地線,地線+CONST(L斜率*0.123)*最低,DRAWNULL);
上斜線9:=IF(地線+CONST(L斜率*0.06)*最低>=地線,地線+CONST(L斜率*0.06)*最低,DRAWNULL);
上9:IF(上斜線9<=天線*1.05,上斜線9,DRAWNULL),COLORAA00AA,COLORRED;
上8:IF(上斜線8<=天線*1.05,上斜線8,DRAWNULL),COLORAA00AA,COLORRED;
上7:IF(上斜線7<=天線*1.05,上斜線7,DRAWNULL),COLORAA00AA,COLORRED;
上6:IF(上斜線6<=天線*1.05,上斜線6,DRAWNULL),COLORAA00AA,COLORRED;
上5:IF(上斜線5<=天線*1.05,上斜線5,DRAWNULL),COLORAA00AA,COLORRED;
上4:IF(上斜線4<=天線*1.05,上斜線4,DRAWNULL),COLOR0000FF,COLORYELLOW;
上3:IF(上斜線3<=天線*1.05,上斜線3,DRAWNULL),COLORAA00AA,COLORRED;
上2:IF(上斜線2<=天線*1.05,上斜線2,DRAWNULL),COLORAA00AA,COLORRED;
上1:IF(上斜線1<=天線*1.05,上斜線1,DRAWNULL),COLORAA00AA,COLORRED;
上0:IF(上斜線0<=天線*1.05,上斜線0,DRAWNULL),COLORAA00AA,COLORRED;
上:IF(上斜線<=天線*1.05,上斜線,DRAWNULL),COLORAA00AA,COLORRED;
下斜線:=IF(天線-CONST(H斜率*4.00)*最高<=天線,天線-CONST(H斜率*4.00)*最高,DRAWNULL);
下斜線0:=IF(天線-CONST(H斜率*2.00)*最高<=天線,天線-CONST(H斜率*2.00)*最高,DRAWNULL);
下斜線1:=IF(天線-CONST(H斜率*1.500)*最高<=天線,天線-CONST(H斜率*1.500)*最高,DRAWNULL);
下斜線2:=IF(天線-CONST(H斜率*1.000)*最高<=天線,天線-CONST(H斜率*1.000)*最高,DRAWNULL);
下斜線3:=IF(天線-CONST(H斜率*0.70)*最高<=天線,天線-CONST(H斜率*0.70)*最高,DRAWNULL);
下斜線4:=IF(天線-CONST(H斜率*0.50)*最高<=天線,天線-CONST(H斜率*0.50)*最高,DRAWNULL);
下斜線5:=IF(天線-CONST(H斜率*0.365)*最高<=天線,天線-CONST(H斜率*0.365)*最高,DRAWNULL);
下斜線6:=IF(天線-CONST(H斜率*0.250)*最高<=天線,天線-CONST(H斜率*0.250)*最高,DRAWNULL);
下斜線7:=IF(天線-CONST(H斜率*0.165)*最高<=天線,天線-CONST(H斜率*0.165)*最高,DRAWNULL);
下斜線8:=IF(天線-CONST(H斜率*0.123)*最高<=天線,天線-CONST(H斜率*0.123)*最高,DRAWNULL);
下斜線9:=IF(天線-CONST(H斜率*0.06)*最高<=天線,天線-CONST(H斜率*0.06)*最高,DRAWNULL);
下9:IF(下斜線9>=地線*0.95,下斜線9,DRAWNULL),COLORAAAAAA,COLORGREEN;
下8:IF(下斜線8>=地線*0.95,下斜線8,DRAWNULL),COLORAAAAAA,COLORGREEN;
下7:IF(下斜線7>=地線*0.95,下斜線7,DRAWNULL),COLORAAAAAA,COLORGREEN;
下6:IF(下斜線6>=地線*0.95,下斜線6,DRAWNULL),COLORAAAAAA,COLORGREEN;
下5:IF(下斜線5>=地線*0.95,下斜線5,DRAWNULL),COLORAAAAAA,COLORGREEN;
下4:IF(下斜線4>=地線*0.95,下斜線4,DRAWNULL),COLOR0000FF,COLORYELLOW;
下3:IF(下斜線3>=地線*0.95,下斜線3,DRAWNULL),COLORAAAAAA,COLORGREEN;
下2:IF(下斜線2>=地線*0.95,下斜線2,DRAWNULL),COLORAAAAAA,COLORGREEN;
下1:IF(下斜線1>=地線*0.95,下斜線1,DRAWNULL),COLORAAAAAA,COLORGREEN;
下0:IF(下斜線0>=地線*0.95,下斜線0,DRAWNULL),COLORAAAAAA,COLORGREEN;
下:IF(下斜線>=地線*0.95,下斜線,DRAWNULL),COLORAAAAAA,COLORGREEN;
DRAWTEXT(上斜線9<=天線*1.05 AND CURRBARSCOUNT=30,上斜線9,'8X1'),COLOR00FF00;
DRAWTEXT(上斜線8<=天線*1.05 AND CURRBARSCOUNT=30,上斜線8,'4X1'),COLOR00FF00;
DRAWTEXT(上斜線7<=天線*1.05 AND CURRBARSCOUNT=30,上斜線7,'3X1'),COLOR00FF00;
DRAWTEXT(上斜線6<=天線*1.05 AND CURRBARSCOUNT=30,上斜線6,'2X1'),COLOR00FF00;
DRAWTEXT(上斜線5<=天線*1.05 AND CURRBARSCOUNT=30,上斜線5,'3X2'),COLOR00FF00;
DRAWTEXT(上斜線4<=天線*1.05 AND CURRBARSCOUNT=30,上斜線4,'1X1'),COLOR00FF00;
DRAWTEXT(上斜線3<=天線*1.05 AND CURRBARSCOUNT=30,上斜線3,'2X3'),COLOR00FF00;
DRAWTEXT(上斜線2<=天線*1.05 AND CURRBARSCOUNT=30,上斜線2,'1X2'),COLOR00FF00;
DRAWTEXT(上斜線1<=天線*1.05 AND CURRBARSCOUNT=30,上斜線1,'1X3'),COLOR00FF00;
DRAWTEXT(上斜線0<=天線*1.05 AND CURRBARSCOUNT=30,上斜線0,'1X4'),COLOR00FF00;
DRAWTEXT(上斜線<=天線*1.05 AND CURRBARSCOUNT=30,上斜線,'1X8'),COLOR00FF00;
DRAWTEXT(下斜線9>=地線*0.95 AND CURRBARSCOUNT=10,下斜線9,'8X1'),COLOR00FF00;
DRAWTEXT(下斜線8>=地線*0.95 AND CURRBARSCOUNT=10,下斜線8,'4X1'),COLOR00FF00;
DRAWTEXT(下斜線7>=地線*0.95 AND CURRBARSCOUNT=10,下斜線7,'3X1'),COLOR00FF00;
DRAWTEXT(下斜線6>=地線*0.95 AND CURRBARSCOUNT=10,下斜線6,'2X1'),COLOR00FF00;
DRAWTEXT(下斜線5>=地線*0.95 AND CURRBARSCOUNT=10,下斜線5,'3X2'),COLOR00FF00;
DRAWTEXT(下斜線4>=地線*0.95 AND CURRBARSCOUNT=10,下斜線4,'1X1'),COLOR00FF00;
DRAWTEXT(下斜線3>=地線*0.95 AND CURRBARSCOUNT=10,下斜線3,'2X3'),COLOR00FF00;
DRAWTEXT(下斜線2>=地線*0.95 AND CURRBARSCOUNT=10,下斜線2,'1X2'),COLOR00FF00;
DRAWTEXT(下斜線1>=地線*0.95 AND CURRBARSCOUNT=10,下斜線1,'1X3'),COLOR00FF00;
DRAWTEXT(下斜線0>=地線*0.95 AND CURRBARSCOUNT=10,下斜線0,'1X4'),COLOR00FF00;
DRAWTEXT(下斜線>=地線*0.95 AND CURRBARSCOUNT=10,下斜線,'1X8'),COLOR00FF00;
看股 吧公式 www.kan guba.com
其它股票公式列表
