奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 應用交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=33)
-- 紅鳥時間之窗(原碼) (http://www.chiefox.com.tw/bbs/showthread.php?threadid=1314)

紅鳥時間之窗(原碼)

紅鳥時間之窗(原碼)
VAR1:=MA(CLOSE,15);
VAR2:=VAR1+(2)*(STD(CLOSE,20));
VAR3:=VAR1-(2)*(STD(CLOSE,20));
VAR4:=((CLOSE-VAR3)/(VAR2-VAR3))*(100);
VAR5:=(VAR4-EMA(VAR4,2))*(100);
VAR6:=((EMA(VAR5,22))*(10))*(100);
VAR7:=EMA(((0.4)*(VAR5))*((-1)),300);
VAR8:=((((-1))*(EMA(VAR5,20)))*(10))*(100);
VAR9:=(VAR6>10);
VARA:=(VAR8>100);
VARB:=MA(VAR9,300);
VARC:=MA(VAR9,5);
VARD:=MA(VAR9,10);
VARE:=MA(VAR9,20);
VARF:=MA(VAR9,30);
VAR10:=MA(VAR9,40);
VAR11:=MA(VAR9,50);
VAR12:=MIN(VAR9,VARC);
★:MIN(VAR12,VARD),ColorFFCCFF;
紅:MIN(★,VARE),Color0000FF;
色:MIN(紅,VARF),ColorFFFF00;
上:MIN(色,VAR10),Color00FF00;
升:MIN(上,VAR11),Color00FF00;
VAR13:=(MA(VARA,300))*(100);
VAR14:=MA(VARA,5);
VAR15:=MA(VARA,10);
VAR16:=MA(VARA,20);
VAR17:=MA(VARA,30);
VAR18:=MA(VARA,40);
VAR19:=MA(VARA,50);
（黃:MIN(VARA,VAR15),Color00FFCC;
MIN(VARA,VAR13),Color33FFCC;
MIN(VARA,VAR14),Color66FFCC;
色）:MIN(（黃,VAR16),Color99FFFF;
下:MIN(色）,VAR17),Color55FFFF;
降:MIN(下,VAR18),Color33FFFF;
MIN(降,VAR19),Color00FFFF;
VAR1A:=FORCAST(CLOSE,2);
VAR1B:=(HIGH+(4)*(LOW)+OPEN+VAR1A)/(7);
VAR1C:=EMA(VAR1B,13)-EMA(VAR1B,34);
VAR1D:=EMA(VAR1C,5);
VAR1E:=(VAR1C-VAR1D)*(5);
VAR1F:=IF((VAR1E>=1000),1000,IF((VAR1E<=VAR1B),VAR1B,VAR1E));
VAR20:=(FORCAST(FORCAST(VAR1F,14),10))/(1.007);
（時間之窗）:MIN(VARA,VAR20),Color0066CC;
MIN(（時間之窗）,VAR20),Color0066CC;