通達信：江恩角度線源碼

周期:=(PERIOD=0 OR PERIOD=1 OR  PERIOD=2  OR  PERIOD=3);

上角度:=70;

下角度:=70;

調點:=3;

角度:=100;

CURR:=CURRBARSCOUNT;

{M:1-1000,233}

TCH:=CONST(FINDHIGH(H,0,M,1));

GTT:=CONST(BARSLAST(TCH=H))+1;

SX跌H:=CONST(IF(GTT=1,H,REF(H,GTT-1)));

BCL:=CONST(FINDLOW(L,0,M,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);

NOTEXT上9:IF(上斜線9<=天線*1.05 AND NOT(周期),上斜線9,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上8:IF(上斜線8<=天線*1.05 AND NOT(周期),上斜線8,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上7:IF(上斜線7<=天線*1.05 AND NOT(周期),上斜線7,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上6:IF(上斜線6<=天線*1.05 AND NOT(周期),上斜線6,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上5:IF(上斜線5<=天線*1.05 AND NOT(周期),上斜線5,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上4:IF(上斜線4<=天線*1.05 AND NOT(周期),上斜線4,DRAWNULL),COLOR0000FF,COLORYELLOW;

NOTEXT上3:IF(上斜線3<=天線*1.05 AND NOT(周期),上斜線3,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上2:IF(上斜線2<=天線*1.05 AND NOT(周期),上斜線2,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上1:IF(上斜線1<=天線*1.05 AND NOT(周期),上斜線1,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上0:IF(上斜線0<=天線*1.05 AND NOT(周期),上斜線0,DRAWNULL),COLORAA00AA,COLORRED;

NOTEXT上:IF(上斜線<=天線*1.05 AND NOT(周期),上斜線,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);

NOTEXT下9:IF(下斜線9>=地線*0.95 AND NOT(周期),下斜線9,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下8:IF(下斜線8>=地線*0.95 AND NOT(周期),下斜線8,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下7:IF(下斜線7>=地線*0.95 AND NOT(周期),下斜線7,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下6:IF(下斜線6>=地線*0.95 AND NOT(周期),下斜線6,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下5:IF(下斜線5>=地線*0.95 AND NOT(周期),下斜線5,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下4:IF(下斜線4>=地線*0.95 AND NOT(周期),下斜線4,DRAWNULL),COLOR0000FF,COLORYELLOW;

NOTEXT下3:IF(下斜線3>=地線*0.95 AND NOT(周期),下斜線3,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下2:IF(下斜線2>=地線*0.95 AND NOT(周期),下斜線2,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下1:IF(下斜線1>=地線*0.95 AND NOT(周期),下斜線1,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下0:IF(下斜線0>=地線*0.95 AND NOT(周期),下斜線0,DRAWNULL),COLORAAAAAA,COLORGREEN;

NOTEXT下:IF(下斜線>=地線*0.95 AND NOT(周期),下斜線,DRAWNULL),COLORAAAAAA,COLORGREEN;