自用選股公式_

長陰短柱選股公式　:

選股通用公式：C/REF(C,1)<0.95 and V<REF(V,1)/1.9;

盤中選股公式：C/REF(C,1)<0.95 and V*240/FROMOPEN<REF(V,1)/1.9;

財務數據:

DRAWGBKLAST(CLOSE>0, STRIP(RGB(10,10,10),RGB(50,15,8),0));   
X:=1;   
DRAWTEXTABS(10,10,'所屬板塊:'+BKNAME),LINETHICK2,COLOR0000FF;   
DD:=FINANCE2(35)*X;    
SS:=FINANCE2(37)*X;    
GG:=(FINANCE2(33)/FINANCE2(35))/10*X;    
HH:=DYNAINFO(39)*X;   
DRAWTEXTABS(10,28,'總股本:'+NUMTOSTRN(DD,0)+'萬'+'.流通A股:'+NUMTOSTRN(SS,0)   
+'萬'+'.人均持股:'+CEILING(CAPITAL*100/EXTRADATA('散戶線'))+'.市盈率:'  
+NUMTOSTRN(HH,2)+''+'.每股收益:'+NUMTOSTRN(GG,3)),LINETHICK2,COLORWHITE;   
DRAWTEXTABS(10,100,'機構評級:'+EXTRASTRING('評級')),LINETHICK2,COLOR8285FF;   
流通市值:=C*CAPITAL*VOLUNIT/100000000;   
市凈率:=DYNAINFO(58);    
F:=COST(5 );   
J:=COST(95 );    
M:=COST(15 );   
N:=COST(85 );    
F1:=(J-F)/(F+J)*100;   
M1:=(N-M)/(N+M)*100;    
成本集中度:=F1;    
蕕利比例:=WINNER(C )*100;    
日換手率:=VOL/CAPITAL*100;    
凈資產:=FINANCE2(4)*X;    
每股公積金:=FINANCE2(7)*X;   
每股未分配:=FINANCE2(8)*X;   
股東權益比:=FINANCE2(9)*X;    
主營同比:=FINANCE2(11)*X;    
凈利潤同比:=FINANCE2(10)*X;    
凈資收益率:=FINANCE2(5)*X;     
毛利潤率:=FINANCE2(12)*X;    
現金流:=FINANCE2(6)*X;   
現金比:=FINANCE2(23)/FINANCE2(14)*100;   
負債比:=FINANCE2(20)/FINANCE2(14)*100;   
DRAWTEXTABS(10,46,'流通市值:'+流通市值+' '),LINETHICK2,COLORFF00FF;   
DRAWTEXTABS(140,46,'市凈率:'+市凈率+' '),LINETHICK2,COLORFF00FF;    
DRAWTEXTABS(280,46,'成本集中度:'+成本集中度+'% '),LINETHICK2,COLORFF00FF;    
DRAWTEXTABS(420,46,'蕕利比例:'+蕕利比例+'% '),LINETHICK2,COLORFF00FF;    
DRAWTEXTABS(560,46,'日換手率:'+日換手率+'% '),LINETHICK2,COLORFF00FF;    
DRAWTEXTABS(10,64,'凈資產:'+凈資產+'元 '),LINETHICK2,COLORGREEN;    
DRAWTEXTABS(140,64,'每股公積金:'+每股公積金+'元 '),LINETHICK2,COLORGREEN;   
DRAWTEXTABS(280,64,'每股未分配:'+每股未分配+'元 '),LINETHICK2,COLORGREEN;    
DRAWTEXTABS(420,64,'股東權益比:'+股東權益比+'% '),LINETHICK2,COLORGREEN;    
DRAWTEXTABS(560,64,'負債比:'+負債比+'% '),LINETHICK2,COLORGREEN;    
DRAWTEXTABS(10,82,'主營同比:'+主營同比+'% '),LINETHICK2,COLOR00FFFF;    
DRAWTEXTABS(140,82,'凈利潤同比:'+凈利潤同比+'% '),LINETHICK2,COLOR00FFFF;    
DRAWTEXTABS(280,82,'凈資收益率:'+凈資收益率+'% '),LINETHICK2,COLOR00FFFF;   
DRAWTEXTABS(420,82,'毛利潤率:'+毛利潤率+'% '),LINETHICK2,COLOR00FFFF;   
DRAWTEXTABS(560,82,'現金流:'+現金流+'元 '),LINETHICK2,COLOR00FFFF;   
DRAWTEXTABS(672,82,'現金比:'+現金比+'% '),LINETHICK2,COLOR00FFFF;    
  
GJ:=IF(C=INDEXC,(INDEXC+INDEXH+INDEXL+INDEXO)/4,AMOUNT/(V+0.01)/100);   
TT1:='今日成交量大于昨日,且有繼續增大趨勢';   
TT2:='今日成交量小于昨日，但有放大跡象';   
TT3:='今日成交量大于昨日, 但有縮小跡象';   
TT4:='今日成交量小于昨日，且有縮小跡象';   
TT:=IFS(BARSTATUS=2 AND V>REF(V,1) AND MA(V,5)>REF(MA(V,5),1),TT1,IFS(BARSTATUS=2 AND V<REF(V,1) AND MA(V,5)>REF(MA(V,5),1),TT2   
,IFS(BARSTATUS=2 AND V>REF(V,1)AND MA(V,5)<REF(MA(V,5),1),TT3,TT4)));   
DRAWTEXTABS(460,100,TT),LINETHICK2,COLOR8285FF;

風險評估:

{ 參數n:40   100   55 }

活期存款利率:=0.81*1.0;
一年期存款利率:=3.87*1.0;
三年期存款利率:=5.22*1.0;
名義無風險利率:=一年期存款利率;
風險補償率:=0.03986;
投資期望收益率:=名義無風險利率+風險補償率;
風險補償率二:=0.03986;
名義無風險利二:=三年期存款利率;
i2:=名義無風險利二+風險補償率二;
v0:=1/(1+投資期望收益率);
x0:=1/(1+i2);
m2:=1;
k1:=0.68;
k11:=0.75;
v1:=(POW(1+投資期望收益率,K1)-1)/投資期望收益率;
x1:=(POW(1+i2,K11)-1)/i2;
g:=0.03;
m:=2;
g2:=0.05;
v2:=1-POW((1+g)/(1+投資期望收益率),m-1);
x2:=1-POW((1+g2)/(1+i2),m2-1);
v3:=(1+g)*v2/(投資期望收益率-g);
x3:=(1+g2)*x2/(i2-g2);
v4:=POW(v0,k1+(m-1))/投資期望收益率;
x4:=POW(x0,k11+(m2-1))/i2;
v5:=(v1+v3);
x5:=(x1+x3);
每股收益:=FINANCE2(3);
預期每股收益:=0.278;
預期每股收益二:=0.29;
股息分配比例:=0.35;
股息分配比例二:=0.42;
紅股折算股息:=0.12;
紅股折算股息二:=0.09;
現金股息:=預期每股收益*股息分配比例;
現金股息二:=預期每股收益二*股息分配比例二;
基準股息:=現金股息+紅股折算股息;
基準股息二:=現金股息二+紅股折算股息二;
d:=基準股息;
d2:=基準股息二;
上證指數平均價:="SH000001$AMOUNT"/"SH000001$VOL"/100;
深圳成指平均價:="SZ399001$AMOUNT"/"SZ399001$VOL"/100;
滬深個股平均價:=("SH000001$AMOUNT"+"SZ399001$AMOUNT")/("SH000001$VOL"+"SZ399001$VOL")/100;
股票平均成交價:=AMOUNT/(VOL*100);
股票理論價格:=d*POW(V0,K1)*v5+d*POW(1+g,m-1)*v4;
股票理論價格二:=d2*POW(x0,K11)*x5+d2*POW(1+g2,m2-1)*x4;
股價泡沫率估算:=100*(股票平均成交價-股票理論價格)/股票理論價格/1000;
泡沫估算二:=100*(股票平均成交價-股票理論價格二)/股票理論價格二;
今成交均價:=股票平均成交價;
理論價估算:=股票理論價格;
理論價二:=股票理論價格二;
每股市盈率:=DYNAINFO(39);
股票合理市贏率:=股票理論價格/預期每股收益*100;
股票合理市贏二:=股票理論價格二/預期每股收益二;
合理市贏二:=股票合理市贏二;
十日均價泡沫估:=100*(ma(股票平均成交價,10)-股票理論價格)/股票理論價格/1000;
{趨勢+逃頂 參數n:40 100 55 }
VAR1:=(HHV(HIGH,9)-CLOSE)/(HHV(HIGH,9)-LLV(LOW,9))*100-70;
VAR2:=SMA(VAR1,9,1)+100;
VAR3:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VAR4:=SMA(VAR3,3,1);
VAR5:=SMA(VAR4,3,1)+100;
VAR6:=VAR5-VAR2;
個股升降坐標:IF(VAR6>n,VAR6-n,0),PRECIS2,colorf00ff0;
STICKLINE(REF(個股升降坐標,1)<個股升降坐標,個股升降坐標,REF(個股升降坐標,1),5,0),colorf00ff0;
STICKLINE(REF(個股升降坐標,1)>個股升降坐標,個股升降坐標,REF(個股升降坐標,1),5,0),color00ff00;
歷史最高成交價:=HHV(HIGH,0);
歷史最低成交價:=LLV(LOW,0);
H1:=INDEXA;
大盤短線壓力:=(((INDEXC + INDEXL) + INDEXH) / 3);
XHH:=((INDEXA / INDEXV) / 100);
短線支撐:=(IF((INDEXC > 200),大盤短線壓力,XHH) - INDEXL);
大盤短線支撐:=(INDEXC - 短線支撐);
VAR193:=(INDEXC + 短線支撐);
DRAWTEXTABS(20,5,'■活期存款利率:'+NUMTOSTRN(活期存款利率,2)+'%'),Color00FFFF;
DRAWTEXTABS(170,5,'■一年期存款利率:'+NUMTOSTRN(一年期存款利率,2)+'%'),Color00FFFF;
DRAWTEXTABS(325,5,'■三年期存款利率:'+NUMTOSTRN(三年期存款利率,2)+'%'),Color00FFFF;
DRAWTEXTABS(490,5,'■存款名義無風險利率:'+NUMTOSTRN(名義無風險利率,2)+'%'),Color00FFFF;
DRAWTEXTABS(20,20,'■存款風險補償率:'+NUMTOSTRN(風險補償率,2)+'%'),Color00FFFF;
DRAWTEXTABS(170,20,'■個股股息分配比例:'+NUMTOSTRN(股息分配比例,2)+'%'),Color00FFFF;
DRAWTEXTABS(325,20,'■個股分紅折算股息:'+NUMTOSTRN(紅股折算股息,2)+'元'),Color00FFFF;
DRAWTEXTABS(490,20,'■持有個股基準股息:'+NUMTOSTRN(基準股息,2)+'元/股'),Color00FFFF;
DRAWTEXTABS(20,75,'■當前每股收益:'+NUMTOSTRN(每股收益,2)+'元'),Color00FF00;
DRAWTEXTABS(175,75,'■理想預期每股收益:'+NUMTOSTRN(預期每股收益,2)+'元'),Color00FF00;
DRAWTEXTABS(345,75,'■當前每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),Color00FF00;
DRAWTEXTABS(520,75,'■個股合理市贏率:'+NUMTOSTRN(股票合理市贏率,2)+'倍'),Color00FF00;
DRAWTEXTABS(680,75,'■投資期望收益率:'+NUMTOSTRN(投資期望收益率,2)+'%'),Color00FF00;
DRAWTEXTABS(20,90,'■上證指數均價:'+NUMTOSTRN(上證指數平均價,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(175,90,'■深圳成指均價:'+NUMTOSTRN(深圳成指平均價,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(345,90,'■滬深個股平均價:'+NUMTOSTRN(滬深個股平均價,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(520,90,'■個股對應大盤平均成交價:'+NUMTOSTRN(股票平均成交價,2)+'元'),ColorFFFFFF;
DRAWTEXTABS(20,105,'■對應經濟周期【股價泡沫率】估算:'+NUMTOSTRN(股價泡沫率估算,0)+'% →'),ColorFFFF00;
DRAWTEXTABS(265,105,'當前個股成交均價:'+NUMTOSTRN(今成交均價,2)+'元 →'),ColorFFFF00;
DRAWTEXTABS(440,105,'對應經濟周期十日【均價泡沫率】估算:'+NUMTOSTRN(十日均價泡沫估,0)+'%'),ColorFFFF00;
DRAWTEXTABS(20,120,'■歷史最高成交價:'+NUMTOSTRN(歷史最高成交價,2)+'元'),Color0000FF;
DRAWTEXTABS(200,120,'■歷史最低成交價:'+NUMTOSTRN(歷史最低成交價,2)+'元'),Color0000FF;
DRAWTEXTABS(370,120,'■大盤短線壓力: '+NUMTOSTRN(大盤短線壓力,2)+'點'),Color0000FF;
DRAWTEXTABS(540,120,'■大盤短線支撐: '+NUMTOSTRN(大盤短線支撐,2)+'點'),Color0000FF;

成交量：

成交量:VOL,COLORWHITE,PRECIS0,LINETHICK0;
換手率:=VOL/CAPITAL*100;
成交額:=AMOUNT;
T:=TIMETOT0(CURRENTTIME)/60;
交易日:=IF(CURRENTDATE=DATE,1,0);
交易時間:=IF(交易日=1 AND CURRENTTIME>=93000 AND CURRENTTIME<150000 AND DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,
IF(CURRENTTIME<113000,(T-570),IF(CURRENTTIME>130000,(T-660),120)),240);
虛擬量:VOL*240/交易時間,COLORYELLOW,PRECIS0,LINETHICK0;
虛換手:換手率*240/交易時間,COLORFF00FF,PRECIS2,LINETHICK0;
虛擬額:成交額*240/交易時間/10000,COLORWHITE,PRECIS0,LINETHICK0;
量比:="量比#MIN1";
獲利盤:=WINNER(CLOSE)*100;
SAT:=(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20));
量能飽和度:IF(SAT>1,1,SAT)*100,COLORYELLOW,PRECIS2,LINETHICK0;
STICKLINE(DISPSTATUS=2 AND 交易時間>0,VOL,VOL*240/交易時間,8,1),COLORYELLOW;
STICKLINE(C>=O,0,VOL,8,0),COLOR000011;
STICKLINE(C>=O,0,VOL,6.5,0),COLOR000033;
STICKLINE(C>=O,0,VOL,5,0),COLOR000055;
STICKLINE(C>=O,0,VOL,3.5,0),COLOR000077;
STICKLINE(C>=O,0,VOL,2,0),COLOR000099;
STICKLINE(C>=O,0,VOL,0.5,0),COLOR0000BB;
STICKLINE(C<O,0,VOL,8,0),COLOR222200;
STICKLINE(C<O,0,VOL,6.5,0),COLOR333300;
STICKLINE(C<O,0,VOL,5,0),COLOR444400;
STICKLINE(C<O,0,VOL,3.5,0),COLOR555500;
STICKLINE(C<O,0,VOL,2,0),COLOR666600;
STICKLINE(C<O,0,VOL,0.5,0),COLOR777700;
VAR1:=DYNAINFO(17)*REF(MA(VOL,5),1);
VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;
預測:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR2)/10000;
預測量:STICKLINE(IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR2),VAR1,0,7,1),COLORGRAY;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主買:IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL /2)),POINTDOT,COLORRED;
主賣:IF(CLOSE>OPEN,AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,AA*(HIGH-LOW),VOL /2)),COLORCYAN,POINTDOT;
資金異動:VOL/MA(VOL,55)*100,COLORYELLOW;
{量柱副圖}
PERIOD5:=COUNT(DATE<>REF(DATE,1),2)=2;
FROMOPEN:=IF(HOUR<12,60*(HOUR-9)-30+MINUTE,120+60*(HOUR-13)+MINUTE);
VVOL:IF(BARSCOUNT(CLOSE)=1 AND PERIOD5,VOL*240/FROMOPEN,0),LINETHICK0;
STICKLINE(BARSCOUNT(CLOSE)=1 AND PERIOD5,VVOL,0,-1,-1),COLOR00C0C0;
VOLUME:VOL,VOLSTICK;
AA:=VOL>REF(V,1)*1.9;
AA1:=VOL<REF(LLV(VOL,13),1);
AA2:=VOL<REF(LLV(VOL,55),1);
STICKLINE(AA,0,V,4,0),COLORYELLOW;
STICKLINE(AA1,0,V,4,0),COLORGREEN;
STICKLINE(AA2,0,V,4,0);
TJ1:=COUNT(V>REF(V,1)*1.9,4)=1;
TJ2:=COUNT(V<REF(V,1) AND L>MIN(L,4) AND L>REF(L,1),3)=3 ;
TJ3:=TJ1 AND TJ2;
STICKLINE(TJ3,0,V,4,0),COLORRED;
MV2:=MA(V,2);
MV6:=MA(V,6);
MV20:=MA(V,20);
量柱:V/CAPITAL*100,VOLSTICK;
倍量柱:=IF(V/REF(V,1)>1.9 AND C>REF(C,1),1,0);
高量柱:=IF(V=HHV(V,10),3,2);
低量柱:=IF(V=LLV(V,10),9,8);
并肩平量柱:=IF((V/REF(V,1)>0.95 AND V/REF(V,1)<1.05),7,6);
縮量柱:=IF(V<REF(V,1) AND REF(V,1)<REF(V,2) AND REF(V,2)<REF(V,3),25,35);
梯量柱:=IF(V>REF(V,1) AND REF(V,1)>REF(V,2) AND REF(V,2)>REF(V,3),11,10);
{}
V5:MA(VOL,5),COLORFF00FF,PRECIS0,LAYER0;
V35:MA(VOL,35),COLORGREEN,PRECIS0,LAYER0;
V135:MA(VOL,135),COLORWHITE,PRECIS0,LAYER0;
DRAWTEXTREL(2,25,'量　比:'),COLORYELLOW;
DRAWTEXTREL(60,25,NUMTOSTRN(量比,2)),COLORYELLOW;
DRAWRECTREL(125,25,325,225,RGB(30,30,30)),COLORYELLOW;
DRAWRECTREL(125,25,IF(125+量比*10<=325,125+量比*10,325),225,RGB(155,50,50)),COLORYELLOW;
DRAWTEXTREL(400,25,'■紫線5天'),COLORFF00FF;
DRAWTEXTREL(500,25,'■綠線35天'),COLORGREEN;
DRAWTEXTREL(600,25,'■白線135天'),COLORWHITE;
DRAWTEXTREL(2,275,'虛換手:'),COLORYELLOW;
DRAWTEXTREL(60,275,NUMTOSTRN(虛換手,2)+'%'),COLORYELLOW;
DRAWRECTREL(125,275,325,475,RGB(30,30,30)),COLORYELLOW;
DRAWRECTREL(125,275,IF(125+虛換手*10<=325,125+虛換手*10,325),475,RGB(155,50,50)),COLORYELLOW;
DRAWTEXTREL(2,525,'飽和度:'),COLORYELLOW;
DRAWTEXTREL(60,525,NUMTOSTRN(量能飽和度,2)+'%'),COLORYELLOW;
DRAWRECTREL(125,525,325,725,RGB(30,30,30)),COLORYELLOW;
DRAWRECTREL(125,525,125+量能飽和度*2,725,RGB(155,50,50)),COLORYELLOW;
DRAWTEXTREL(2,775,'獲利盤:'),COLORYELLOW;
DRAWTEXTREL(60,775,NUMTOSTRN(獲利盤,2)+'%'),COLORYELLOW;
DRAWRECTREL(125,775,325,975,RGB(30,30,30)),COLORYELLOW;
DRAWRECTREL(125,775,125+獲利盤*2,975,RGB(155,50,50)),COLORYELLOW;

{主買主賣}
STICKLINE(VOL>0,VOL,0,4,1),COLORWHITE;
STICKLINE(主買>0,0,主買,4,0),COLORRED;
STICKLINE(主賣<0,0,主賣,4,0),COLOR00FF00;

{量柱六和一}

量柱六合一指標


倍量:(VOL/REF(VOL,1)>2 and COUNT(CLOSE>OPEN,1)) or (LOW>REF(HIGH,1) and COUNT(OPEN>CLOSE,1) and VOL/REF(VOL,1)>2),STICK,COLORBLUE,linethick4;

DRAWTEXT(倍量,0.75,'倍量'),COLORBLUE;


百日地量:LLV(VOL,100)==VOL,STICK,COLORRED,LINETHICK4;

DRAWTEXT(百日地量,0.5,'地量'),colorred;


倍縮量:VOL/REF(VOL,1)<0.5,STICK,COLORFF00FF,linethick2;


縮量漲:

COUNT(C>REF(C,1),2)==2 AND COUNT(VOL<REF(VOL,1),2)==2,COLORYELLOW,,STICK,linethick2;


黑太陽:

IF(LOW>REF(HIGH,1) and COUNT(OPEN>CLOSE,1),0.5,0),STICK,colorwhite,linethick4;

DRAWTEXT(黑太陽,0.2,'黑太陽'),COLORwhite;


紅太陽:

IF(LOW>REF(HIGH,1) and COUNT(OPEN<CLOSE,1),0.5,0),STICK,colorred,linethick4;

DRAWTEXT(紅太陽,0.2,'紅太陽'),COLORRED;

劃線主圖：

{點石成金(紅綠雙線); 參數:綠(0,0,1000),紅(0,0,1000)}

高點時區:=PEAKBARS(4,30,1 );

低點時區:=TROUGHBARS(4,30,1 );

eee:=BACKSET(BARSTATUS=2 ,if(綠=0,高點時區+1,綠));

ee:=FILTER(eee ,if(綠=0,高點時區*2,綠+2 ));

VERTLINE(ee,2 ),ALIGN2,COLORFFff00;

s2:=COUNT(eee ,綠 );

bc:=s2;

點石成金H:=IF(close>100,SUM(h*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(H,bc)/SUM(C,BC)){,colorred,LINETHICK2};

點石成金L:=IF(close>100,SUM(l*VOL,bc)/SUM(VOL,bc),sum(AMOUNT,bc)/sum(v,bc)/100*SUM(L,bc)/SUM(C,BC)){,colorblue,LINETHICK2};

點石成金:if(ref(h,bc)>ref(h,bc+1) and ref(h,bc)>ref(h,bc-1) ,點石成金h,點石成金l),color00ff00,LINETHICK1;

PARTLINE(點石成金,eee=1 ),color00ff00,LINETHICK2;

DRAWTEXT(BARSTATUS=2,點石成金*1.01,''+點石成金),COLOR00ff00,VALIGN2,ALIGN2;

DRAWTEXT(ee,點石成金*1.01,''+綠),COLOR00ff00,VALIGN2,ALIGN2;

DRAWTEXT(BARSTATUS=2,點石成金*1.01,'________'),COLOR00ff00,VALIGN2,ALIGN2;

eee1:=BACKSET(BARSTATUS=2 ,if(紅=0,低點時區+1,紅));

ee1:=FILTER(eee1 ,if(紅=0,低點時區*2,紅+2 ));

VERTLINE(ee1,2 ),ALIGN2,COLORFFdd00;

s21:=COUNT(eee1 ,紅 );

bc1:=s21;

點石成金H1:=IF(close>100,SUM(h*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(H,bc1)/SUM(C,BC1));

點石成金L1:=IF(close>100,SUM(l*VOL,bc1)/SUM(VOL,bc1),sum(AMOUNT,bc1)/sum(v,bc1)/100*SUM(L,bc1)/SUM(C,BC1));

點石成金1:if(ref(h,bc1)>ref(h,bc1+1) and ref(h,bc1)>ref(h,bc1-1) ,點石成金h1,點石成金l1),colorred,LINETHICK1;

PARTLINE(點石成金1,eee1=1 ),colorred,LINETHICK2;

DRAWTEXT(BARSTATUS=2,點石成金1*0.98,''+點石成金1),COLORred,VALIGN0,ALIGN2;

DRAWTEXT(ee1,點石成金1*0.98,''+紅),COLORred,VALIGN0,ALIGN2;

DRAWTEXT(BARSTATUS=2,點石成金1*0.98,'________'),COLOR00ff00,VALIGN0,ALIGN2;

A1:=REF(HIGH,3)=HHV(HIGH,2*3+1); B1:=FILTER(A1,3); C1:=BACKSET(B1,3+1); D1:=FILTER(C1,3);{高點}

A2:=REF(LOW,3)=LLV(LOW,2*3+1); B2:=FILTER(A2,3); C2:=BACKSET(B2,3+1); D2:=FILTER(C2,3);{低點}

E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2; E2:=(HIGH+LOW)/2;{高低點出現在同一K線上時可作取舍}

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

H2:=D1 AND NOT(D2 AND E1>=E2);

L1:=D2 AND NOT(D1 AND E1=E2);

X1:=REF(BARSLAST(H1),1)+1; F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));

G1:=F1>REF(F1,1); I1:=BACKSET(G1,2); LD:=I1>REF(I1,1);{過濾后低點}

L2:=LD OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;

X2:=REF(BARSLAST(L2),1)+1; F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));

G2:=F2>REF(F2,1); I2:=BACKSET(G2,2); HD:=I2>REF(I2,1);{過濾后高點}

DRAWLINE(LD,L,HD,H,0),COLORGRAY,LINETHICK1,POINTDOT;

DRAWLINE(HD,H,LD,L,0),COLORGRAY,LINETHICK1,POINTDOT;

J1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);

DRAWLINE(J2,IF(HD,H,L),BARSTATUS=2,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORGRAY,LINETHICK1,POINTDOT;

A3:=H; B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));

D3:=A3 AND B3 AND HD; E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2); HH:=E3>REF(E3,1);{找出全部長期高點}

A4:=L>REF(L,REF(BARSLAST(LD),1)+1);

B4:=REF(L,REF(BARSLAST(LD),1)+1); D4:=A4 AND B4 AND LD; E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2); LL:=E4>REF(E4,1);{找出全部長期低點}

DRAWICON(HH,H,5),ALIGN1;     DRAWICON(LL,L,4),ALIGN1;

H3:=HH OR BARSTATUS=2 OR BARSCOUNT(C)=1; {后面進行過濾，方法同前。只是不用考慮高低點出現在同一K線}

X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));

G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1); {長期低點，也可供引用}

L4:=LZ OR BARSTATUS=2 OR BARSCOUNT(C)=1;

X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));

G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1);{長期高點，也可供引用}

DRAWLINE(HZ,H,LZ,L,0),color00ff00,LINETHICK1;

DRAWLINE(LZ,L,HZ,H,0),color00ff00,LINETHICK1;{長期連線}

K1:=BACKSET(BARSTATUS=2,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);

DRAWLINE(K2,IF(HZ,H,L),BARSTATUS=2,C,0),color00ff00,LINETHICK1; {最后的長期連線，連在收盤價上}

UU:=BACKSET(BARSTATUS=2,BARSLAST(LD)+1);

VV:=UU>REF(UU,1);

WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);

XX:=WW>REF(WW,1);

DRAWLINE(XX,L,VV,L,1),COLORMAGENTA,LINETHICK1;

UU2:=BACKSET(BARSTATUS=2,BARSLAST(HD)+1);

VV2:=UU2>REF(UU2,1);

WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);

XX2:=WW2>REF(WW2,1);

DRAWLINE(XX2,H,VV2,H,1),COLORMAGENTA,LINETHICK1;

{123Q4}

前一低:=REF(L,BARSLAST(VV)){,COLOR99FF66,POINTDOT,LINETHICK1};

前二低:=REF(L,BARSLAST(XX)){,COLORFF66FF,POINTDOT,LINETHICK1};

前一高:=REF(H,BARSLAST(VV2)){,COLOR99FF66,POINTDOT,LINETHICK1};

前二高:=REF(H,BARSLAST(XX2)){,COLORFF66FF,POINTDOT,LINETHICK1};

求4看空:h*前一低/if(前一高=h,前二高,前一高);

求4看多:l*前一高/if(前一低=l,前二低,前一低);

前一低:REF(L,BARSLAST(VV)),COLOR99FF66,POINTDOT,LINETHICK3;

前二低:REF(L,BARSLAST(XX)),COLORFF66FF,POINTDOT,LINETHICK3;

前一高:REF(H,BARSLAST(VV2)),COLOR99FF66,POINTDOT,LINETHICK3;

前二高:REF(H,BARSLAST(XX2)),COLORFF66FF,POINTDOT,LINETHICK3;

短高:=REF(H,BARSLAST(VV2));

短低:=REF(L,BARSLAST(VV));

短比: (C-短低)/(短高-短低),LINETHICK0;

{以下語句為三角形部分}

底:REF(L,BARSLAST(VV)),COLOR0000FF,LINETHICK2;

頂:REF(H,BARSLAST(VV2)),color00ff00,LINETHICK2;

{下迭三角形：藍色三角形畫完介入}

StickLine(VV,頂,底,0,0),Colorff6633,linethick3;{}

DRAWLINE(VV2,H,VV,L,0),Colorff6633,linethick3;{斜}

DRAWLINE(VV2,H,VV,頂,0),Colorff6633,linethick3;{?}

{DRAWLINE(c>0,H,VV,L,0),Colorcyan,linethick2;}{斜}

{DRAWLINE(c>1,H,VV,頂,0),Colorcyan,linethick2;}{?}

{上漲三角形：紅色三角形畫完出局}

StickLine(VV2 ,頂,底,0,0),COLOR0000FF,linethick3;{}

DRAWLINE(VV,L,VV2,H,0),COLOR0000FF,linethick3;{斜}

DRAWLINE(VV,L,VV2,底,0),COLOR0000FF,linethick3;{?};

ZDT:=(C-REF(C,1))/REF(C,1)*100;

STICKLINE(ZDT>9.8,O,C,6,0),COLOR0000FF;

STICKLINE(ZDT<-9.8,O,C,6,0),COLOR00FF00;

DRAWTEXT(CROSS(ZIG(3,10),REF(ZIG(3,10),1)),LOW*0.99,'B') , colorred;

DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),HIGH*1.008,'S'),colorgreen;

{四區主圖}

W:=BARSLAST(DISPSTATUS=1);

P:=BACKSET(DISPSTATUS=2,W/2+1);

K:=BARSLAST(CROSS(P,0.5));

KJ:=HHVALL(HIGH)-LLVALL(LOW);

低漲:(C/LLV(LOW,W)-1)*100,COLOR0000FF,LINETHICK0,PRECIS2;

天:BARSLAST(L=LLV(LOW,W)),COLOR00FFFF,LINETHICK0,PRECIS0;

DRAWTEXT(HIGH=HHVALL(HIGH) and K>=0,HIGH*1.01,'←'+NUMTOSTRN(HIGH,2)),COLORFFFFFF;

{支撐壓力}

PT  := REF(HIGH,1)-REF(LOW,1);

重心:=(HIGH + LOW + CLOSE)/3;

壓力Ⅰ:= 2*重心-LOW;

壓力Ⅱ:= 重心 + PT;

支撐Ⅰ:= 2*重心-HIGH;

支撐Ⅱ:= 重心 - PT;

DRAWTEXTABS(75,8,'  《趨勢操作》'),ColorFFFF00;

DRAWTEXTABS(150,8,'  重心:'+重心),Color208FFF;

DRAWTEXTABS(75,27,'    支  撐'),ColorFFFFFF;

DRAWTEXTABS(75,44,'    '+支撐Ⅰ),ColorFFFFFF;

DRAWTEXTABS(75,62,'    '+支撐Ⅱ),ColorFFFFFF;

DRAWTEXTABS(75,27,'                壓  力'),Color00FF00;

DRAWTEXTABS(75,44,'                '+壓力Ⅰ),Color00FF00;

DRAWTEXTABS(75,62,'                '+壓力Ⅱ),Color00FF00;

DRAWTEXTABS(75,5,'│'),Color00FFFF;

DRAWTEXTABS(75,17,'│'),Color00FFFF;

DRAWTEXTABS(75,29,'│'),Color00FFFF;

DRAWTEXTABS(75,41,'│'),Color00FFFF;

DRAWTEXTABS(75,53,'│'),Color00FFFF;

DRAWTEXTABS(75,65,'│'),Color00FFFF;

DRAWTEXTABS(218,5,'│'),Color00FFFF;

DRAWTEXTABS(218,17,'│'),Color00FFFF;

DRAWTEXTABS(218,29,'│'),Color00FFFF;

DRAWTEXTABS(218,41,'│'),Color00FFFF;

DRAWTEXTABS(218,53,'│'),Color00FFFF;

DRAWTEXTABS(218,65,'│'),Color00FFFF;

DRAWTEXTABS(146,25,'│'),Color00FFFF;

DRAWTEXTABS(146,29,'│'),Color00FFFF;

DRAWTEXTABS(146,41,'│'),Color00FFFF;

DRAWTEXTABS(146,53,'│'),Color00FFFF;

DRAWTEXTABS(146,65,'│'),Color00FFFF;

DRAWTEXTABS(80,0,'────────────'),Color00FFFF;

DRAWTEXTABS(80,20,'────────────'),Color00FFFF;

DRAWTEXTABS(80,37,'────────────'),Color00FFFF;

DRAWTEXTABS(80,54,'────────────'),Color00FFFF;

DRAWTEXTABS(80,71,'────────────'),Color00FFFF;

{以下設置個股信息}

DRAWTEXTREL(10,400,'■低點至今上漲:'+NUMTOSTRN(低漲,2)+'％  '+NUMTOSTRN(天,0)+'天'),COLOR0000FF;

DRAWTEXTREL(10,460,'■目前可見K線:'+NUMTOSTRN(W+1,0)+'天'),COLOR00FF00;

DRAWTEXTREL(10,520,'■趨勢判斷,123Q4；波段操作，點石成金。'),COLORFF8899;

DRAWTEXTREL(10,580,'■藍色三角形畫完介入，紅色三角形畫完出局'),COLORWHITE;

{蓋印}

DRAWRECTABS(28,29,58,62,rgb(250,250,80)),color000099;

DRAWRECTABS(27,29,57,63,rgb(250,60,80)),colorred;

DRAWTEXTABS(30,35,'黍離'),colorFFFFFF,LINETHICK1;

DRAWTEXTABS(30,48,'專用'),colorFFFFFF,LINETHICK1;