[飞狐]飞狐一半一半源码公式

我是一个兵

飞狐一半一半源码公式：
input:p1(30), 几份(4),添加速阻(1,0,1);
波段高低:zig(4,p1),linethick0;

DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h,0),COLORAA77EE;
DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l,0),COLOREE9933;





一半:(PEAK(4,p1,1)+TROUGH(4,p1,1))/2,linethick0;
if 几份=2  then
begin

stickline(一半=ref(一半,1),一半,一半,10,0),coloree33aa;
end;


if 几份=4 then
begin

stickline(一半=ref(一半,1),一半,一半,10,0),coloree33aa;

四分之三:(PEAK(4,p1,1)*3+TROUGH(4,p1,1))/4,linethick0;
stickline(四分之三=ref(四分之三,1),四分之三,四分之三,10,0),coloree33aa;
四分之一:(PEAK(4,p1,1) +TROUGH(4,p1,1) *3)/4,linethick0;
stickline(四分之一=ref(四分之一,1),四分之一,四分之一,10,0),coloree33aa;
end;

if 几份=3 then
begin
三分之二:(PEAK(4,p1,1)*2+TROUGH(4,p1,1))/3,linethick0;
stickline(三分之二=ref(三分之二,1),三分之二,三分之二,10,0),coloree33aa;

三分之一:(PEAK(4,p1,1)+TROUGH(4,p1,1)*2)/3,linethick0;
stickline(三分之一=ref(三分之一,1),三分之一,三分之一,10,0),coloree33aa;
end;





{☆§-------------------------------------§☆}

if 添加速阻=1 then begin

if 几份=2 then
begin
DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))/2,0),COLOR77eeEE;
//DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),TROUGH(4,p1,1) ,0),COLORAA77EE;



DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))/2 ,0),COLOReeee99;
//DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),PEAK(4,p1,1),0),COLOREE9933;


end;

if 几份=4 then
begin
DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))/2,0),COLORAA77EE;

DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))/4,0),COLORAA77EE;
DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))*3/4,0),COLORAA77EE;
end;



if 几份=4 then
begin
DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))/2 ,0),COLOREE9933;

DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))/4 ,0),COLOREE9933;
DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))*3/4 ,0),COLOREE9933;
end;




if 几份=3 then
begin
DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))/3*2 ,0),COLOR3377aa;
DRAWLINE(zig(4,p1)=TROUGH(4,p1,1),l,zig(4,p1)=PEAK(4,p1,1),h-(PEAK(4,p1,1)-TROUGH(4,p1,1))/3,0),COLOR3377aa;

DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))/3 ,0),COLOR99ee77;
DRAWLINE(zig(4,p1)=PEAK(4,p1,1),h,zig(4,p1)=TROUGH(4,p1,1),l+(PEAK(4,p1,1)-TROUGH(4,p1,1))/3*2 ,0),COLOR99ee77;