【同花顺】请教一手动公式能按日期更改主图颜色（已解决）

在网上搜到一个相关的案例，不知道这个是什么软件的代码，同花顺好像无法运行

input:n1(20031120,19000101,29991231),m1(20040406,19000101,29991231),p1(20050606,19000101,29991231);
DRAWGBK(C>0,colorrgb(0,0,0),colorrgb(0,0,0),1);
n:=n1-19000000;
m:=m1-19000000;
p:=p1-19000000;
K1:=datacount-BARPOS;
A:=REFX(SYSPARAM(4),K1);
B:=REFX(SYSPARAM(5),K1);
STICKLINE(DATE>=n AND DATE<=m,A,B,10,0),coloryellow;
STICKLINE(DATE>m AND DATE<=p,A,B,10,0),colorffbf00;
k:=(C>O OR C=O AND C>REF(C,1));
STICKLINE(k,H,L,0.1,1),colorred;
STICKLINE(k,C,O,8,1),colorred;
STICKLINE(NOT(k),H,L,0.1,0),colorcyan;
STICKLINE(NOT(k),C,O,8,0),colorcyan;
b1:=BARSLAST(DATE=n);
b2:=BARSLAST(DATE=m)-1;
b3:=BARSLAST(DATE=p)-1;
dp1:=(INDEXC/REF(INDEXC,b1)-1)*100;
dp2:=(INDEXC/REF(INDEXC,b2)-1)*100;
dp3:=(INDEXC/REF(INDEXC,b3)-1)*100;
cc1:=(C/REF(C,b1)-1)*100;
cc2:=(C/REF(C,b2)-1)*100;
cc3:=(C/REF(C,b3)-1)*100;
K2:=(a-b)/5*4+b;
p2:=IF(HHV(H,50)>=K2,(a-b)/5+b,a);
DRAWTEXT(DATE=m,p2,'大盘涨幅:'+NUMTOSTR(REF(dp1,b2+1),2)+'\n'+'个股涨幅:'+NUMTOSTR(REF(cc1,b2+1),2)),align2,colorblack;
DRAWTEXT(DATE=p,p2,'大盘涨幅:'+NUMTOSTR(REF(dp2,b3+1),2)+'\n'+'个股涨幅:'+NUMTOSTR(REF(cc2,b3+1),2)),align2,colorblack;
DRAWTEXT(islastbar,p2,'大盘涨幅:'+NUMTOSTR(dp3,2)+'\n'+'个股涨幅:'+NUMTOSTR(cc3,2)),align2,colorwhite;