费氏数变盘(通达信)

源码正文：

端端正正做人，实实在在分享，闲话不说了......

N:=1200{XG51};
高:=REF(HHV(H,N),3){XG51};
低:=REF(LLV(L,N),3){XG51};
H19:=高-(高-低)*0.191{XG51};
H38:=高-(高-低)*0.382{XG51};
H中:=高-(高-低)*0.5{XG51};
H61:=高-(高-低)*0.618{XG51};
H80:=高-(高-低)*0.809{XG51};
顶:REFDATE(高,DATE),COLORRED,crOSSDOT{XG51};
%19.8:REFDATE(H19,DATE),COLORBLUE,CROSSDOT{XG51};
%38.2:REFDATE(H38,DATE),COLORmaGENTA{XG51};
%50:=REFDATE(H中,DATE),COLORWHITE,LINETHICK2,CROSSDOT{XG51};
%61.8:REFDATE(H61,DATE),COLORLIMAGENTA,CROSSDOT{XG51};
%80.9:REFDATE(H80,DATE),COLORBLUE,CROSSDOT{XG51};
低点:REFDATE(低,DATE),COLORRED,CROSSDOT{XG51};
费氏数:=H=HHV(H,1200){XG51};
成立距今:=BArslAST(费氏数){XG51};
DRAWTEXT(成立距今=(32*1)-1,高-高*0.016,'31 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*2)-1,高-高*0.016,'63 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*3)-1,高-高*0.016,'95 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*4)-1,高-高*0.016,'127 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*5)-1,高-高*0.016,'149 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*6)-1,高-高*0.016,'191 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*7)-1,高-高*0.016,'223 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*8)-1,高-高*0.016,'255 明天变盘'),COLORBLUE{XG51};
DRAWTEXT(成立距今=(32*9)-1,高-高*0.016,'287 明天变盘'),COLORBLUE{XG51};
H天数:STICKLINE(成立距今=(32*1)-1 OR 成立距今=(32*2)-1
OR 成立距今=(32*3)-1 OR 成立距今=(32*4)-1 OR 成立距今=(32*5)-1
OR 成立距今=(32*6)-1 OR 成立距今=(32*7)-1 OR 成立距今=(32*8)-1
OR 成立距今=(32*9)-1
,高,低,0,0),COLORBLUE{X?G_5.1?C?N?{};

源码正文：

流通盘a:CAPITAL/100,LINETHICK0{XG51};
A1:=ema((2*CLOSE+HIGH+LOW)/4,N1){XG51};
A2:=Ema(A1,2){XG51};
A3:=EMA(A2,2){XG51};
A4:=EMA(A3,2){XG51};
A5:=EMA(A4,2){XG51};
A6:=EMA(A5,2){XG51};
A7:=EMA(A6,2){XG51};
A8:=EMA(A7,2){XG51};
A9:=EMA(A8,2){XG51};
A10:=EMA(A9,2){XG51};
A11:=EMA(A10,2){XG51};
A12:=EMA(A11,2){XG51};
A13:=EMA(A12,2){XG51};
A14:=EMA(A13,2){XG51};
A15:=EMA(A14,2){XG51};
if(A1>A15,A1,A15),LINETHICK3,color0000FF{XG51};
STICKLINE(A1>A15,A1,A15,1,0),POINTDOT,LINETHICK1,colorff6fff{XG51};
下线1:HHV(FORCAST(CLOSE,10),18),colorE66878{XG51};
下线2:HHV(FORCAST(CLOSE,10),14),colorF0F000{XG51};
下线3:HHV(FORCAST(CLOSE,10),10),color00FFFF{XG51};
下线4:HHV(FORCAST(CLOSE,10),6),color00FF00{XG51};
上线:FORCAST(CLOSE,10),LINETHICK1,color0000FF{XG51};
最低l:LLV(C,20),COLOR0090EF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.1,0),color0000FF{XG51};
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.1,0),color0000FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0),LINETHICK2,color5050FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0),color5050FF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.6,0),color5F5FFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0),color5F5FFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.5,0),color6C6CFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),color6C6CFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.4,0),color7E7EFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),color7E7EFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.3,0),color9D9DFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0),color9D9DFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.2,0),colorAFAFFF{XG51};
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0),colorAFAFFF{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1.2,0),colorC1C1FF{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),colorC1C1FF{XG51};
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,3,0),color009900{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.1,0),color008200{XG51};
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.1,0),color008200{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,5,0),LINETHICK2,color008200{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,4,0),color138B13{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),color279227{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),color419D41{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),color62AB62{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),color80B980{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,2,0),color90BE90{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,1,0),color9FC49E{XG51};
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),colorB1CCB1{X~G~5=1~C~N~{};