通达信全周期净量指标公式

2015-11-02 22:37:00来源:本站整理浏览:831

S35:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M34),CONST(M35) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
S36:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M35),CONST(M36) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
S37:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M36),CONST(M37) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
S38:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M37),CONST(M38) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
S39:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M38),CONST(M39) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
S40:=CONST(SUM(IF(RANGE(C,-MINDIFF+CONST(M39),CONST(M40+MINDIFF) ),IF( FX=-1,0.9*V,IF(FX=0,0.5*V,0.1*V)),0),TT));
BS01:=B01-S01;BS02:=B02-S02;BS03:=B03-S03;BS04:=B04-S04;BS05:=B05-S05;
BS06:=B06-S06;BS07:=B07-S07;BS08:=B08-S08;BS09:=B09-S09;BS10:=B10-S10;
BS11:=B11-S11;BS12:=B12-S12;BS13:=B13-S13;BS14:=B14-S14;BS15:=B15-S15;
BS16:=B16-S16;BS17:=B17-S17;BS18:=B18-S18;BS19:=B19-S19;BS20:=B20-S20;
BS21:=B21-S21;BS22:=B22-S22;BS23:=B23-S23;BS24:=B24-S24;BS25:=B25-S25;
BS26:=B26-S26;BS27:=B27-S27;BS28:=B28-S28;BS29:=B29-S29;BS30:=B30-S30;
BS31:=B31-S31;BS32:=B32-S32;BS33:=B33-S33;BS34:=B34-S34;BS35:=B35-S35;
BS36:=B36-S36;BS37:=B37-S37;BS38:=B38-S38;BS39:=B39-S39;BS40:=B40-S40;
{最大量柱}
MAXBS1:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(ABS(BS01),ABS(BS02)),ABS(BS03))
,ABS(BS04)),ABS(BS05)),ABS(BS06)),ABS(BS07)),ABS(BS08)),ABS(BS09)),ABS(BS10));
MAXBS2:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(ABS(BS11),ABS(BS12)),ABS(BS13))
,ABS(BS14)),ABS(BS15)),ABS(BS16)),ABS(BS17)),ABS(BS18)),ABS(BS19)),ABS(BS20));
MAXBS3:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(ABS(BS21),ABS(BS22)),ABS(BS23))
,ABS(BS24)),ABS(BS25)),ABS(BS26)),ABS(BS27)),ABS(BS28)),ABS(BS29)),ABS(BS30));
MAXBS4:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(ABS(BS31),ABS(BS32)),ABS(BS33))
,ABS(BS34)),ABS(BS35)),ABS(BS36)),ABS(BS37)),ABS(BS38)),ABS(BS39)),ABS(BS40));
MAXBS:=MAX(MAX(MAX(MAXBS1,MAXBS2),MAXBS3),MAXBS4);
DRAWRECTREL(1000-ABS(BS01)/MAXBS*300,980,1000,1000,IF(BS01>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS02)/MAXBS*300,955,1000,975,IF(BS02>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS03)/MAXBS*300,930,1000,950,IF(BS03>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS04)/MAXBS*300,905,1000,925,IF(BS04>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS05)/MAXBS*300,880,1000,900,IF(BS05>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS06)/MAXBS*300,855,1000,875,IF(BS06>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS07)/MAXBS*300,830,1000,850,IF(BS07>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS08)/MAXBS*300,805,1000,825,IF(BS08>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS09)/MAXBS*300,780,1000,800,IF(BS09>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS10)/MAXBS*300,755,1000,775,IF(BS10>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS11)/MAXBS*300,730,1000,750,IF(BS11>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS12)/MAXBS*300,705,1000,725,IF(BS12>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS13)/MAXBS*300,680,1000,700,IF(BS13>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS14)/MAXBS*300,655,1000,675,IF(BS14>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS15)/MAXBS*300,630,1000,650,IF(BS15>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS16)/MAXBS*300,605,1000,625,IF(BS16>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS17)/MAXBS*300,580,1000,600,IF(BS17>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS18)/MAXBS*300,555,1000,575,IF(BS18>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS19)/MAXBS*300,530,1000,550,IF(BS19>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS20)/MAXBS*300,505,1000,525,IF(BS20>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS21)/MAXBS*300,480,1000,500,IF(BS21>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS22)/MAXBS*300,455,1000,475,IF(BS22>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS23)/MAXBS*300,430,1000,450,IF(BS23>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS24)/MAXBS*300,405,1000,425,IF(BS24>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS25)/MAXBS*300,380,1000,400,IF(BS25>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS26)/MAXBS*300,355,1000,375,IF(BS26>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS27)/MAXBS*300,330,1000,350,IF(BS27>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS28)/MAXBS*300,305,1000,325,IF(BS28>0,RGB(200,0,0),RGB(0,200,0)));
DRAWRECTREL(1000-ABS(BS29)/MAXBS*300,280,1000,300,IF(BS29>0,RGB(200,0,0),RGB(0,200,0)));