通达信斐波那契节气主图指标公式源码

VAR1:=20;
VAR2:=20;
VAR3:=70;
VAR4:=70;
VAR5:=3;
VAR6:=CURRBARSCOUNT;
VAR7:=CONST(FINDHIGH(H,0,VAR1*10,1));
VAR8:=CONST(BARSLAST(VAR7=H))+1;
VAR9:=CONST(IF(VAR8=1,H,REF(H,VAR8-1)));
VAR10:=CONST(FINDLOW(L,0,VAR2*10,1));
VAR11:=CONST(BARSLAST(VAR10=L))+1;
VAR12:=CONST(IF(VAR11=1,L,REF(L,VAR11-1)));

VAR13:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(L=VAR12)+1));
VAR14:=BARSSINCE(BACKSET(ISLASTBAR,BARSLAST(H=VAR9)+1));
VAR15:=IF(VAR5=1,VAR14,IF(VAR5=2,VAR13,IF(VAR5=3,VAR13,VAR14)));
VAR16:=VAR4/IF(C< 300,1000,10);
VAR17:=IF(VAR5=1,VAR14,IF(VAR5=2,VAR13,IF(VAR5=3,VAR14,VAR13)));
VAR18:=VAR3/IF(C< 300,1000,10);
VAR19:=((VAR9-VAR12)/8-(VAR9-VAR12)/8);
VAR20:=VAR9+(VAR9-VAR12)/8;
VAR21:=VAR12-(VAR9-VAR12)/8;
VAR22:=IF(VAR11>VAR8,VAR11,VAR8);
VAR23:=ABS(VAR8-VAR11);
VAR24:DRAWBAND(IF(VAR6<=VAR22,VAR9,DRAWNULL),RGB(0,120,120),VAR9,RGB(8,168,168));
VAR25:DRAWBAND(IF(VAR6<=VAR22,VAR12,DRAWNULL),RGB(0,120,120),VAR12,RGB(0,160,160));
STICKLINE(CURRBARSCOUNT=VAR8,VAR9,VAR12,0,0),COLOR556600;
STICKLINE(CURRBARSCOUNT=VAR11,VAR9,VAR12,0,0),COLOR666666;
STICKLINE(CURRBARSCOUNT=1,VAR9,VAR12,0,0),COLOR556600;
VAR26:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.146,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR26)*1.001,STRCAT(' 0.146%% ',CON2STR(VAR26,3))),COLOR889900;
VAR27:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.191,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR27)*1.001,STRCAT(' 0.191%% ',CON2STR(VAR27,3))),COLOR889900;
VAR28:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.236,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR28)*1.001,STRCAT(' 0.236%% ',CON2STR(VAR28,3))),COLOR889900;
VAR29:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.382,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR29)*1.001,STRCAT(' 0.382%% ',CON2STR(VAR29,3))),COLOR889900;
VAR30:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.500,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR30)*1.001,STRCAT(' 0.500%% ',CON2STR(VAR30,3))),COLOR889900;
VAR31:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.618,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR31)*1.001,STRCAT(' 0.618%% ',CON2STR(VAR31,3))),COLOR889900;
VAR32:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.764,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR32)*1.001,STRCAT(' 0.764%% ',CON2STR(VAR32,3))),COLOR889900;
VAR33:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.809,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR33)*1.001,STRCAT(' 0.809%% ',CON2STR(VAR33,3))),COLOR889900;
VAR34:IF(VAR6<=VAR22,VAR9-(VAR9-VAR12)*0.854,DRAWNULL),DOTLINE,COLOR556600;
DRAWTEXT(VAR6=VAR22,(VAR34)*1.001,STRCAT(' 0.854%% ',CON2STR(VAR34,3))),COLOR889900;
DRAWTEXT(CURRBARSCOUNT=VAR8,VAR9*1.02,'斐波那契下跌周期'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=VAR8,VAR9*1.01,'1'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-2,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-2,VAR9*1.01,'3'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-4,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-4,VAR9*1.01,'5'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-7,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-7,VAR9*1.01,'8'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-12,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-12,VAR9*1.01,'13'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-20,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-20,VAR9*1.01,'21'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-33,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-33,VAR9*1.01,'34 '),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-54,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-54,VAR9*1.01,'55'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-67,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-67,VAR9*1.01,'68'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-88,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-88,VAR9*1.01,'89'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-109,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-109,VAR9*1.01,'110'),COLOR00FF00;
STICKLINE(CURRBARSCOUNT=VAR8-143,VAR9,VAR12,0,0),COLOR556600;
DRAWTEXT(CURRBARSCOUNT=VAR8-143,VAR9*1.01,'144'),COLOR00FF00;
DRAWTEXT(CURRBARSCOUNT=VAR11,VAR12*0.96,'斐波那契上升周期'),COLOR0000FF;
DRAWTEXT(CURRBARSCOUNT=VAR11,VAR12*0.98,'1'),COLOR0000FF;
STICKLINE(CURRBARSCOUNT=VAR11-2,VAR9,VAR12,0,0),COLORAA00AA;
DRAWTEXT(CURRBARSCOUNT=VAR11-2,VAR12*0.98,'3'),COLOR0000FF;
STICKLINE(CU