[求助]黃金分割線源代碼改寫成金字塔代碼

請教下各路大神，下面這段代碼如何改寫成金字塔代碼，非常感謝~

if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;

管理員，這是全部代碼。幫忙看看~

m:=58;x:=3;p:=SYSPARAM(1);
ws:=BARPOS;ws1:=if(ws<m,ws,m);
wsp:=p-ws1+1;wsp1:=ws1-1;
h1:=hhv(h,ws1);l1:=llv(l,ws1);
hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x;
//VERTLINE(m),LINEDOT,Color0000FF;
//VERTLINE(p),LINEDOT,Color00FB00;
FILLRGN(hp<h1,hp,h1),COLORMAGENTA;
if ws1[p]>1 then begin
DRAWSL(ws=wsp[p],hp,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp,0,wsp1[p],3) LINETHICK1,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3)LINETHICK1 ,POINTDOT,;
DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3) LINETHICK1,POINTDOT,,coloraaaaaa;
DRAWNUMBER(ws=wsp[p],hp,hp,2)COLORRED,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp,lp,2)COLORGREEN,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2)COLORYELLOW,SHIFT38;
DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2)COLORFFFFFF,SHIFT38;
end;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),ColorFF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),ColorFF;
STICKLINE(CLOSE<OPEN,HIGH,LOW,0,0),ColorCYAN;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,8,0),ColorCYAN;