请老师把下面代码改成金字塔可用，谢谢。

丝与竹

{N=1,2,3}
N1:=DAYBARPOS;
N2:=BARSLAST(WEEKDAY<REF(WEEKDAY,1))+1;
N3:=BARSLAST(MONTH<>REF(MONTH,1))+1;
NN:=IF(N=1,N1,IF(N=2,N2,IF(N=3,N3,NULL)));
OO:=VALUEWHEN(NN=1,O);
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C>OO,C,BARSLAST(NN=1),(REFX(NN=1,1)||ISLASTBAR)&&C>OO,OO,BARSLAST(NN=1),0),COLORRED,LINETHICK2;
DRAWLINE((REFX(NN=1,1)||ISLASTBAR)&&C>OO,C,(REFX(NN=1,1)||ISLASTBAR)&&C>OO,OO,COLORRED),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C>OO,C,0,-BARSLAST(NN=1),0,COLORRED),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C>OO,OO,0,-BARSLAST(NN=1),0,COLORRED),LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C=OO,C,BARSLAST(NN=1),(REFX(NN=1,1)||ISLASTBAR)&&C=OO,OO,BARSLAST(NN=1),0),COLORWHITE,LINETHICK2;
DRAWLINE((REFX(NN=1,1)||ISLASTBAR)&&C=OO,C,(REFX(NN=1,1)||ISLASTBAR)&&C=OO,OO,COLORWHITE),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C=OO,C,0,-BARSLAST(NN=1),0,COLORWHITE),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C=OO,OO,0,-BARSLAST(NN=1),0,COLORWHITE),LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C<OO,C,BARSLAST(NN=1),(REFX(NN=1,1)||ISLASTBAR)&&C<OO,OO,BARSLAST(NN=1),0),COLORCYAN,LINETHICK2;
DRAWLINE((REFX(NN=1,1)||ISLASTBAR)&&C<OO,C,(REFX(NN=1,1)||ISLASTBAR)&&C<OO,OO,COLORCYAN),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C<OO,C,0,-BARSLAST(NN=1),0,COLORCYAN),LINETHICK2;
DRAWSL((REFX(NN=1,1)||ISLASTBAR)&&C<OO,OO,0,-BARSLAST(NN=1),0,COLORCYAN),LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C>OO,HHV(H,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C>OO,C,BARSLAST(NN=1)/2,0),COLORRED,LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C>OO,LLV(L,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C>OO,OO,BARSLAST(NN=1)/2,0),COLORRED,LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C=OO,HHV(H,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C=OO,C,BARSLAST(NN=1)/2,0),COLORWHITE,LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C=OO,LLV(L,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C=OO,OO,BARSLAST(NN=1)/2,0),COLORWHITE,LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C<OO,HHV(H,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C<OO,OO,BARSLAST(NN=1)/2,0),COLORCYAN,LINETHICK2;
DRAWLINE3((REFX(NN=1,1)||ISLASTBAR)&&C<OO,LLV(L,BARSLAST(NN=1)+1),BARSLAST(NN=1)/2,(REFX(NN=1,1)||ISLASTBAR)&&C<OO,C,BARSLAST(NN=1)/2,0),COLORCYAN,LINETHICK2;

技术006

改不了，没有DRAWLINE3对应的函数可以替代

丝与竹

其实就是在小周期上叠加日线，周线和月线K。

丝与竹

代码:
INPUT:N(9,1,1000);
zq:=mod(barpos,n)=1;ts:=barslast(zq);s:=if(ts>ref(ts,1),1,0);
zqdw:=backset(ts=0,ts+2);
z:=cross(backset(ts=0,ref(ts,1)/2+2),0.5);
zjts:=round(ts[datacount]/2);
zjz:=cross(backset(islastbar,zjts),0.5);
h1:=hhv(h,ts+1);l1:=llv(l,ts+1);o1:=(ts=0)*o;
c1:=if(zqdw=1 and ts>0,c,if(barstatus=2,c,0));
ft:=ts;rt:=ref(ts,1);x:=0*c;
for i= datacount downto 2 do begin
  if ft>rt then
  x[i-1]:=x+s;
end  
o2:ref(o1,ts)LINETHICK0;c2:refx(c1,x)LINETHICK0;h2:refx(h1,x)LINETHICK0;l2:refx(l1,x)LINETHICK0;
k:=c2>o2 or c2=o2 and c2>ref(c2,ts);tj1:=z or zjz;
tj:=ts=0 or barstatus=2 or zqdw=1and ts>ref(ts,1);
partline(ts and k,o2)COLORRED;
partline(ts and k,c2)COLORRED;
partline(ts and not(k),o2)COLORCYAN;
partline(ts and not(k),c2)COLORCYAN;
STICKLINE(tj1 and k,h2,c2,0.1,1)COLORRED;
STICKLINE(tj1 and k,l2,o2,0.1,1)COLORRED;
STICKLINE(tj1 and not(k),h2,o2,0.1,1)COLORCYAN;
STICKLINE(tj1 and not(k),l2,c2,0.1,1)COLORCYAN;
STICKLINE(tj and k,o2,c2,0.1,1)COLORRED;
STICKLINE(tj and not(k),o2,c2,0.1,1)COLORCYAN;
STICKLINE(barstatus=2 and ts<1and k,h2,l2,0.1,1)COLORRED;
STICKLINE(barstatus=2 and ts<1and k,o2,c2,8,1)COLORRED;
STICKLINE(barstatus=2 and ts<1and not(k),h2,l2,0.1,1)COLORCYAN;
STICKLINE(barstatus=2 and ts<1and not(k),o2,c2,8,1)COLORCYAN;

本人根据同学求助做了小小修改：
简单说明：
{自由周期K线(调整指标参数)飞狐版-原作 知无不言(cwy)-调整 理想 刘松何柏—(加了个参数 M 调整大于1的数可以设定多周期K线的画出的起始点，默认1不调为上市首日)-注：原公式参数 N 当调整到小于4的值时，画出的K线不带上下影线-此处未修正}

自由周期K线-调试起画点
{自由周期K线(调整指标参数)飞狐版-原作 知无不言(cwy)-调整 理想 刘松何柏—(加了个参数 M 调整大于1的数可以设定多周期K线的画出的起始点，默认1不调为上市首日)-注：原公式参数 N 当调整到小于4的值时，画出的K线不带上下影线-此处未修正}

INPUT:N(9,1,1000),M(1,1,100);
BAR:=(BARPOS-M+1);
zq:=mod(bar,n)=1;ts:=barslast(zq);s:=if(ts>ref(ts,1),1,0);
zqdw:=backset(ts=0,ts+2);
z:=cross(backset(ts=0,ref(ts,1)/2+2),0.5);
zjts:=round(ts[datacount]/2);
zjz:=cross(backset(islastbar,zjts),0.5);
h1:=hhv(h,ts+1);l1:=llv(l,ts+1);o1:=(ts=0)*o;
c1:=if(zqdw=1 and ts>0,c,if(barstatus=2,c,0));
ft:=ts;rt:=ref(ts,1);x:=0*c;
for i= datacount downto M+1 do begin
  if ft[i]>rt[i] then
  x[i-1]:=x[i]+s[i];
end
o2:ref(o1,ts)LINETHICK0;c2:refx(c1,x)LINETHICK0;h2:refx(h1,x)LINETHICK0;l2:refx(l1,x)LINETHICK0;
k:=c2>o2 or c2=o2 and c2>ref(c2,ts);tj1:=z or zjz;
tj:=ts=0 or barstatus=2 or zqdw=1and ts>ref(ts,1);
partline(ts and k,o2)COLORRED;
partline(ts and k,c2)COLORRED;
partline(ts and not(k),o2)COLORCYAN;
partline(ts and not(k),c2)COLORCYAN;
STICKLINE(tj1 and k,h2,c2,0.1,1)COLORRED;
STICKLINE(tj1 and k,l2,o2,0.1,1)COLORRED;
STICKLINE(tj1 and not(k),h2,o2,0.1,1)COLORCYAN;
STICKLINE(tj1 and not(k),l2,c2,0.1,1)COLORCYAN;
STICKLINE(tj and k,o2,c2,0.1,1)COLORRED;
STICKLINE(tj and not(k),o2,c2,0.1,1)COLORCYAN;
STICKLINE(barstatus=2 and ts<1and k,h2,l2,0.1,1)COLORRED;
STICKLINE(barstatus=2 and ts<1and k,o2,c2,8,1)COLORRED;
STICKLINE(barstatus=2 and ts<1and not(k),h2,l2,0.1,1)COLORCYAN;
STICKLINE(barstatus=2 and ts<1and not(k),o2,c2,8,1)COLORCYAN;

丝与竹

这是上面代码的效果图，就是这样的

技术006

4楼的代码不需要修改，就能直接使用。（报错的地方是因为你and前面没有空格）