将《茶舍散户线》转换为同花顺可用_大智慧gde破解版

源码如下：

<茶舍散户线>

jj:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);

TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);DD1:=qj0*(jj-MIN(CLOSE,OPEN));

DD2:=qj0*(HIGH-MAX(OPEN,CLOSE));TD2:=qj0*(MAX(CLOSE,OPEN)-jj);

td:=TD1-TD2;da:=DD1-DD2;xd1:=1-(TD1+DD1);xd2:=1-(TD2+DD2);

tz:=v/sum(v,60)*100;DT:=((xd1-xd2)/10000)/tz;

散户持仓线:sum(DT,22),COLOR888888,LINETHICK2;

STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF;

STICKLine(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800;

DRAWTEXT(ISLASTBAR,散户持仓线,'散\n户\n线 ');

DRAWTEXTEX(DT>0,0,150,0,'散户增:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FFFF;

dRAWTEXTEX(DT<0,0,150,0,'散户减:'+NUMTOSTR(DT,2)+' 万元'),COLOR00FF00;

DRAWTEXTEx(c,1,0,0,'茶舍散户持仓线'),COLORYELLOW;

DRAWTEXTEX(CLOSE,1,0,150,'证券代码: '+STKLABEL+' 证券名称: '+STKNAME+''),ColorFFAA00;

//

 

解答如下：

JJ:=(HIGH+LOW+CLOSE)/3;qj0:=AMOUNT/IF(HIGH=LOW,4,HIGH-LOW);

TD1:=qj0*(MIN(OPEN,CLOSE)-LOW);DD1:=qj0*(JJ-MIN(CLOSE,OPEN));

DD2:=qj0*(HIGH-MAX(OPEN,CLOSE));TD2:=qj0*(MAX(CLOSE,OPEN)-JJ);

td:=TD1-TD2;da:=DD1-DD2;xd1:=1-(TD1+DD1);xd2:=1-(TD2+DD2);

tz:=V/SUM(V,60)*100;DT:=((xd1-xd2)/10000)/tz;

散户增减（万元）:DT;//不输出线性

散户持仓线:SUM(DT,22),COLOR888888,LINETHICK2;

STICKLINE(DT>0,散户持仓线,散户持仓线+DT,2,0),COLORFF00FF;

STICKLINE(DT<0,散户持仓线+DT,散户持仓线,2,0),COLORFF8800;

DRAWTEXT(ISNULL(REFX(&CLOSE,1)),散户持仓线,'散户线 ');

DRAWTEXT(FILTER(ISNULL(REFX(&CLOSE,60)),59),散户持仓线*0.98,'证券代码: '+CODE+' 证券名称: '+STKNAME+''),ColorFFAA00;