input:y(2011,1991,2099),m(6,1,12),d(30,1,31),y1(2011,1992,2099),m1(9,1,12),d1(31,1,31),y2(2011,1992,2099),m2(9,1,12),d2(31,1,31);
{成交額}
成交額:AMOUNT/10000000,COLORb400ff;
STICKLINE(成交額,成交額,0,6,0),COLORGRAY;
mm:=(y-1900)*10000+m*100+d;{最早日期}
mb:=(y1-1900)*10000+m1*100+d1;{中間日期}
mn:=(y2-1900)*10000+m2*100+d2;{最晚日期}
zz:=LAST(DATE>mm)+1;{DATE-1900年以來年月日}
zb:=LAST(DATE>mb)+1;{中間}
zc:=LAST(DATE>mn)+1;
VERTLINE(zz=2,1),COLORgreen;{繪起點垂直線}
VERTLINE(zb=2,1),COLORffffff;{繪中間垂直線}
VERTLINE(zc=2,1),COLORFFFF00;{繪終點垂直線}
個股季:=ref(sum(AMOUNT,zz-zb)/sum(VOL*100,zz-zb),zb);
個股今:=ref(sum(AMOUNT,zb-zc)/sum(VOL*100,zb-zc),zc);
指數季:=ref(ma(c,zz-zb),zb);
指數今:=ref(ma(c,zb-zc),zc);
if zb>1 then begin 季區(qū)間成本:if(CATEGORY=1,個股季,指數季),COLORFFFFFF,LINETHICK0;end;{季區(qū)間成本}
if zc>1 then begin 今區(qū)間成本:if(CATEGORY=1,個股今,指數今),COLORFFFFFF,LINETHICK0;end;{今區(qū)間成本}
季區(qū)間換手:=ref(SUM(VOL,zz-zb)/CAPITAL*100,zb);
今區(qū)間換手:=ref(SUM(VOL,zb-zc)/CAPITAL*100,zc);
if zb>1 then begin 季區(qū)間換手％:if(CATEGORY=1,季區(qū)間換手,指數季),COLORFFFF00,LINETHICK0;end;{季區(qū)間換手}
if zc>1 then begin 今區(qū)間換手％:if(CATEGORY=1,今區(qū)間換手,指數今),COLORFFFF00,LINETHICK0;end;{今區(qū)間換手}
DRAWTEXT(zz=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,’起點’),LINETHICK3,ALIGN1,COLORgreen;
DRAWTEXT(zb=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,’中點’),LINETHICK3,ALIGN1,COLORffffff;
DRAWTEXT(zc=2,(LLVALL(HIGH)+HHVALL(HIGH))/2,’終點’),LINETHICK3,ALIGN1,COLORFFFF00;
drawtextABS(700,10,’●季區(qū)間成本 ‘+NUMTOSTRN(季區(qū)間成本,2)+’元’),colorffFFff;
drawtextABS(960,10,’●今區(qū)間成本 ‘+NUMTOSTRN(今區(qū)間成本,2)+’元’),colorffFFff;
drawtextABS(700,25,’●季區(qū)間換手 ‘+NUMTOSTRN(季區(qū)間換手％,1)+’%’),colorffFF00;
drawtextABS(960,25,’●今區(qū)間換手 ‘+NUMTOSTRN(今區(qū)間換手％,1)+’%’),colorffFF00;
VAR1:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*80;
A:SMA(VAR1,7,1),LINETHICK1,COLOR00FFFF;
VAR2:=SMA(A,5,1);
B:IF(CROSS(A,VAR2) AND CROSS(MA(C,5),MA(C,13) AND A>50) ,VAR2*2,VAR2),COLORYELLOW;
PARTLINE(B,B>REF(B,1),RGB(255,0,0),B DRAWTEXT(CROSS(B,A) ,B,’止贏!!’),color0000ff;
DRAWTEXT(CROSS(A,B) ,A,’買’),color00ffff;
出局:ref(A,BARSLAST(cross(ref(A,3),A))+1),POINTDOT,colorD3A9FF,LINETHICK2;
{引用}
增倉大股東:=”笑看莊舞.增倉大股東數#day”;
減倉大股東:=”笑看莊舞.減倉大股東數#day”;
新進大股東:=”笑看莊舞.新進大股東數#day”;
未變大股東:=”笑看莊舞.未變大股東數#day”;
DRAWTEXTabs(700,45,’●年報增倉大股東:’+NUMTOSTRN(增倉大股東,0) +’★’+’減倉大股東:’+NUMTOSTRN(減倉大股東,0) +’◆’+’新進大股東:’+NUMTOSTRN(新進大股東,0) +’★’+’未變大股東:’+NUMTOSTRN(未變大股東,0)),color00ffff;
{m.smcfsm.com 概念股網_大智慧股票指標公式}
DRAWTEXTABS(150,20,’●二季前10流占 ‘+NUMTOSTRN(PFFINON(4252,2011,0630),2)+’%’),COLOR00FFFF;
DRAWTEXTABS(450,20,’●三季前10流占 ‘+NUMTOSTRN(PFFINON(4252,2011,0930),2)+’%’),COLOR00FF00;
DRAWTEXTABS(700,60,’●年報前10流占 ‘+NUMTOSTRN(PFFINON(4252,2011,1231),2)+’%’),COLOR0098FF;
二季合計持股:=PFFINON(4251,2011,0630)/10000;
三季合計持股:=PFFINON(4251,2011,0930)/10000;
年報合計持股:=PFFINON(4251,2011,1231)/10000;
三季前十增減％:=(三季合計持股-二季合計持股)/二季合計持股*100;
DRAWTEXTABS(450,45,’★三季前十流通股東合計持股變化率:’+NUMTOSTRN(三季前十增減％,2)+’%’),ColorffffFF;
年報前十增減％:=(年報合計持股-三季合計持股)/三季合計持股*100;
DRAWTEXTABS(700,80,’★年報前十流通股東合計持股變化率:’+NUMTOSTRN(年報前十增減％,2)+’%’),ColorffffFF;