短上軌:EMA(HIGH,24),COLORRED;
短下軌:EMA(LOW,24),COLORGREEN;
NOTEXT短下軌0:IF(CLOSE>短下軌,短下軌,NULL),COLORRED;
NOTEXT短下軌1:IF(CLOSE<短下軌,短下軌,NULL),COLORGREEN;
NOTEXT短上軌0:IF(CLOSE>短上軌,短上軌,NULL),COLORRED;
NOTEXT短上軌1:IF(CLOSE<短上軌,短上軌,NULL),COLORGREEN;
STICKLINE1(CLOSE>短上軌,短上軌,短下軌,0,0),COLORRED;
STICKLINE1(CLOSE<短下軌,短上軌,短下軌,0,0),COLORGREEN;
短軌差:短上軌-短下軌,NODRAW,COLORYELLOW;
長上軌:EMA(HIGH,90),COLORMAGENTA;
長下軌:EMA(LOW,90),COLORBLUE;
NOTEXT長下軌0:IF(CLOSE>長下軌,長下軌,NULL),COLORMAGENTA;
NOTEXT長下軌1:IF(CLOSE<長下軌,長下軌,NULL),COLORBLUE;
NOTEXT長上軌0:IF(CLOSE>長上軌,長上軌,NULL),COLORMAGENTA;
NOTEXT長上軌1:IF(CLOSE<長上軌,長上軌,NULL),COLORBLUE;
STICKLINE1(CLOSE>長上軌,長上軌,長下軌,0,0),COLORMAGENTA;
STICKLINE1(CLOSE<長下軌,長上軌,長下軌,0,0),COLORBLUE;
長軌差:長上軌-長下軌,NODRAW,COLORYELLOW;
?
?來源:程序化99
?
?來源: m.kzuj.com.cn
?
?參考
?
Vars
Numeric 短上軌;
Numeric 短下軌;
Numeric NOTEXT短下軌0;
Numeric NOTEXT短下軌1;
Numeric NOTEXT短上軌0;
Numeric NOTEXT短上軌1;
Numeric 短軌差;
Numeric 長上軌;
Numeric 長下軌;
Numeric NOTEXT長下軌0;
Numeric NOTEXT長下軌1;
Numeric NOTEXT長上軌0;
Numeric NOTEXT長上軌1;
Numeric 長軌差;
Begin
短上軌=EMA(HIGH,24);
短下軌=EMA(LOW,24);
NOTEXT短下軌0=IIF(CLOSE>短下軌,短下軌,InvalidNumeric);
NOTEXT短下軌1=IIF(CLOSE<短下軌,短下軌,InvalidNumeric);
NOTEXT短上軌0=IIF(CLOSE>短上軌,短上軌,InvalidNumeric);
NOTEXT短上軌1=IIF(CLOSE<短上軌,短上軌,InvalidNumeric);
STICKLINE1(CLOSE>短上軌,短上軌,短下軌,0,0,RED);
STICKLINE1(CLOSE<短下軌,短上軌,短下軌,0,0,GREEN);
短軌差=短上軌-短下軌;
長上軌=EMA(HIGH,90);
長下軌=EMA(LOW,90);
NOTEXT長下軌0=IIF(CLOSE>長下軌,長下軌,InvalidNumeric);
NOTEXT長下軌1=IIF(CLOSE<長下軌,長下軌,InvalidNumeric);
NOTEXT長上軌0=IIF(CLOSE>長上軌,長上軌,InvalidNumeric);
NOTEXT長上軌1=IIF(CLOSE<長上軌,長上軌,InvalidNumeric);
STICKLINE1(CLOSE>長上軌,長上軌,長下軌,0,0,MAGENTA);
STICKLINE1(CLOSE<長下軌,長上軌,長下軌,0,0,BLUE);
長軌差=長上軌-長下軌;
PlotLine("短上軌",短上軌,Red);
PlotLine("短下軌",短下軌,Green);
PlotLine("NOTEXT短下軌0",NOTEXT短下軌0,Red);
PlotLine("NOTEXT短下軌1",NOTEXT短下軌1,Green);
PlotLine("NOTEXT短上軌0",NOTEXT短上軌0,Red);
PlotLine("NOTEXT短上軌1",NOTEXT短上軌1,Green);
PlotLine("短軌差",短軌差,Yellow,NoDraw);
PlotLine("長上軌",長上軌,Magenta);
PlotLine("NOTEXT長下軌0",NOTEXT長下軌0,Magenta);
PlotLine("NOTEXT長下軌1",NOTEXT長下軌1,Blue);
PlotLine("NOTEXT長上軌0",NOTEXT長上軌0,Magenta);
PlotLine("NOTEXT長上軌1",NOTEXT長上軌1,Blue);
PlotLine("短上軌",短上軌,Red);
End