数格做T 主图源码，也可用于手机（通达信公式 主图 源码 测试图）

{自动黄金分割  普通等系坐标}

S1:=DRAWRECTREL(990,1,0,1,RGB(250,48,48));

S2:=DRAWRECTREL(990,50,0,50,RGB(255,110,118));

S3:=DRAWRECTREL(990,100,0,100,RGB(255,131,250));

S4:=DRAWRECTREL(990,150,0,150,RGB(255,181,197));

S5:=DRAWRECTREL(990,200,0,200,RGB(255,228,225));

S6:=DRAWRECTREL(990,250,0,250,RGB(255,240,245));

S7:=DRAWRECTREL(990,300,0,300,RGB(245,245,220));

S8:=DRAWRECTREL(990,350,0,350,RGB(255,250,250));

S9:=DRAWRECTREL(990,400,0,400,RGB(205,201,201));

S10:=DRAWRECTREL(990,500,0,500,RGB(205,192,176));

B10:=DRAWRECTREL(990,550,0,550,RGB(245,255,250));

B9:=DRAWRECTREL(990,600,0,600,RGB(187,255,255));

B8:=DRAWRECTREL(990,650,0,650,RGB(151,255,255));

B7:=DRAWRECTREL(990,700,0,700,RGB(127,255,212));

B6:=DRAWRECTREL(990,750,0,750,RGB(0,255,255));

B5:=DRAWRECTREL(990,800,0,800,RGB(127,255,212));

B4:=DRAWRECTREL(990,850,0,850,RGB(154,55,184));

B3:=DRAWRECTREL(990,900,0,900,RGB(154,255,154));

B2:=DRAWRECTREL(990,950,0,950,RGB(0,255,127));

B1:=DRAWRECTREL(990,995,0,995,RGB(0,255,80));

DRAWTEXT_FIX(C>0,0.5,0.00,0,'-T1'),COLORGREEN;

DRAWTEXT_FIX(C>0,0.5,0.96,0,'+T2'),COLORLIMAGENTA;

H1:=MAX(DYNAINFO(3),DYNAINFO(5));

L1:=MIN(DYNAINFO(3),DYNAINFO(6));

P1:=H1-L1;{分析家公式网70822.com}

阻力:=L1+P1*7/8,COLOR00DD00;

支撑:=L1+P1*0.5/8,COLOR00DD00;

DRAWTEXT(LONGCROSS(支撑,C,2) AND C<DYNAINFO(3)*0.985,支撑*1.001,'★B'),COLORRED;{吸}

DRAWTEXT(LONGCROSS(C,阻力,2) AND C>DYNAINFO(3)*1.015,C,'★S'),COLORGREEN;{抛};