看了一发千钧老师的指标千钧指点江山,实际就是个黄金分割线,但可是随光标移动,闲来无事,把无用代码去掉,直接可用,如有不当,请一发千钧老师见谅。
修改过的代码:
STICKLINE(c=o and c>ref(c,1),c,o,6,0),COLOR0000ee;
STICKLINE(C>O,h,l,0,0),COLOR0000ee;
STICKLINE(C>O,O,C,8,0),COLOR0000aa;STICKLINE(C>O,O,C,5,0),COLOR0000cc;
STICKLINE(C>O,O,C,3,0),COLOR0000ee;STICKLINE(C>O,O,C,1,0),COLOR0000ff;
STICKLINE(C=O and c<ref(c,1),c,o,6,0),COLORFFEE00;
STICKLINE(C<O,h,l,0,0),COLORFFEE00;
STICKLINE(C<O,O,C,8,0),COLORFF4400;STICKLINE(C<O,O,C,5,0),COLORFF8800;
STICKLINE(C<O,O,C,3,0),COLORFFAA00;STICKLINE(C<O,O,C,1,0),COLORFFCC00;
/////////////////////////////////////////////////////////////////////////
sjj:=STKTYPE=1 or STKTYPE=2 or STKTYPE=3 or STKTYPE=5 or STKTYPE=11;
P:=SYSPARAM(1);
bc:=barslast(p=barpos)+1;
金h:=if(NOT(sjj),sum(h*vol,bc)/sum(vol,bc),sum(amount,bc)/sum(v,bc)/100*sum(h,bc)/sum(c,bc));
金l:=if(NOT(sjj),sum(l*vol,bc)/sum(vol,bc),sum(amount,bc)/sum(v,bc)/100*sum(l,bc)/sum(c,bc));
点石成金:if(ref(h,bc-1)>ref(h,bc) and ref(h,bc-1)>ref(h,bc-2),金h,金l),color00BBff,LINETHICK2;
成本线:DMA(C,IF(CAPITAL=0,vol/ESTDATA(12)/20,vol/FINANCE(7)/50)),COLORff00ff;
决策线:WMA(成本线,IF(CAPITAL=0,74,21)),COLOR00ee00;
///////////////////////////////////////////////////////////////////////////////////
SS:=55;HhC:=HHV(h,SS);LLc:=LLV(L,SS);
PARTLINE(BARPOS>=p-SS,hHC[p]),COLOR00EE00;
DRAWNUMBER(BARPOS=p-SS,hHC[p],hHC[p],2),COLOREEEEEE,PXUP25;
PARTLINE(BARPOS>=p-SS,LLc[p]),COLOR0000FF;
DRAWNUMBER(BARPOS=p-SS,LLc[p],LLc[p],2),COLOREEEEEE,PXUP25;
PARTLINE(BARPOS>=p-SS,(hHC[p]+LLc[p])/2),COLOR00EEFF;
DRAWNUMBER(BARPOS=p-SS,(hHC[p]+LLc[p])/2,(hHC[p]+LLc[p])/2,2),COLOREEEEEE,PXUP25;
PARTLINE(BARPOS>=p-55,(hHC[p]*3+LLc[p])/4),COLORDDDDDD,POINTDOT;
DRAWNUMBER(BARPOS=p-55,(hHC[p]*3+LLc[p])/4,(hHC[p]*3+LLc[p])/4,2),COLOREEEEEE,PXUP25;
PARTLINE(BARPOS>=p-55,(hHC[p]+LLc[p]*3)/4),COLORDDDDDD,POINTDOT;
DRAWNUMBER(BARPOS=p-55,(hHC[p]+LLc[p]*3)/4,(hHC[p]+LLc[p]*3)/4,2),COLOREEEEEE,PXUP25;
/////////////////////////////////////////////////////////////////////////////////
A:=BLKNAME;BKG:=STRLEFT(A,STRFIND(A,',',1)-1);
BKSG:=STKCOUNT(BKG);BK:='板块指数';BKS:=STKCOUNT(BK);
DRAWTEXTEX(c,1,0,0,''+STKLABEL+' '+STKNAME+' 隶属'+MARKETNAME+',所属板块:'+BKG+','+'共含证券:'+NUMTOSTR(BKSG,0)+' 家'),COLOR00ddff;
//////////////////////////////////////////////////////////////////////////////////
A1:=COST(0.37);A2:=COST(6);A3:=COST(15);A4:=COST(55);A5:=COST(95);
【90%成本】:=COST(90);【70%成本】:=COST(12);获利:=WINNER(C)*100;
套牢:=100-WINNER(C)*100;底出击★:=a1;稳建仓:=a2;快刀手:=a3;预测★:=a5;升浪:=a4;
DRAWTEXTEX(c,1,0,45,' \n获利盘:'+NUMTOSTR(获利,2)+' %'),align4,Colorff00ff;
DRAWTEXTEX(c,1,0,45,' \n \n套牢盘:'+NUMTOSTR(套牢,2)+' %'),align4,Colorffbb00;
DRAWTEXTEX(c,1,0,45,' \n \n \n■底击:'+NUMTOSTR(底出击★[sysparam(1)],2)+' 元'),align4,Colorred;
DRAWTEXTEX(c,1,0,45,' \n \n \n \n■稳仓:'+NUMTOSTR(稳建仓[sysparam(1)],2)+' 元')PXDN0,align4,Coloryellow;
DRAWTEXTEX(c,1,0,45,' \n \n \n \n \n■快刀:'+NUMTOSTR(快刀手[SYSPARAM(1)],2)+' 元')PXDN0,align4,COLORgreen;
DRAWTEXTEX(c,1,0,45,' \n \n \n \n \n \n■升浪:'+NUMTOSTR(升浪[sysparam(1)],2)+' 元')PXDN0,align4,Colorffffff;
DRAWTEXTEX(c,1,0,45,' \n \n \n 、\n \n \n \n■预测:'+NUMTOSTR(预测★[sysparam(1)],2)+' 元')PXDN0,align4,Colorffbbff;
DRAWTEXTEX(c,1,0,45,' \n \n \n \n 、\n \n \n \n90成本:'+NUMTOSTR(【90%成本】[sysparam(1)],2)+' 元')PXDN0,align4,Colorffeeff;
DRAWTEXTEX(c,1,0,45,' \n \n \n \n 、\n \n \n \n \n70成本:'+NUMTOSTR(【70%成本】[sysparam(1)],2)+' 元')PXDN0,align4,Colorffccff;