庄散资金能改成大智慧

编写要求：

解答：

?网友求助：

源码:成交额:AMOUNT,LINETHICK0;
STICKLINE(成交额,成交额,0,2.5,1),COLORGRAY;
JJ:=(HIGH+LOW+CLOSE)/3;
QJ0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);
主买:ABS(QJ0*(JJ-MIN(CLOSE,OPEN))),COLORRED,LINETHICK0;
主卖:(QJ0*(MIN(OPEN,CLOSE)-LOW)),COLORLIBLUE,LINETHICK0;
散买:(QJ0*(HIGH-MAX(OPEN,CLOSE))),LINETHICK0;
散卖:ABS(QJ0*(MAX(CLOSE,OPEN)-JJ)),COLORLIBLUE,LINETHICK0;
主买卖差:=主买-主卖,LINETHICK0;
散买卖差:=散买-散卖,COLORRED,LINETHICK0;
STICKLINE(主买卖差>=0,0,主买卖差,2,0),COLORRED;
STICKLINE(主买卖差<0,0,主买卖差,2,0),COLORLIBLUE;
今天资金进出:(主买+散买)-(主卖+散卖),COLORWHITE,LINETHICK0;
STICKLINE(散买-散卖>0 AND 主买卖差>0,散买-散卖+主买卖差,主买卖差,2,0),COLORLIRED;
STICKLINE(散买-散卖>0 AND 主买卖差<0,散买-散卖,0,2,0),COLORLIRED;
STICKLINE(散买-散卖<0 AND 主买卖差<0,散买-散卖+主买卖差,主买卖差,2,0),COLORLIGRAY;
STICKLINE(散买-散卖<0 AND 主买卖差>0,散买-散卖,0,2,0),COLORLIGRAY;
STICKLINE(今天资金进出>0,今天资金进出*1.003,今天资金进出,2.5,0),COLORYELLOW;
STICKLINE(今天资金进出<0,今天资金进出*0.98,今天资金进出,2.5,0),COLORBLUE;
0,COLORGRAY;
五日:MA(AMOUNT,5);
三五日:MA(AMOUNT,35);
一三五日:MA(AMOUNT,135);
?