甘氏线画法

gsx:=BARSLAST(DISPSTATUS=1)+1;gsxh:=hhvall(hhv(h,gsx));gsxl:=llvall(llv(l,gsx));
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.00078125,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.0015625,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.003125,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.00625,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.0125,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl ,gsxl*1.025,1),Color7F00FF;
 DRAWLINE(filter(gsxl=l,20),gsxl,gsxl,gsxl*1.05,1),Color7F00FF,linethick2;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.99921875,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.9984375,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.996875,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.99375,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.9875,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.975,1),Color7FFF00;
 DRAWLINE(filter(h=gsxh,20),gsxh,gsxh,gsxh*0.95,1),Color7FFF00,linethick2;