【圖】精品公式(飛狐指標）

海天云騫 2017-06-05

展開全文

1.南客
{南客大師}
{新三價線--很不錯的趨勢指標（錢龍的TBL指標）}
一、基本概念
TBL指標（Three Break Line）,中文名為新三價線指標,屬于圖表型指標,其原理是若三根K線持續(xù)上漲(或下跌)創(chuàng)短期新高(或新低),則發(fā)出紅色(或黑色)的柱狀買入(或賣出)信號。與平時常用指標不同的是,該指標在平時盤整時并不輕易出現(xiàn)信號,是一類在大盤出現(xiàn)明顯單邊趨勢時提議追漲殺跌的指標。它能有效地去除行情中無關緊要的盤整和波段上升中的震蕩回調干擾,更適合于做較大波段、做大趨勢的中長期投資中比較重勢的那種投資者。
二、應用法則
1、新三價線由黑色變?yōu)榧t色時,視為買入信號。
2、新三價線由紅色變?yōu)楹谏珪r,視為賣出信號。
注意:新三價線如果持續(xù)上漲,則會由原新三價線向上延伸,下跌亦然。因此,
新三價線不會與K線在時間橫軸上相對稱。
三、實例說明
如次新股(600379)寶光股份的新三價線指標。其上市第三天股價小創(chuàng)新低,指標
在9.87元處有一支小綠柱,投資者暫不買入,而第五個交易日股價在三天內見新高10.28元,三價線即翻紅,中線投資者可介入,此后該股震蕩上行,雖走勢反復較多,但始終沒有出現(xiàn)三天內見新低的K線組合。故新三價線或紅柱延長、或再出現(xiàn)紅柱,提示投資者可一直持股至最高點。3月29日該股大幅回跌至14.33元,出現(xiàn)頭部信號,指標提示投資者賣出。此后,該股反彈不斷,但新三價線始終保持綠盤,提示下降通道,直至該股回跌到10.42元低點,一直提示投資者不要買入。6月6日該股重新出現(xiàn)中陽,新三價線終于再次于11.02元處提示買入。總體看,該股上市半年多,股價上下變化復雜,現(xiàn)在股價較上市時也沒有明顯上升,按別的操作方法可能不會有明顯的收益。但按新三價線做波段者買2次賣1次,就有50%的獲利,可謂操作簡單但收益不低。
由于新三價線是一個重勢不重價、提示追漲殺跌做波段的指標,不可避免地具有明顯的滯后性,對一段行情勢必是棄兩頭、取中間。投資者不宜在行情中途加入,一定要在長時間綠柱后翻紅再介入比較安全。對于愛好短線搶反彈、或習慣低吸高拋做法的投資者,該指標應慎用。

新三價線
有些股民在使用錢龍軟件的時候，往往覺得新三價線與寶塔線在圖形上有些相似，
以至于造成平時運用沒有把握。接下來，我們就來談談它們的異同點。
　　二者的相似點在于指標顯示形式相同，買賣應用規(guī)則都較接近。

指標應用法則：
1、新三價線由黑色變成紅色時，視為買進信號；
2、新三價線由紅色變成黑色時，視為賣出信號；
3、新三價線如果持續(xù)上漲，則會由原新三價線向上延伸，因此，新三價線不會與K線相對稱，反之亦然。這一點請?zhí)貏e注意！

寶塔線
指標應用法則：
1、寶塔線由黑色變成紅色時，視為買進信號；
2、寶塔線由紅色變成黑色時，視為賣出信號；
3、寶塔線如果持續(xù)上漲，則會由原寶塔線向上延伸，因此，寶塔線不會
與K 線相對稱，反之亦然。這一點請?zhí)貏e注意！

二者的不同點如下:

一、盤整行情中，寶塔線會忽翻紅忽翻黑，其信號的效果會大幅降低。
因此現(xiàn)在用戶使用中也有如下的用法。
　　1、寶塔線三平底翻紅為買入時機，股價將會延伸一段上升行情；
　　2、寶塔線三平頂翻綠為賣出時機，股價將會繼續(xù)一段下跌行情；
　　3、盤局時寶塔線的小翻紅、小翻綠可不必理會。

二、寶塔線的畫法是將當前收盤價與前一根寶塔線做比較，而新三價線
則是與其前三根新三價線做比較。

三、股民往往會覺得參照新三價線指標的買入賣出不準確，其實股民應
注意新三價線每日的變化，而不是去追溯其歷史資料，因為，新三價線并不是一天畫一根線，它與K線的漲跌走勢并不是一一對應的?？幢P時，如
果今天的新三價線是一根陽線，那么，代表它正處于多頭的市況中，反之，則視為空頭市況。如果新三價線從昨日的陽線變成今日的陰線，則被視為賣出信號。

　　以個股滬昌特鋼（600665）為例，在它歷史上曾經有過的周K線走
勢圖中，如果將圖縮小的話，會發(fā)現(xiàn)TBL和TOW指標的形態(tài)與K線并不是一一對應的，但TBL翻紅、TOW三平底翻紅還是顯示該股當時正處于強
勢之中。

{三價線源碼}
input:m(2,2,9999);  //參數M定位，第1根TBL柱線對應K線的序號
if m<2 then exit;
up:=c>ref(c,1);
down:=c<ref(c,1);
fc:=close;
fo:=open;
a:=setlbound(up,1);
up[1]:=fc[1]>fo[1];
n:=m-1;
if up[n] then begin
  B4:=fc[n];
  B1:=fo[n];
  b3:=B1;
  B2:=B1;
  tbl:=1;
end else begin
  B4:=fo[n];
  B1:=fc[n];
  B2:=B4;
  B3:=B4;
  tbl:=0;
end;
tblcount:=1;
////////////////////////////////////
for i=n+1 to datacount do begin
  if tbl=1 then begin
if up then begin
   if fc>B4 then begin
      tblcount:=tblcount+1;
      tblc:=fc;
      tblo:=B4;
      if tblcount>2 then begin
      tblcount:=3;
      B1:=B2;
      B2:=B3;
      end;
      B3:=B4;
      B4:=fc;
   end;
end
else if down then begin
   if fc<B1 then begin
      tblcount:=1;
      tblc:=fc;
      tblo:=B3;
      B1:=fc;
      B2:=B3;
      tbl:=0;
   end;
end;
  end  else begin
if down then begin
   if fc<B1 then begin
      tblcount:=tblcount+1;
      tblc:=fc;
      tblo:=B1;
      if tblcount>2 then begin
      tblcount:=3;
      B4:=B3;
      b3:=B2;
      end;
      B2:=B1;
      B1:=fc;
   end;
end
else if up then begin
   if fc>B4 then begin
      tblcount:=1;
      tblc:=fc;
      tblo:=B2;
      B4:=fc;
      B3:=B2;
      tbl:=1;
   end;
end;
  end;
end;
stickline(tblc<>0 and up,tblc,tblo,7,1)colorred;
stickline(tblc<>0 and down,tblc,tblo,7,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0 and ref(up,ts),ref(tblc,ts),ref(tblc,ts),3,1),colormagenta;
stickline(tblc=0 and ref(down,ts),ref(tblc,ts),ref(tblc,ts),3,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;

-----------------------------------------------
{股票箱---南客}
fh:=high;
fl:=low;
sell:=0*fh;
buy:=sell;
signal:=sell;
boxh:sell,linethick0;
boxl:sell,linethick0;
variable:hc=0,lc=0,bt=fh[1],bb=fh[1];
for i=1 to datacount do begin
  if hc>1 then begin
if lc>2 and bt<=fh then begin
   buy:=1;
   for j=i-1 downto i-hc do begin
      boxh[j]:=fh[i-hc];
      boxl[j]:=fl[i-lc];
   end;
   hc:=0;lc:=0;
end;
if bt>fh then begin
   if lc>2 then begin
      if bb>=fl then begin
      sell:=1;
      for j=i-1 downto i-hc do begin
         boxh[j]:=fh[i-hc];
         boxl[j]:=fl[i-lc];
      end;
      hc:=-1;lc:=0;
      end else begin
      boxh:=fh[i-hc];
      boxl:=fl[i-lc];
      end;
   end;
   hc:=hc+1;
   if lc>1 then begin
      if bb<fl then begin
      lc:=lc+1;
      if lc=3 then begin
         signal[i-hc+1]:=1;
         for j=i downto i-hc+1 do begin
            boxh[j]:=fh[i-hc+1];
            boxl[j]:=fl[i-lc+1];
         end;
      end;
      end else lc:=0;
   end else
   if lc=1 then begin
      if bb<fl then begin
      lc:=lc+1;
      end else lc:=0;
   end;
   if lc=0 and hc>1 then begin
      bb:=fl;
      lc:=lc+1;
   end;
end else begin hc:=0; lc:=0; end;
  end else
  if hc=1 then begin
if bt>fh then
   hc:=hc+1
else begin hc:=0;lc:=0; end;
  end;
  if hc=0 then begin
bt:=fh;
hc:=hc+1;
  end;
end;
partline(boxh and boxh=ref(boxh,1),boxh),coloryellow,pointdot;
partline(boxl and boxl=ref(boxl,1),boxl),coloryellow,pointdot;
stickline((signal||refx(buy||sell,1))&&boxh,boxh,boxl,0.1,0),pointdot,coloryellow;
drawicon(buy,low*0.98,4);
drawicon(sell,high*1.02,5);

------------------------------------------------------------------------------------------------------
2.
{小天風暴---珍藏版}
input:nn(20,2,30),n(6,1,10),m(3,2.8,3.1);
AAA:=CHECKUSER(0);
{MA(C,BARSCOUNT(C));}
周K:=STKINDI(STKLABEL,'kdj.k',0,7),colorred;
周D:=STKINDI(STKLABEL,'kdj.d',0,7),COLORCYAN;
RSV:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
RSV12:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
K12:=SMA(RSV12,3,1);
D12:=SMA(K12,3,1);
J12:=3*K12-2*D12;
RSV24:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
K24:=SMA(RSV24,3,1);
D24:=SMA(K24,3,1);
J24:=3*K24-2*D24;
支撐:IF(CROSS(j,j24),L,REF(L,BARSLAST(CROSS(j,j24)))),COLORYELLOW;
壓力:IF(CROSS(j24,j),H,REF(H,BARSLAST(CROSS(j24,j)))),COLorred;
{以下作背離時研判的RSI值，如上所述}
U2L:=IF(C>=MA(C,NN),80,50);
L2L:=IF(C>=MA(C,NN),50,20);
RH1:=IF(j<U2L AND REF(j,1)>=U2L,HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),
      REF(HHV(REF(H,1),BARSLAST(j>=U2L AND REF(j,1)<U2L)-1),BARSLAST(j<U2L AND REF(j,1))));
RH4:=IF(H>RH1,L,REF(L,BARSLAST(H>RH1)));
RH42:=IF(H>RH1,j,REF(j,BARSLAST(H>RH1)));
強壓:IF(H>RH4 AND j<RH42 AND j<j24,H,REF(H,BARSLAST(H>RH4 AND j<RH42 AND j<j24))),COLORgreen;
RL1:=IF(j>L2L AND REF(j,1)<=L2L,LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),
      REF(LLV(REF(L,1),BARSLAST(j<=L2L AND REF(j,1)>L2L)-1),BARSLAST(j>L2L AND REF(j,1))));
RL4:=IF(L<RL1,H,REF(H,BARSLAST(L<RL1)));
RL42:=IF(L<RL1,j,REF(j,BARSLAST(L<RL1)));
強撐:IF(L<RL4 AND j>RL42 AND j>j24,L,REF(L,BARSLAST(L<RL4 AND j>RL42 AND j>j24))),COLORMAGENTA;
ZF:(c-壓力)*100/壓力,LINETHICK0;
x1:=if(BarsCount(Close)=1 , (Open+High+Low+Close)/4 , Close) , linethick1;
x2:=if(BarsCount(Close)=1 , (Open+Close)/2 , Sma(ref(x1,1),2,1)) , linethick1;
x3:=High , linethick1;
x4:=Low , linethick1;
STICKLINE( x2<x1,x3,x4,0.1,0 ),ColorRed ;
STICKLINE( x2<x1,x1,x2,7,1 ),ColorRed ;
STICKLINE( x2>x1,x3,x4,0.1,0 ),COLORCYAN;
STICKLINE( x2>x1,x1,x2,7,0 ),COLORCYAN;
//Open=Close，價揚，紅色上下影線
StickLine( x2=x1 and x1>=Ref(x1,1),x3,x4,0.1,0),ColorRed ;
//Open=Close，價揚，紅色實體K棒
StickLine( x2=x1 and x1>=Ref( x1,1),x1,x2,7,0),ColorRed ;
//Open=Close，價跌，紅色上下影線
StickLine( x2=x1 and x1<Ref( x1,1),x3,x4,0.1,0),Colorblue ;
//Open=Close，價跌，紅色實體K棒
StickLine( x2=x1 and x1<Ref( x1,1),x1,x2,7,0),Colorblue ;
//第一個交易日open=close的K線，
StickLine( x2=x1 and Barscount(Close),x3,x4,0.1,0),COLORMAGENTA;
StickLine( x2=x1 and Barscount(Close),x2,x1,7,0),COLORMAGENTA;
cb:=amount/v/100;
cd:=cb>h or cb<l;
//STICKLINE(cd<1,cb-0.002,cb+0.002,8,1),COLORYELLOW;
AA:=IF(C>200,182.6,1.826);
BB:=IF(C>200,91.3,0.913);
大下箱:INTPART(c/AA )*AA,pointdot,linethick1,colorcyan,linethick3;
大上箱:大下箱+AA,pointdot,linethick1,colorred,linethick3;
小下箱:INTPART(c/BB )*BB,pointdot,linethick1,colormagenta;
小上箱:小下箱+BB,pointdot,linethick1,COLORYELLOW;
{EXPLAIN(vol>0,STKLABEL);
EXPLAIN(vol>0,STKNAME),colorFF00FF;}
{PARTLINE(1,C*2-ref(C,3)),shift3,LineThick1,COLORGRAY;
wl3:(C*2-ref(C,3)),shift3,LINETHICK1,COLORGREEN;
wl2:(ref(C,1)*2-ref(C,4)),shift2,LINETHICK1,colorred;
wl1:(ref(C,2)*2-ref(C,5)),shift1,LINETHICK1,COLORGRAY;}
Explain(1,STKLABEL+STKNAME+'\n所屬板塊:'+BLKNAME);
AAA:=CHECKUSER(0);
Var1:=(CLOSE+HIGH+LOW)/3;
Var2:=HIGH-LOW;
Var4:=VAR1+VAR2;
Var5:=VAR1-VAR2;
Var6:=2*VAR1-LOW;
Var7:=2*VAR1-HIGH;
【明天最高】:=Var6,shift1;
【明天最低】:=Var7,shift1;
Var9:=ISLASTBAR;
{DRAWTEXT(Var9>0 AND Var1,Var1,' 【明天預測】'),COLORRED,shift1;}
STICKLINE(Var9>0 ,Var4,Var5,0,0 ),COLORYELLOW,shift1;
STICKLINE(Var9>0 ,Var6,Var7,8,0 ),COLORYELLOW,shift1;
{c*1.03,COLORBLACK,shift1;c*0.97,COLORBLACK,shift1;}
{【明天最高】,COLORBLACK,shift1;【明天最低】,COLORBLACK,shift1;}
Var11:=(CLOSE+HIGH+LOW)/3;
Var12:=HIGH-LOW;
Var14:=VAR11+VAR12;
Var15:=VAR11-VAR12;
Var16:=2*VAR11-LOW;
Var17:=2*VAR11-HIGH;
明日轉:=(ref(C,2)*2-ref(C,5)),shift1,LINETHICK1,COLORBLUE;
EXPLAINEX(vol>0,'★★【明天生命】=',明日轉,1,0),COLORWHITE;
EXPLAINEX(vol>0,'【明天最高】=',var14,1,0),COLORYELLOW;
EXPLAINEX(vol>0,'【范圍上限】=',var16,1,0),COLORMAGENTA;
EXPLAINEX(vol>0,'【范圍下限】=',var17,1,0),COLORCYAN;
EXPLAINEX(vol>0,'【明天最低】=',var15,1,0),COLORGREEN;
var1:=splitdata(1)+splitdata(2);
cap:=c;
cap[datacount]:=1;
for i=datacount downto 2 do cap[i-1]:=cap/(1+var1/10);
capi:=cap*capital/100;
hs:=vol/capi,LINETHICK0;
歷史流通盤{萬股}:=capi,LINETHICK0;
ZF:=(h-l)*100/l;
stZF:=(c-o)*100/o;
spZF:=(c-l)*100/l;
stZFb:=stZF/ZF;
spZFb:=spZF/ZF;
最大震幅:=ref(hhv(ZF,5),1);
最小震幅:=ref(llv(ZF,5),1);
xZFb:=ZF/最大震幅;
dZFb:=ZF/最小震幅;
xh臥石透綠:=hs/ref(hhv(hs,4),1);
dh臥石透綠:=hs/ref(llv(hs,4),1);
dy1:=-5*(stZFb>=0.48 and spZFb>0.5 and dZFb>2  and dh臥石透綠>2 and c>o),colorred;
dy2:=-5*(stZFb>=0.8 and dZFb>1.5  and dh臥石透綠>1.5 and c>o),colorred;
dy3:=-5*(stZFb>=0.82 and xZFb>0.9 and dZFb>1.5 and xh臥石透綠>0.9 and dh臥石透綠>1.5 and c>o),colorred;
單陽:=FILTER((dy1 or dy2 or dy3) and 周K>周D,n);
vv:=單陽*l;
ts:=(barslast(單陽>0)+1>=1 and barslast(單陽>0)<=13);
單陽高:=ref(hhv(h,barslast(單陽>0)),1);
單陽攻擊:=cross(c,單陽高) and ts;
強勢攻擊:=if(單陽=1 and 單陽攻擊=1,1,0);
單陽低點:=REF(L,BARSLAST(VV)),COLOR99FF66;
單陽不破:=(ts and l>=單陽低點);
時間:=if(l>=單陽低點,barslast(單陽<0),0);
單陽啟穩(wěn):=(cross(hs,ZF) and c>o and ts );
aa:ma(1.05*h,21),COLORBLUE;
//PARTLINE(x2<x1,aa),LineThick1,colorred;
bb:ma(0.85*l,21),COLORCYAN;
PARTLINE(單陽不破=1,bb),LineThick1,COLORred;
STICKLINE(單陽=1,bb,1.04*bb,0,0),COLORYELLOW;
STICKLINE(單陽=1,bb*1.01,1.03*bb,8,0),COLORYELLOW;
DRAWTEXT(單陽=1 and 周K<50,bb*0.97,'弱'),COLORYELLOW;
{參數:NN= 20, 1, 30,  N= 6, 1,10, M= 3,  2.8, 3.1}
DRAWTEXT(單陽=1 and cross(周K,周D) and 周K<50,bb*1.08,'啟'),COLORYELLOW;
DRAWTEXT(單陽=1 and 周K>50 and 周K<80,bb*0.97,'強'),COLORYELLOW;
DRAWTEXT(單陽=1 and 周K>=80 ,bb*0.97,'沖'),COLORYELLOW;
STICKLINE(單陽啟穩(wěn)=1,bb,bb*1.03,0,0),ColorD36F3E;
STICKLINE(單陽啟穩(wěn)=1,BB*1.02,bb*1.02,8,0),ColorD36F3E;
DRAWTEXT(單陽啟穩(wěn)=1,bb,'穩(wěn)'),ColorD36F3E;
STICKLINE(單陽攻擊=1,BB,BB*1.05,0,1),ColorA400FF;
STICKLINE(單陽攻擊=1,bb*1.01,BB*1.04,8,1),ColorA400FF;
DRAWTEXT(單陽攻擊=1,bb*1.08,'攻'),COLORred;
----------------------------------------------------------------------
3.清揚
{清揚老師}
AA:=REF(H,N)=HHV(H,2*N+1);
AAA:=FILTER(AA,N);
BB:=BACKSET(AAA,N+1);
CC:=FILTER(BB,N);
DRAWICON(CC,H*1.02,10);
AA2:=REF(L,N)=LLV(L,2*N+1);
AAA2:=FILTER(AA2,N);
BB2:=BACKSET(AAA2,N+1);
CC2:=FILTER(BB2,N);
DRAWICON(CC2,L*0.99,11);
DrawIcon(↑Var2,1.01*H,4);
DrawIcon(↓Var2,1.01*L,5);
DRAWLINE(↑Var2,H,↓Var2,L,0),COLORGREEN;
DRAWLINE(↓Var2,L,↑Var2,H,0),COLORRED;
----------------------------------------------------------------------
4.
鉆心蟲--作
{簡單缺口指示源碼，加入主圖指標中，缺口一個也跑不了。缺口是研究K線形態(tài)的重要參考..........
//缺口}
DRAWTEXT(l>REF(H,1),REF(H,1),'←＜'),COLORRED;//上漲缺口
DRAWTEXT(h<REF(L,1),REF(L,1),'←＜'),COLORGREEN;//下跌缺口
---------------------------------------------------------------------
5.
{ＯＡＭＶ活籌指數--飛狐用的指南針ＯＡＭＶ指標}
Var1:=SMA(O*AMOUNT/10000000,10,1);
C0:=INTPART(Var1*1000)/1000;
B1:=REF(C0,1);B2:=REF(C0,2);B3:=REF(C0,3);B4:=REF(C0,4);B5:=REF(C0,5);B6:=REF(C0,6);B7:=REF(C0,7);
B8:=REF(C0,8);B9:=REF(C0,9);B10:=REF(C0,10);B11:=REF(C0,11);B12:=REF(C0,12);B13:=REF(C0,13);B14:=REF(C0,14);
B15:=REF(C0,15);B16:=REF(C0,16);B17:=REF(C0,17);B18:=REF(C0,18);B19:=REF(C0,19);B20:=REF(C0,20);
B21:=REF(C0,21);B22:=REF(C0,22);B23:=REF(C0,23);B24:=REF(C0,24);B25:=REF(C0,25);B26:=REF(C0,26);
B27:=REF(C0,27);B28:=REF(C0,28);B29:=REF(C0,29);B30:=REF(C0,30);B31:=REF(C0,31);B32:=REF(C0,32);
B33:=REF(C0,33);B34:=REF(C0,34);B35:=REF(C0,35);B36:=REF(C0,36);B37:=REF(C0,37);B38:=REF(C0,38);
B39:=REF(C0,39);B40:=REF(C0,40);B41:=REF(C0,41);B42:=REF(C0,42);B43:=REF(C0,43);B44:=REF(C0,44);
B45:=REF(C0,45);B46:=REF(C0,46);B47:=REF(C0,47);B48:=REF(C0,48);B49:=REF(C0,49);B50:=REF(C0,50);
HL:=IF(C0>B1 AND B1>=B2,1,IF(C0<B1 AND B1<=B2,-1,IF(C0>B2 AND B2>B1,2,IF(C0<B2 AND B2<B1,-2,0))));
HG:=IF(B1>B2 AND B1>B3,1,IF(B1<B2 AND B1<B3,-1,IF(B2>B3 AND B2>B4,2,IF(B2<B3 AND B2<B4,-2,
IF(B3>B4 AND B3>B5,3,IF(B3<B4 AND B3<B5,-3,IF(B4>B5 AND B4>B6,4,IF(B4<B5 AND B4<B6,-4,
IF(B5>B6 AND B5>B7,5,IF(B5<B6 AND B5<B7,-5,IF(B6>B7 AND B6>B8,6,IF(B6<B7 AND B6<B8,-6,
IF(B7>B8 AND B7>B9,7,IF(B7<B8 AND B7<B9,-7,IF(B8>B9 AND B8>B10,8,IF(B8<B9 AND B8<B10,-8,
IF(B9>B10 AND B9>B11,9,IF(B9<B10 AND B9<B11,-9,IF(B10>B11 AND B10>B12,10,IF(B10<B11 AND B10<B12,-10,
IF(B11>B12 AND B11>B13,11,IF(B11<B12 AND B11<B13,-11,IF(B12>B13 AND B12>B14,12,IF(B12<B13 AND B12<B14,-12,
IF(B13>B14 AND B13>B15,13,IF(B13<B14 AND B13<B15,-13,IF(B14>B15 AND B14>B16,14,IF(B14<B15 AND B14<B16,-14,
IF(B15>B16 AND B15>B17,15,IF(B15<B16 AND B15<B17,-15,IF(B16>B17 AND B16>B18,16,IF(B16<B17 AND B16<B18,-16,
IF(B17>B18 AND B17>B19,17,IF(B17<B18 AND B17<B19,-17,IF(B18>B19 AND B18>B20,18,IF(B18<B19 AND B18<B20,-18,
IF(B19>B20 AND B19>B21,19,IF(B19<B20 AND B19<B21,-19,IF(B20>B21 AND B20>B22,20,IF(B20<B21 AND B20<B22,-20,
IF(B21>B22 AND B21>B23,21,IF(B21<B22 AND B21<B23,-21,IF(B22>B23 AND B22>B24,22,IF(B22<B23 AND B22<B24,-22,
IF(B23>B24 AND B23>B25,23,IF(B23<B24 AND B23<B25,-23,IF(B24>B25 AND B24>B26,24,IF(B24<B25 AND B24<B26,-24,
IF(B25>B26 AND B25>B27,25,IF(B25<B26 AND B25<B27,-25,IF(B26>B27 AND B26>B28,26,IF(B26<B27 AND B26<B28,-26,
IF(B27>B28 AND B27>B29,27,IF(B27<B28 AND B27<B29,-27,IF(B28>B29 AND B28>B30,28,IF(B28<B29 AND B28<B30,-28,
IF(B29>B30 AND B29>B31,29,IF(B29<B30 AND B29<B31,-29,IF(B30>B31 AND B30>B32,30,IF(B30<B31 AND B30<B32,-30,
IF(B31>B32 AND B31>B33,31,IF(B31<B32 AND B31<B33,-31,IF(B32>B33 AND B32>B34,32,IF(B32<B33 AND B32<B34,-32,
IF(B33>B34 AND B33>B35,33,IF(B33<B34 AND B33<B35,-33,IF(B34>B35 AND B34>B36,34,IF(B34<B35 AND B34<B36,-34,
IF(B35>B36 AND B35>B37,35,IF(B35<B36 AND B35<B37,-35,IF(B36>B37 AND B36>B38,36,IF(B36<B37 AND B36<B38,-36,
IF(B37>B38 AND B37>B39,37,IF(B37<B38 AND B37<B39,-37,IF(B38>B39 AND B38>B40,38,IF(B38<B39 AND B38<B40,-38,
IF(B39>B40 AND B39>B41,39,IF(B39<B40 AND B39<B41,-39,IF(B40>B41 AND B40>B42,40,IF(B40<B41 AND B40<B42,-40,
IF(B41>B42 AND B41>B43,41,IF(B41<B42 AND B41<B43,-41,IF(B42>B43 AND B42>B44,42,IF(B42<B43 AND B42<B44,-42,
IF(B43>B44 AND B43>B45,43,IF(B43<B44 AND B43<B45,-43,IF(B44>B45 AND B44>B46,44,IF(B44<B45 AND B44<B46,-44,
IF(B45>B46 AND B45>B47,45,IF(B45<B46 AND B45<B47,-45,IF(B46>B47 AND B46>B48,46,IF(B46<B47 AND B46<B48,-46,
IF(B47>B48 AND B47>B49,47,IF(B47<B48 AND B47<B49,-47,IF(B48>B49 AND B48>B50,48,IF(B48<B49 AND B48<B50,-48,
0))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))));
MA5:EMA(Var1,5),COLORCYAN;
個股生命線: EMA(Var1,10);
MA34: EMA(Var1,23);
B1,POINTDOT,COLORBLACK;
B2,POINTDOT,COLORBLACK;
STICKLINE(HL=1 OR HG>=1 AND HL=0,B1,C0,5,0),COLORRED;
STICKLINE(HL=-1 OR HG<=-1 AND HL=0,B1,C0,5,0),COLORGREEN;
STICKLINE(HL=2,B2,C0,5,0),COLORRED;
STICKLINE(HL=-2,B2,C0,5,0),COLORGREEN;
STICKLINE((HL=-1 OR HL=-2) AND HG>0,B2,B1,5,0),COLORRED;
STICKLINE((HL=1 OR HL=2) AND HG<0,B2,B1,5,0),COLORGREEN;

------------------------------------------------------------------------

{以下為《證券交易新空間》一書中的全部指標源碼。}

{鱷魚線：}
Var1:=(H+L)/2;
上唇:REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒:REF(SMA(Var1,8,1),5),COLORRED;
下顎:REF(SMA(Var1,13,1),8),COLORBLUE;

{顎魚分形：}
Var1:=(H+L)/2;
上唇1:REF(SMA(Var1,5,1),3),COLORGREEN;
牙齒1:REF(SMA(Var1,8,1),5),COLORRED;
下顎1:REF(SMA(Var1,13,1),8),COLORBLUE;
Var1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
Var2:=CROSS(Var1,0.9);
Var3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
Var4:=CROSS(Var3,0.9);
drawicon(Var2,HIGH*1.01,4),Color00E40E;
drawicon(Var4,LOW*0.99,5),Color00E40E;
Var5:=IF(Var2,HIGH,IF(Var4,LOW,0));
Var6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
Var7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
Var8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
Var9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VarA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VarB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
上向分形: REF(HIGH,BARSLAST(Var2)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2)),REF(HIGH,BARSLAST(Var2)),5,0),COLORMAGENTA;
向下分形: REF(LOW,BARSLAST(Var4)), POINTDOT,Color3791B5;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4)),REF(LOW,BARSLAST(Var4)),5,0),COLORYELLOW;

{AO：}
Var1:=(H+L)/2;
AO:SMA(Var1,5,1)-SMA(Var1,34,1),COLOR6699CC;
STICKLINE(AO>=REF(AO,1),0,AO,6,1),COLORRED;
STICKLINE(AO<=REF(AO,1),0,AO,6,1),COLORGREEN;
AO,COLOR000000;

{AC：}
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:SMA((AO-SMA(AO,5,1)),5,1),COLOR6699CC;
STICKLINE(AC>=REF(AC,1),0,AC,6,1),COLORRED;
STICKLINE(AC<=REF(AC,1),0,AC,6,1),COLORGREEN;
AC,COLOR000000;

{區(qū)域：}
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:=SMA((AO-SMA(AO,5,1)),5,1);
AO>REF(AO,1) AND AC>REF(AC,1),COLORRED;
AO<REF(AO,1) AND AC<REF(AC,1),COLORGREEN;
AO>REF(AO,1) AND AC<REF(AC,1),COLORGRAY;
AO<REF(AO,1) AND AC>REF(AC,1),COLORGRAY;

{OSC：}
Var1:=(H+L)/2;
AO:=SMA(Var1,5,1)-SMA(Var1,34,1);
AC:=SMA((AO-SMA(AO,5,1)),5,1);
AO>REF(AO,1) AND AC>REF(AC,1),COLORRED;
AO<REF(AO,1) AND AC<REF(AC,1),COLORGREEN;
AO>REF(AO,1) AND AC<REF(AC,1),COLORGRAY;
AO<REF(AO,1) AND AC>REF(AC,1),COLORGRAY;

----------------------------------------------------------------------
真正全套混沌操作法源碼全公布！（飛狐版）——感謝原作者提供！

所有公式均為本人在網上收集所得并按書上內容請人做過小幅修改，經過反復對照，已與”投資者之夢“軟件使用效果相當?？偟脕碚f是這是一套有獲利潛能的方法，但請各位朋友切記一點，任何方法都只是一種武器，武器的好壞固然有別，可關鍵要看用的人是誰。（若您覺得指標哪里稍有不符，可自行修。）

以下為《證券混沌操作法——低風險獲利指南》一書中的全部指標源碼。

1.分形圖：
Var1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
Var2:=CROSS(Var1,0.9);
Var3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
Var4:=CROSS(Var3,0.9);
STICKLINE(Var2,HIGH,HIGH*1.01,5,0),Color00E40E;
STICKLINE(Var4,LOW,LOW*0.99,5,0),Color00E40E;
Var5:=IF(Var2,HIGH,IF(Var4,LOW,0));
POLYLINE(Var5,Var5),Colorff00ff;
Var6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
Var7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
Var8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
Var9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VarA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VarB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
堅定: STICKLINE(CROSS(Var6,0.9),HIGH,HIGH*1.01,5,0),Color0000FF;
STICKLINE(CROSS(Var9,0.9),LOW,LOW*0.99,5,0),Color0000FF;
猶豫: STICKLINE(CROSS(Var7,0.9),HIGH,HIGH*1.01,5,0),Color00E5E9;
STICKLINE(CROSS(VarA,0.9),LOW,LOW*0.99,5,0),Color00E5E9;
等待: STICKLINE(CROSS(Var8,0.9),HIGH,HIGH*1.01,5,0),ColorFF4100;
STICKLINE(CROSS(VarB,0.9),LOW,LOW*0.99,5,0),ColorFF4100;
壓力: REF(HIGH,BARSLAST(Var2)), POINTDOT,ColorEA91B5;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(Var2)),REF(HIGH,BARSLAST(Var2)),5,0),ColorEA91B5;
支撐: REF(LOW,BARSLAST(Var4)), POINTDOT,Color3791B5;
STICKLINE(CLOSE,REF(LOW,BARSLAST(Var4)),REF(LOW,BARSLAST(Var4)),5,0),Color3791B5;

現(xiàn)價:CLOSE,POINTDOT,Color000F89;

2.{MFI：
參數名：N    14 2 300}
TYP := (HIGH + LOW + CLOSE)/3;
SUM(IF(TYP>REF(TYP,1),TYP*VOL,0),N)/SUM(IF(TYP<REF(TYP,1),TYP*VOL,0),N)

3.{MACD：}
ma(c,5)-ma(c,34) COLORSTICK ;
ma(ma(c,5)-ma(c,34),5);
s:=EMA((ma(c,5)-ma(c,34)),3);
s1:=s<ref(s,1)and s>0;
s2:=s<ref(s,1)and s<0;
STICKLINE(s>=0,0,s,8,1),COLORRED;
STICKLINE(s1,0,s,5,0),COLOR00ffff;
STICKLINE(s2,0,s,4,0),COLORffffff;

4.{四種視窗：}
MFI:(H-L)*100000/V;
MA5:MA(MFI,5);
A1:MFI>=REF(MFI,1)*1.1 AND V>=REF(V,1)*1.1;
A2:MFI<=REF(MFI,1)*0.9 AND V<=REF(V,1)*0.9;
A3:MFI>=REF(MFI,1)*1.1 AND V<=REF(V,1)*0.9;
A4:MFI<=REF(MFI,1)*0.9 AND V>=REF(V,1)*1.1;
DRAWTEXT(A2,4,'衰退'),linethick3;
DRAWTEXT(A1,1,'綠燈'),linethick3;
DRAWTEXT(A3,3,'偽裝'),linethick3;
DRAWTEXT(A4,2,'蟄伏'),linethick3;
0.1