《第十六樓》

目錄索引：

待整理.........



QUOTE:
701.問:
      請按年四個價格寫成k線
    答(yngs):
        第一個公式:
      公式名:四個價格
      c1:C;
      o1:O;
      h1:H;
      l1:L;

        第二個公式:
      年K線

     STICKLINE("四個價格.c1#YEAR">"四個價格.o1#YEAR","四個價格.o1#YEAR","四個價格.c1#YEAR",6,0)COLORRED;
     STICKLINE("四個價格.c1#YEAR">"四個價格.o1#YEAR","四個價格.h1#YEAR","四個價格.l1#YEAR",1,0)COLORRED;
     STICKLINE("四個價格.c1#YEAR"<"四個價格.o1#YEAR","四個價格.o1#YEAR","四個價格.c1#YEAR",6,0)COLORGREEN;
     STICKLINE("四個價格.c1#YEAR"<"四個價格.o1#YEAR","四個價格.h1#YEAR","四個價格.l1#YEAR",1,0)COLORGREEN;




QUOTE:
702.問:
      以下是我編寫公式，請高手們看看。

      HH1:=MAX(OPEN,CLOSE);{高價}
      LL1:=MIN(OPEN,CLOSE);{底價}
      A1:=REF(HH1,3)=HHV(HH1,2*3+1);
      B1:=FILTER(A1,3);
      C1:=BACKSET(B1,3+1);
      HD:FILTER(C1,3);{高點}
      A2:=REF(LL1,3)=LLV(LL1,2*3+1);
      B2:=FILTER(A2,3);
      C2:=BACKSET(B2,3+1);
      LD:FILTER(C2,3);{底點}
      H1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
      HA1:=H1>REF(H1,1);{高點}
      CC:=REF(HH1,BARSLAST(HA1));
      DRAWNUMBER(HA1,H*1.01,CC,2);
      VARIABLE:WW[20]=0;{在此我申請了一數(shù)組}
      WW[1]:=CC;{在此處為什么不能賦值給這個數(shù)組呢}

      系統(tǒng)提示要賦單值數(shù)據(jù)，這是為什么？？？？？？  
     答(hx817):
       這里的 CC 是一個序列值



QUOTE:
703.問:
      當滿足條件，即從這一股價為起點向右延伸水平直線能編嗎
     答(南客):
      參考下面的函數(shù)，斜率為0時即為水平直線：

      別名: 畫斜線
      所屬類別: 繪圖函數(shù)  參數(shù)數(shù)量: 5

      在圖形上繪制指定斜率、長度和方向的直線。
      用法:
      DRAWSL(COND,PRICE,SLOPE,LEN,D)
      當COND條件滿足時,以PRICE位置為起點繪制斜率為每個周期價差SLOPE,長度為LEN周期的直      線,LEN為0則無限延伸,D為1、2分別表示從起點向左、雙向繪制,其余表示向右繪制。
      例如:
      DRAWSL(low=llv(low,50),low,(refx(low,5)-low)/5,5,1)



QUOTE:
704.問:
      如何引用獲利盤比例在6O、3O、15、5、分鐘起作用的公式編制？
    答(南客):
      參考stkindi()函數(shù)的用法



QUOTE:
705.問:
      想編寫一個公式，就是要求選出當天收盤價低于30天均線的股票
    答(hx817):
      tj:c<ma(c,30)  



QUOTE:
706.問:
      請教歷史最高點和歷史最低點的位置和價格如何定位?
      要求只顯示一個歷史最高點和歷史最低點,并區(qū)分最高點在前(或最高點在后).
     答(南客):
      以高點為例，試試：

      hh0:=hhv(high,0);//歷史高價
      hh:hh0[datacount];//最后一天看，歷史高價

      tsh0:=barslast(high=hh);//高點位置
      tsh:=tsh0[datacount];//最后一天的高點位置
      drawicon(barpos=datacount-tsh,high,10);//標記



QUOTE:
707.問:
      怎么求一段時間內(nèi)的最低點那點的的價格和時間。
      我想把他們求出來之后來編寫公式用。
      價格好象是LLV的，那時間呢？？
      最好時間出來后以距離現(xiàn)在的交易日數(shù)N來表示
    答(bajatje):
      LLvbars(L,N);  



QUOTE:
708.問:
       今天開盤價是最低價的陽線。必須是開盤價低于昨天的收盤價。昨天是陰線。
     答(bajatje):
       f:=c/ref(c,1);
       o=L and ref(f,1)<1  and o<ref(c,1) and c>o;



QUOTE:
709.問:
      如何編寫引用60分鐘的獲利盤比例的公式
    答(lhl311):
      先建一個輔助指標：
       W：WINEER(c)*100;
      再引用：
       W60:“w.w#min60";
      就可以了。



QUOTE:
710.問:
      找一下機構(gòu)時代中的薛斯通道飛狐版
     答(lhl311):
      {薛斯通道}
      v1:=ma(HIGH,30)*1.15 ;
      v2:=ma(HIGH,3)*1.03;
      v3:=ma(LOW,3)*0.97;
      v4:=ma(LOW,30)*0.85;
      {v5}大通道上:fft(v1,30);
      {v6}小通道上:fft(v2,30);
      {v7}小通道下:fft(v3,30);
      {v8}大通道下:fft(v4,30);
      A1:=大通道上-REF(大通道上,1);
      A2:=小通道上-REF(小通道上,1);
      A3:=小通道下-REF(小通道下,1);
      A4:=大通道下-REF(大通道下,1);
      PARTLINE(A1>0,大通道上) LINETHICK2 COLORRED;
      PARTLINE(A1=0,大通道上) LINETHICK1 COLORWHITE;
      PARTLINE(A1<0,大通道上) LINETHICK1 COLORGREEN;
      PARTLINE(A2>0,小通道上) LINETHICK2 COLORRED;
      PARTLINE(A2=0,小通道上) LINETHICK1 COLORWHITE;
      PARTLINE(A2<0,小通道上) LINETHICK1 COLORGREEN;
      PARTLINE(A3>0,小通道下) LINETHICK2 COLORRED;
      PARTLINE(A3=0,小通道下) LINETHICK1 COLORWHITE;
      PARTLINE(A3<0,小通道下) LINETHICK1 COLORGREEN;
      PARTLINE(A4>0,大通道下) LINETHICK2 COLORRED;
      PARTLINE(A4=0,大通道下) LINETHICK1 COLORWHITE;
      PARTLINE(A4<0,大通道下) LINETHICK1 COLORGREEN;





QUOTE:
711.問:
      公式名稱：A指數(shù)kdj副圖
      公式類型：技術(shù)指標
      顯示區(qū)域：副圖
      公式思路：方便看個股是否與大盤同步，以及編寫短線組合條件的條件之一。
      公式結(jié)果：在打開個股圖形時顯示A指數(shù)KDJ副圖。  
     答(yngs):
      RSV:=(INDEXC-LLV(INDEXL,N))/(HHV(INDEXH,N)-LLV(INDEXL,N))*100;
      K:SMA(RSV,M1,1);
      D:SMA(K,M2,1);
      J:3*K-2*D;



QUOTE:
712.問:
      寫個公式：一月漲跌幅。二月漲跌幅。直到12月漲跌幅。（注：一定月分對月分）。
     答(hx817):
        1. 建立一個漲幅公式 aaa
      漲幅:100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
        2.另外建立一個公式調(diào)用
      "aaa.漲幅#MONTH"



QUOTE:
713.問:
      我想對分時圖中橫盤一段時間后向上突破的形態(tài)編寫一個選股公式，使用一分鐘周期

      hh:=hhv(h,60);//指定箱體頂部，箱體長度為60分鐘
      ll:=llv(l,60);//箱體底部
      zs:=dynainfo(3);//昨日收盤價，可能不能引用動態(tài)函數(shù)，但不知其它方法如何引用
      zf:=(hh-ll)/ll<=0.022;//箱體高度為2。2%
      kk:=hh/zs<1.055//箱體頂部不能超過5。5%漲幅 （與昨日收盤價相比）
      and ll/zs>=0.085 //箱體的底部不能低于1。5%的跌幅
      and hh=dynainfo(5);//箱體的頂部價格為現(xiàn)在的最高價
      tp:=c>hh ;//價格突破
      zf and tp// and kk//選出個股
        但是在盤中對符合條件的個股未能選出來
     答(hx817):
        前面兩個條件參考
         hh:=hhv(ref(h,1),60);//指定箱體頂部，箱體長度為60分鐘
         ll:=llv(ref(l,1),60);//箱體底部
         zf:=(hh-ll)/ll<=0.022;//箱體高度為2。2%
         tp:=c>hh ;//價格突破,既然突破，最新價格就必須在 hhv(h,60)之外
         zf and tp// and kk//選出個股
        (zs:=dynainfo(3);//昨日收盤價，可能不能引用動態(tài)函數(shù)，但不知其它方法如何引用
         可以調(diào)用另外一個公式來取得 )  
         zs:"ohlc.fc#day";
         公式 ohlc 為:
          fc:c;



QUOTE:
714.問:
      這是一個針對一分鐘K線圖編寫的箱體突破公式，語法沒錯就是符合要求的股不能選出？
      hh:=hhv(h,60);
      ll:=llv(l,60);
      zs:=dynainfo(3);
      zf:=(hh-ll)/ll<=0.022;
      kk:=hh/zs<1.055 and ll/zs>=0.015 and hh=dynainfo(5);
      tp:=c>hh and c/zs>1.03;
      cjl:=v>1.5*ma(v,60);
      zf and tp and cjl and kk  
     答(bajatje):
      最后一句改為
      hhv(zf and tp and cjl and kk,0);  
      每天在有盤后選  稍改一下  0改為240   



QUOTE:
715.問:
      1.計算兩個時間中間的有效交易k線天數(shù)。如（2002年8月10日－2003年6月10）日
        之間的有效交易k線天數(shù)，去除節(jié)假日和星期天。
      2,以2002年8月10日為起始日，向后第一百天的位置畫豎線，和顯示文字。

     答(hx817):
      參考
      BARSLAST(date=1020809)-BARSLAST(date=1030610);//計算2002.8.9到2003.6.10之間交易
      日
      tj:=BARSLAST(date=1020809)=100;//從2002.8.9以后100天
      VERTLINE(tj);//畫豎線
      DRAWTEXT(tj,c,'時間到');//寫文字



QUOTE:
716.問:
      請幫助編寫一個簡單的條件選股公式，先謝了！
      今日以前20個交易日內(nèi)收盤價都低于20日均價，
      今日K線第一次上穿20日均線。（或今日收盤價第一次大于或等于20日均價）

    答(bajatje):
      LONGCROSS(c,ma(c,20),20);



QUOTE:
717.問:
      我安裝了 一目均衡表 的飛狐公式 但是有個問題 就是K線 在一目均衡表的
      云里的時候被 云當住了看不到 請問如何改公式 才能不被云遮 住
    答(bajatje):
重寫K線公式 放到該公式的最后



QUOTE:
718.問:
關(guān)于乾坤燭的問題
     答(南客):
根據(jù)該狐友提供算法，大致如下：
if datatype<>0 then begin
  drawtext(islastbar,0,'只能運行在分筆周期！\n \n請切換到分筆周期??！'),align2;
  exit;
end;
fv:=vol;
fc:=close;
fcp:=fc;
a:=sortpos(fcp,0,1,datacount);
fvmax:=0; fvmaxp:=1; fvtemp:=fv[fcp[1]];
if datacount>1 then begin
  for i=2 to datacount do
    if fc[fcp]=fc[fcp[i-1]] then fvtemp:=fvtemp+fv[fcp]
    else begin
      if fvmax<fvtemp then begin
        fvmax:=fvtemp;
        fvmaxp:=i-1;
      end;
      fvtemp:=fv[fcp];
    end;
  if fvmax<fvtemp then begin
    fvmax:=fvtemp;
    fvmaxp:=i-1;
  end;
end;

svmin:=0; svminp:=fv[fcp[1]]; svmax:=0; svmaxp:=fv[fcp[1]];
for i=1 to datacount do begin
  svmin:=svmin+fv[fcp];
  if svmin>=dynainfo(8)/6 then begin
    svminp:=i;
    break;
  end;
end;
for i=datacount downto 1 do begin
  svmax:=svmax+fv[fcp];
  if svmax>=dynainfo(8)/6 then begin
    svmaxp:=i;
    break;
  end;
end;
集聚點:fc[fcp[fvmaxp]];
活躍上限:fc[fcp[svmaxp]];
活躍下限:fc[fcp[svminp]];
基本公式大致就是這樣了，至于如何引用到日線的K線圖，需要自行在擴展數(shù)據(jù)庫定義
   答(南客):
直接引用分筆周期的公式的話，只能引用一天：
tj:=close>open or close=open and ref(close,1)>close;
jjd:stkindi('','qksj.聚焦點',0,0);
hyxx:=stkindi('','qksj.活躍下限',0,0);
hysx:=stkindi('','qksj.活躍上限',0,0);

stickline(tj,h,l,0,0),colorred;
stickline(tj,c,o,8,0),colorred;

stickline(not(tj),h,l,0,1),colorgreen;
stickline(not(tj),c,o,8,1),colorgreen;

stickline(1,hysx,hyxx,3,1),colorblue;
drawicon(1,jjd,10),align0;
開:open,linethick0;
高:high,linethick0;
收:close,linethick0;
低:low,linethick0;
聚焦點:jjd,linethick0;
活躍下限:hyxx,linethick0;
活躍上限:hysx,linethick0;



QUOTE:
719.問:
如何讓電腦自動解盤顯視當日的漲跌幅？
     答(hx817):
振幅:=100*(HIGH-LOW)/REF(CLOSE,1);
漲幅:=100*(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);
EXPLAINEX(1,'今日振幅為：%f ％',振幅,2,1);
EXPLAINEX(1,'今日漲幅為：%f ％',漲幅,2,1);



QUOTE:
720.問:
請問,如果出現(xiàn)信號是在今天K線上，還是在N天前的K線上
ref(h,n）=llv(h,2*n+1)//
     答(hx817):
      應(yīng)該是出現(xiàn)信號那天，前 n 天最高價格等于前 2*n+1 天內(nèi)最高價格的最低值




QUOTE:
721.問:
      llv(h,2*n+1)//是最低價格的最高值,還是最高假價的最低值?
    答(yngs):
      llv(h,2*n+1)//2*n+1周期內(nèi)h的最低值



QUOTE:
722.問:
      這是網(wǎng)上的"江恩時間窗"五彩Ｋ線公式:
c>o,colorred;
c<o,colorblue;
c=o and c<ref(c,1),colorblue;
c=o and c>ref(c,1),colorred;
c=o and c=ref(c,1),colorwhite;
FILTER(BACKSET(islastbar,13),12),colorgreen;
FILTER(BACKSET(islastbar,12),11),colorgreen;
FILTER(BACKSET(islastbar,11),10),colorgreen;
FILTER(BACKSET(islastbar,10),9),colorgreen;
FILTER(BACKSET(islastbar,9),8),colorgreen;
FILTER(BACKSET(islastbar,8),7),colorgreen;
FILTER(BACKSET(islastbar,22),21),colorgreen;
FILTER(BACKSET(islastbar,21),20),colorgreen;
FILTER(BACKSET(islastbar,20),19),colorgreen;
FILTER(BACKSET(islastbar,19),18),colorgreen;
FILTER(BACKSET(islastbar,32),31),colorgreen;
FILTER(BACKSET(islastbar,31),30),colorgreen;
FILTER(BACKSET(islastbar,30),29),colorgreen;
FILTER(BACKSET(islastbar,29),28),colorgreen;
FILTER(BACKSET(islastbar,50),49),colorgreen;
FILTER(BACKSET(islastbar,49),48),colorgreen;
FILTER(BACKSET(islastbar,48),47),colorgreen;
FILTER(BACKSET(islastbar,47),46),colorgreen;
FILTER(BACKSET(islastbar,46),45),colorgreen;
FILTER(BACKSET(islastbar,45),44),colorgreen;
FILTER(BACKSET(islastbar,44),43),colorgreen;
FILTER(BACKSET(islastbar,43),42),colorgreen;
FILTER(BACKSET(islastbar,66),65),colorgreen;
FILTER(BACKSET(islastbar,65),64),colorgreen;
FILTER(BACKSET(islastbar,64),63),colorgreen;
FILTER(BACKSET(islastbar,63),62),colorgreen;
FILTER(BACKSET(islastbar,62),61),colorgreen;
FILTER(BACKSET(islastbar,61),60),colorgreen;
FILTER(BACKSET(islastbar,60),59),colorgreen;
FILTER(BACKSET(islastbar,59),58),colorgreen;
FILTER(BACKSET(islastbar,58),57),colorgreen;
FILTER(BACKSET(islastbar,93),92),colorgreen;
FILTER(BACKSET(islastbar,92),91),colorgreen;
FILTER(BACKSET(islastbar,91),90),colorgreen;
FILTER(BACKSET(islastbar,90),89),colorgreen;
FILTER(BACKSET(islastbar,89),88),colorgreen;
FILTER(BACKSET(islastbar,88),87),colorgreen;
FILTER(BACKSET(islastbar,87),86),colorgreen;
FILTER(BACKSET(islastbar,86),85),colorgreen;
FILTER(BACKSET(islastbar,121),120),colorgreen;
FILTER(BACKSET(islastbar,120),119),colorgreen;
FILTER(BACKSET(islastbar,119),118),colorgreen;
FILTER(BACKSET(islastbar,118),117),colorgreen;
FILTER(BACKSET(islastbar,117),116),colorgreen;
FILTER(BACKSET(islastbar,116),115),colorgreen;
FILTER(BACKSET(islastbar,115),114),colorgreen;
FILTER(BACKSET(islastbar,114),113),colorgreen;
FILTER(BACKSET(islastbar,113),112),colorgreen;
FILTER(BACKSET(islastbar,158),157),colorgreen;
FILTER(BACKSET(islastbar,157),156),colorgreen;
FILTER(BACKSET(islastbar,156),155),colorgreen;
FILTER(BACKSET(islastbar,155),154),colorgreen;
FILTER(BACKSET(islastbar,154),153),colorgreen;
FILTER(BACKSET(islastbar,153),152),colorgreen;
FILTER(BACKSET(islastbar,152),151),colorgreen;
FILTER(BACKSET(islastbar,151),150),colorgreen;
FILTER(BACKSET(islastbar,186),185),colorgreen;
FILTER(BACKSET(islastbar,185),184),colorgreen;
FILTER(BACKSET(islastbar,184),183),colorgreen;
FILTER(BACKSET(islastbar,183),182),colorgreen;
FILTER(BACKSET(islastbar,182),181),colorgreen;
FILTER(BACKSET(islastbar,181),180),colorgreen;
FILTER(BACKSET(islastbar,180),179),colorgreen;
FILTER(BACKSET(islastbar,179),178),colorgreen;
FILTER(BACKSET(islastbar,178),177),colorgreen;
FILTER(BACKSET(islastbar,177),176),colorgreen;
FILTER(BACKSET(islastbar,176),175),colorgreen;
可以編寫在日線K線圖上同時顯示日線和周線的指標嗎?請施教.
不用五彩線可以表示嗎?

    答(南客):
主圖疊加公式：時間周期線示例代碼
input:n(5,5,100);//參數(shù)定義
zig(1,n);//高點
ff:=PEAKBARS(1,n,1);
ff:=if(ff<6,PEAKBARS(1,n,2),ff);
barst:=sysparam(1);
variable:zq[序列數(shù)據(jù)量/2]:=1.236;
zq[2]:=1.309;zq[3]:=1382;zq[4]:=1.5;
zq[5]:=1.618;zq[6]:=1.746;zq[7]:=2;zq[8]:=2.618;
zq[9]:=3;zq[10]:=3.236;zq[11]:=4.236;zq[12]:=5.236;//周期線間隔比例，可另行定義
tj:=ff[barst]=barst-barpos;
for i=1 to 12 do tj:=tj or barpos-barst=round((zq-1)*ff[barst]+0.5);
VERTLINE(tj),POINTDOT,COLORMAGENTA;
必須打開十字光標才可以正常使用。自動尋找高點，可另加參數(shù)，改成高低點兩用。
　　公式含義：當K線與高點的時間間隔為十字光標與高點的時間間隔的等于指定比例時，顯示豎線。即所謂的時間預(yù)測，如果您有好的測試方法，可以仿此代碼編制。
　　這段代碼，進行適當?shù)母脑?，可以向未來延伸，有興趣的可以自行研究（提示：使用shift函數(shù)）。



QUOTE:
723.問:
      編個K線選股公式，條件如下：
      1.股價均線成多頭排列順序依次是５，１０，２２，４２及５５日［均線距離越近越好］．
      2.股價上漲一段時間后［漲幅小于１０％最好］后回調(diào)，股價回調(diào)到４２日均線處
      ［如破４２日均線，則必須在３日內(nèi)返回到４２日均線之上］止跌，又重新開始上漲．
    答(閑人):
       {N:3   1   5}
tj1:=ma(c,5)>ma(c,10) and ma(c,10)>ma(c,22) and ma(c,22)>ma(c,2) and
(ma(c,5)-ma(c,42)) AND ma(c,42)<n;
tj2:=(ref(c,1)<=ma(c,42)*1.02 and c>ma(c,42)*1.02) or
ref(c,1)<=ma(c,42) and c>ma(c,42);
BARSLAST(tj1)>4 and tj2;



QUOTE:
724.問:
      下列 FXJ 5.0 公式改成飛狐公式  

if DISPSTATUS=2 then begin
a1:=hhvbars(v,n);
if a1>0 then begin
hh:=ref(h,a1);
ll:=ref(l,a1);
stickline(1,hh,hh,500,0);
stickline(1,ll,ll,500,0);
end;
end;  

    答(jsyjsybt):

A1:=HHVBars(V,N);
HH:=Ref(H,a1);
LL:=Ref(L,a1);
最高:Stickline(IsLastBar,HH,HH,500,0),Colorred;
最低:Stickline(IsLastBar,LL,LL,500,0),Colorgreen;



QUOTE:
725.問:
      如何編寫將同在漲幅和現(xiàn)手前20位的股票選出的公式
    答(bajatje):
      南客老師的帖

橫向排序：
//本公式輸出結(jié)果，請在解盤中查看，由于大量引用了其它指標，因此運算時間會稍長

bk:='A股板塊'; //bk賦值為字符串'A股板塊'
yygs:='macd.diff';//引用的指標，此處可修改為引用其它的指標

stksum:=STKCOUNT(bk); //板塊所包含證券數(shù)量
dcount:=datacount; //K線圖上，最后一根K線的位置
variable:dmstr[stksum]='',var_px[stksum]=0,var_indi[stksum]=0;  //定義一個字符串數(shù)組用于記錄股票代碼，元素個數(shù)為stksum,初始值為空
for k=1 to stksum do  //以下循環(huán),循環(huán)計數(shù)器k從1開始每次遞增1，直到stksum
begin
    dm:=stkfromblk(bk,k);//板塊bk中第k只證券的證券代碼,賦值到字符串變量dm
    dmstr[k]:=dm;  //股票代碼，記錄到字符串數(shù)組dmstr的第k個元素中
    temp1:=stkindi(dm,yygs,0,-1);  //引用其它個股的指標
    var_px[k]:=temp1[dcount];  //記錄最后一個周期的指標值，此處可以使用參數(shù)，以便得到其它周期的排序
    var_indi[k]:=temp1[dcount];  //同上，但準備用于記錄排序后的位置
end;

Num1:=sortpos(var_indi,1,1,stksum);  //計算排序后，按大小排列的位置
dm_max1:=var_indi[1];  //最大值的對應(yīng)位置
dm_max2:=var_indi[2];  //次大值的對應(yīng)位置
dm_max3:=var_indi[3];
dm_max4:=var_indi[4];
dm_max5:=var_indi[5];
dm_max6:=var_indi[6];
dm_min1:=var_indi[stksum];  //最小值的對應(yīng)位置
dm_min2:=var_indi[stksum-1];

max1:=var_px[dm_max1];
max2:=var_px[dm_max2];
max3:=var_px[dm_max3];
max4:=var_px[dm_max4];
max5:=var_px[dm_max5];
max6:=var_px[dm_max6];
min1:=var_px[dm_min1];
min2:=var_px[dm_min2];

explain(islastbar,yygs+'前6名:'),colorred;
EXPLAINex(islastbar,'1:'+dmstr[dm_max1]+STKNAMEEX(dmstr[dm_max1])+':',max1,2,0),colorred;
EXPLAINex(islastbar,'2:'+dmstr[dm_max2]+STKNAMEEX(dmstr[dm_max2])+':',max2,2,0),colorred;
EXPLAINex(islastbar,'3:'+dmstr[dm_max3]+STKNAMEEX(dmstr[dm_max3])+':',max3,2,0),colorred;
EXPLAINex(islastbar,'4:'+dmstr[dm_max4]+STKNAMEEX(dmstr[dm_max4])+':',max4,2,0),colorred;
EXPLAINex(islastbar,'5:'+dmstr[dm_max5]+STKNAMEEX(dmstr[dm_max5])+':',max5,2,0),colorred;
EXPLAINex(islastbar,'6:'+dmstr[dm_max6]+STKNAMEEX(dmstr[dm_max6])+':',max6,2,1),colorred;

explain(islastbar,yygs+'后2名:'),colorgreen;
EXPLAINex(islastbar,'2:'+dmstr[dm_min2]+STKNAMEEX(dmstr[dm_min2])+':',min2,2,0),colorgreen;
EXPLAINex(islastbar,'1:'+dmstr[dm_min1]+STKNAMEEX(dmstr[dm_min1])+':',min1,2,0),colorgreen;
   答(bajatje):
      另一方法
建公式
F:DYNAINFO(14);
S:DYNAINFO(9);
然后　將Ｆ、Ｓ分別加入擴展數(shù)據(jù)中　注意：要鉤選　生成橫向排名數(shù)據(jù)
再列公式調(diào)用



QUOTE:
726.問:
      股價回補 上下的 跳空缺口的公式
   答(bajatje):
      ws:=barslast(L>ref(h,1));
      L<ref(h,ws+1);

      wx:=barslast(h<ref(L,1));
      h>ref(L,ws+1);



QUOTE:
727.問:
      要編譯一個主圖指標，
      由30根不同價格的橫線組成，其畫面會隨k線的價位大小自動調(diào)整，猶如MA均線一樣，
    答(bajatje):
      方法
a:=條件;
a0:a[datacount];
a1:a[datacount]-k1;
a2:a[datacount]-k2;
a3:a[datacount]-k3;//k1,k2,k3....間隔值



QUOTE:
728.問:
      0amv 主圖 飛狐如何能做出來？看見別人在用  有K線的
    答(hx817):
Var1:=SMA(AMOUNT,10,1)/1000000;
Var2:=REF(Var1,1);
Var3:=MA(REF(CLOSE,1),5);
收盤:Var1*CLOSE/Var3*1/10,COLOR009900,LINETHICK0,POINTDOT;
開盤:Var1*OPEN/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
最高:Var1*HIGH/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
最低:Var1*LOW/Var3*1/10,POINTDOT,COLOR009900,LINETHICK0;
生命線:EMA(收盤,12),COLORCYAN;
昨收盤:=REF(收盤,1),POINTDOT,COLOR009900,LINETHICK0;
漲跌:=(收盤-REF(收盤,1))/REF(收盤,1)*100,POINTDOT,COLOR009900,LINETHICK0;
STICKLINE(收盤>開盤,收盤,開盤,5,0),COLORRED;
STICKLINE(收盤>開盤,最高,MAX(收盤,開盤),0,1),COLORRED;
STICKLINE(收盤>開盤,MIN(收盤,開盤),最低,0,1),COLORRED;
STICKLINE(收盤<開盤,收盤,開盤,5,0),COLORGREEN;
STICKLINE(收盤<開盤,最高,MAX(收盤,開盤),0,1),COLORGREEN;
STICKLINE(收盤<開盤,MIN(收盤,開盤),最低,0,1),COLORGREEN;



QUOTE:
729.問:
      我想把a5和a6合成一根線，當慢ＫＤ金叉時畫a6，當慢ＫＤ死叉時畫a5．．
a1:=IF(BARSLAST(LLV(LOW,3)< REF(LLV(LOW,3),1))>1,LLV(LLV(LOW,3),BARSLAST(LLV(LOW,3)< REF(LLV(LOW,3),1))),LLV(LOW,3));
a2:= IF(BARSLAST(hhV(h,  3)> REF(hhV(h,  3),1))<1,hhV(hhV(h,  3),BARSLAST(hhV(h,3)  > REF(hhV(h,3),  1))),  hhV(h,3));
a3:=LLV(LOW,n);
a4:=hhv(h,n);
a5:=if(a3>a4,a3,0);
a6:=if(a3<a4,a3,0);

{慢ＫＤ}
rSV:= (CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
FASTK:=SMA(RSV,3,1);
K:=SMA(FASTK,3,1);
D:=SMA(K,5,1);
b1:=cross(k,d);
b2:=cross(d,k);
AO:=MA(c ,5 )-MA(c ,34 );
AC:=AO-MA( AO,5);
ac1:=ref(AC,1);
ao1:=ref(ao,1);

KAC:IF( b1,a3,a4);
KAO:IF(b2,a4,a3);

    答(yngs):
a1:=IF(BARSLAST(LLV(LOW,3)< REF(LLV(LOW,3),1))>1,LLV(LLV(LOW,3),BARSLAST(LLV(LOW,3)< REF(LLV(LOW,3),1))),LLV(LOW,3));
a2:= IF(BARSLAST(hhV(h,  3)> REF(hhV(h,  3),1))<1,hhV(hhV(h,  3),BARSLAST(hhV(h,3)  > REF(hhV(h,3),  1))),  hhV(h,3));
a3:=LLV(LOW,n);
a4:=hhv(h,n);
a5:=if(a3>a4,a3,0);
a6:=if(a3<a4,a3,0);

{慢ＫＤ}
rSV:= (CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
FASTK:=SMA(RSV,3,1);
K:=SMA(FASTK,3,1);
D:=SMA(K,5,1);
b1:=cross(k,d);
b2:=cross(d,k);
AO:=MA(c ,5 )-MA(c ,34 );
AC:=AO-MA( AO,5);
ac1:=ref(AC,1);
ao1:=ref(ao,1);

{KAC:IF( b1,a3,a4);
KAO:IF(b2,a4,a3); }
if(k>=d,a6,a5);



QUOTE:
730.問:
      請問下面語句有什么語法錯誤，通過不了
VARIABLE:PP[DATACOUNT]=0,VARVOL:=VOL;
PP[1]:=100;
FOR I=2 TO DATACOUNT-1 DO
PP[I]:=IF(VARVOL[I]<VARVOL[I-1],PP[I-1]+100*(C-REF(C,1))/C,PP[I-1]);

   答(hx817):
c 為序列值，改為;
VARIABLE:PP[DATACOUNT]=0,VARVOL=VOL,fc=c;
PP[1]:=100;
FOR I=2 TO DATACOUNT-1 DO
PP[I]:IF(VARVOL[I]<VARVOL[I-1],PP[I-1]+100*(fc-fc[i-1])/fc,PP[I-1]);





QUOTE:
731.問:
編兩個選股指標．
１：根據(jù)股價選股指標［股價可任意調(diào)整］
２：雙底選股指標  
    答(bajatje):
1:
c>m and c<n;//m、n股價的范圍M＜N

2:
a:zig(4,n);
wa:=a>ref(a,1) and ref(a,2)>ref(a,1);
wb:=a<ref(a,1) and ref(a,2)<ref(a,1);
wl1:=barslast(wa)+1;    wl2:=ref(wl1,wl1+1)+wl1+1;  
wh:=barslast(wb)+1;       w:=llvbars(m,wh);
ll:=ref(l,wl2) ;      hh:=hhv(h,wh+2);    d:=ref(llv(l,w),w);
k:FILTER(w>0 and w<3 and d>ll*0.99 and a>ref(a,1),wh);



QUOTE:
732.問:
飛狐橫向統(tǒng)計流通總市值怎么編,就是上?；蛏钲趥€股流通總市值

    答(bajatje):
法1
建相應(yīng)的流通指數(shù)
法2
用橫向統(tǒng)計功能   



QUOTE:
733.問:
    請問連續(xù)兩天內(nèi)兩條均線重合在一起的公式是如何編的！如 MA5 與  MA10 重合

    答(hx817):
      重合 怎么定義？
是相等，還是兩個差值小于多少？
如果是差值小于某個值，參考

ma5:=ma(c,5);
ma10:=ma(c,10);
tj1:=abs(ma5-ma10)<0.015;//差值小于 0.015，可自己修改
tj:ALL(tj1,2);//2 個周期內(nèi)滿足 tj1



QUOTE:
734.問:
    需要用到 如下兩個 數(shù)據(jù) ，主圖中所顯示K線的最高價，和最低價。應(yīng)該如何寫。

   答(股市騎兵00):
高:SYSPARAM(4);
低:SYSPARAM(5);
{SYSPARAM(4)
系統(tǒng)參數(shù):主圖可見K線最高價
注意：該函數(shù)僅K線圖形分析且打開十字光標時有效,否則返回值不確定}



QUOTE:
735.問:
     當指定日期是"非交易日"時,用簡單函數(shù)BARSLAS  或   BARSSINCE不能實現(xiàn)!
    答(hx817):
n:=1041001;
fd:=date;
d:=BARSSINCE(DATEDIFF(n,date)>=0);
fd[DATACOUNT-d[DATACOUNT]];//返回 1041007



QUOTE:
736.問:
      能否實現(xiàn)引用某個股票的周線狀態(tài)下的某個指標的數(shù)值？
比如引用“上證指數(shù)周線乖離率的Bais3”的數(shù)值？Bais參數(shù)為6.12.24

    答(yngs):
      引用任意證券任意周期的任意指標輸出
用法:
STKINDI(STKLABEL,INDINAME,INDITYPE,PERIOD)
STKLABEL指定證券代碼，如為空表示當前證券
INDITYPE為指標類型，有效值范圍為(0-2)，依次表示技術(shù)指標、條件選股、交易系統(tǒng)公式;
PERIOD為周期類型，有效值范圍為(-1-12)，依次表示:
當前周期、分筆成交、1分鐘、5分鐘、15分鐘、30分鐘、60分鐘、日、周、月、年、多日、多分鐘、多秒線
例如:STKINDI('1A0001','MA.MA1',0,DATAPERIOD);計算1A0001的當前周期MA指標的MA1指標線

STKINDI('','RSI.RSI1',0,DATAPERIOD);計算當前證券的當前周期MA指標的MA1指標線



QUOTE:
737.問:
      找出當天的平均成本.
    答(股市騎兵00):
      AMOUNT/v/100;  



QUOTE:
738.問:
    飛狐有個大手筆之差選股條件,就是100手以上主動買之和減100手以上主動賣之和,
我想把它變成副圖指標,用柱狀表示,正值在0軸之上紅色,負值在0軸之下藍色,如果可以的話,
k線是陰(陽),大手筆差是正(負),柱狀用白色.

    答(bajatje):
主動買賣:-SELLVOL*(v>100)+BUYVOL*(v>100),colorstick,linethick5;0;



QUOTE:
739.問:
     當漲?；虻r,分筆OBV的缺陷是為零,能否換算成漲停時OBV為增加,跌停時為減少,
正常情況下不變.

    答(hx817):
SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
漲停時：SUM(IF(CLOSE>=REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
跌停時：SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<=REF(CLOSE,1),-VOL,0)),0)；
    問:  
      我的意思是兩者能否合二為一,在一個公式中做到,這樣計算和引用也方便
    答(hx817):
bl:=if(STKINBLOCK(STKLABEL,'ST板塊') or STKINBLOCK(STKLABEL,'*ST板塊'),1.0495,1.095);
ztb:=c>=intpart("ohlc.fc##day"*bl*100+0.495)/100;//判斷漲停
dtb:="ohlc.fc##day">=intpart(c*bl*100+0.495)/100;//判斷跌停

原公式:SUM(IF(c>ref(c,1),VOL,IF(c<ref(c,1),-VOL,0)),0);
新輸出:SUM(if(c>ref(c,1) or (c=ref(c,1) and ztb=1),VOL,IF(c<ref(c,1) or (c=ref(c,1) and dtb=1),-VOL,0)),0);



QUOTE:
740.問:
      在飛狐obv指標上加一根30平均線,
    答(hx817):
A:SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);
M30:MA(A,30);





QUOTE:
741.問:
      能否將流通股數(shù)也同時顯示在主圖上？就像顯示板塊信息一樣

    答(hx817):
      和顯示板塊一樣，在板塊后面加上這部分數(shù)據(jù)（轉(zhuǎn)字符串）即可



QUOTE:
742.問:
      怎樣才能把畫線部分寫到公式中! 我需要的是起點的最低價! 終點的最高價
    答(yngs):
      在圖形上繪制直線段。
用法:
DRAWLINE(COND1,PRICE1,COND2,PRICE2,EXPAND)
當COND1條件滿足時,在PRICE1位置畫直線起點，當COND2條件滿足時,在PRICE2位置畫直線終點，EXPAND為延長類型。
例如:DRAWLINE(HIGH>=HHV(HIGH,10),HIGH,LOW<=LLV(LOW,10),LOW,1)
表示在創(chuàng)10天新高與創(chuàng)10天新低之間畫直線并且向右延長。



QUOTE:
743.問:
     1、求5日和10日均線交叉時對應(yīng)的close的數(shù)值？
     2、求kdj中，k、d金叉或死叉時對應(yīng)的即時close股價值？:p

    答(南客):
       試試：
1、
ts:=barslast(cross(ma(close,5),ma(close,10))); //上次金叉距今周期數(shù)
fc:ref(close,ts);  //引用上次金叉時的收盤價
2、方法同上



QUOTE:
744.問:
      編一個上影線及下影線成交量的公式
    答(股市騎兵00):
      {分筆周期}
OO:=DYNAINFO(4);CC:=DYNAINFO(7);
S:=SUM((C>MAX(OO,CC))*V,0);X:=SUM((C<MIN(OO,CC))*V,0);
上影:S[DATACOUNT];
下影:X[DATACOUNT];
     問:上影量與成交量相等，下影量似乎可以，但沒辦法驗證
        (引用公式)

今開:DYNAINFO(4);
收盤:DYNAINFO(7);
{前收:DYNAINFO(3);}
最高:DYNAINFO(5);
最低:DYNAINFO(6);
收:close;

(擴展數(shù)據(jù)用公式)
OO:=DYNAINFO(4);
CC:="oc.收#day";
S:=SUM((C>MAX(OO,CC))*V,0);
X:=SUM((C<MIN(OO,CC))*V,0);
上影:S[DATACOUNT];
下影:X[DATACOUNT];
//如將CC:="oc.收#day";改成 cc:="oc.收盤#day";得出的結(jié)果一樣。我在想問題可能出在全日最終的收盤價定位上。用DYNAINFO(7)和日線的close顯然不行，那么怎么樣來正確定位全日的收盤價呢？用全日最后一筆的成交價？那豈不是又回到最新價（DYNAINFO(7)）了嗎？
我用了000581驗證了上影線的成交量=128手正確，下影線=1248不正確，應(yīng)該=1553.88手，用000578驗證下影線的成交量=382手不正確，應(yīng)該=242.3手，上影線=4789手正確。
之所以用這兩只股票做例子是因為上下影線的成交量較小，用手工算也很快。
000581上影只有28、100兩筆，000578下影有九筆2、6.3、10、24、40、21、9、16、114共計242.3手。請先幫我驗證一下分筆數(shù)據(jù)是否正確
     答(股市騎兵00):
       分筆數(shù)據(jù)準確性是有點小問題的
你的公式，分筆數(shù)據(jù)準確性（除了最高和最低價外）是不會影響的。
你說的：用了000581驗證了上影線的成交量=128手正確，下影線=1248不正確。俺沒找到你說的那天數(shù)據(jù)。
就簡單改了下公式，兩跟橫線是開盤價和收盤價，紅圖標成交量的和就是上影成交量了，綠圖標成交量的和就是下影成交量了。
看的出圖標都是畫對的，相信數(shù)據(jù)出來肯定對的。你再看看好嗎。公式如下：

cc:"oc.cc#day";oo:"oc.oo#day";{cc:fc[DATACOUNT];oo:fo[1];}
S:=SUM((C>MAX(OO,CC))*V,0);X:=SUM((C<MIN(OO,CC))*V,0);
上影:=S[DATACOUNT];
下影:=X[DATACOUNT];
DRAWICON(C>MAX(OO,CC),c,4);
DRAWICON(C<MIN(OO,CC),c,5);

     答(南客):
騎兵的公式，應(yīng)該沒什么問題吧？
為了便于檢驗數(shù)據(jù)，我簡單寫了2個公式，把分筆價格重新按從小到大的順序排列，相應(yīng)的成交量也相應(yīng)調(diào)整，這樣就便于手工計算檢驗了。
新建2個公式，代碼如下：

{被調(diào)用公式，公式名稱為“日線”}
fc:close;
fo:open;

原碼
if datatype>0 then exit;  //公式只在分筆下運行
fv:=vol;
fc:close;  //經(jīng)過以下代碼處理，分筆價從小到大排列
pc:=close;
a:=sortpos(pc,0,1,datacount);  //分筆成交價位置排序
vv:vol,linethick0;  //經(jīng)過下面代碼處理，使這里輸出的成交量跟分筆價對應(yīng)
c_day:="日線.fc#day";  //當日收盤價
o_day:="日線.fo#day";  //當日開盤價
j_max:max(c_day,o_day);
j_min:min(c_day,o_day);
for i=1 to datacount do //使成交量跟大小重排后的分筆價對應(yīng)
  vv:=fv[pc];
a:=sort(fc,0,1,datacount);  //分筆價從小到大排列
vstem:=sum(vv*(fc>j_max),0);
上影量:vstem[datacount],linethick0;
vxtem:=sum(vv*(fc<j_min),0);
下影量:vxtem[datacount],linethick0;
//至于分筆中的最高和最低價可能和日線有所區(qū)別，這個數(shù)據(jù)問題...........
1、這個問題沒辦法解決，仔細想想就會明白了，由于數(shù)據(jù)傳輸速度的原因，分筆接收時，沒辦法知道日線中的最高、最低價是何時發(fā)生的，日線最高、最低價對應(yīng)的量是多少，除非剛好最高、最低價成交的分筆數(shù)據(jù)被傳輸?shù)轿覀兊碾娔X。
2、那么，這個日線最高、最低價的成交情況不一定能夠被實際接收到，是怎么知道這2個價格的？是交易所發(fā)過來的。




QUOTE:
745.問:
      在同一個指標公式中怎么寫
不是ST股票運用以下公式：
MA1:MA(CLOSE,5);MA2:MA(CLOSE,10);MA3:MA(CLOSE,30);
DRAWTEXT((LOW-MA(CLOSE,15))/MA(CLOSE,15)*100 <=-13  AND CLOSE/REF(CLOSE,1)>=0.95 ,LOW*0.99,'買' ),COLORF00FF0;
DRAWTEXT((HIGH-MA(CLOSE,15))/MA(CLOSE,15)*100 >=13 AND VOL/MA(VOL,3)>2 ,HIGH *1.01,'賣' ),COLORGREEN;
ST股票能運用以下公式：
MA1:MA(CLOSE,5);MA2:MA(CLOSE,10);MA3:MA(CLOSE,30);
DRAWTEXT((LOW-MA(CLOSE,15))/MA(CLOSE,15)*100 <=-8  AND CLOSE/REF(CLOSE,1)>=0.95 ,LOW*0.99,'買' ),COLORF00FF0;
DRAWTEXT((HIGH-MA(CLOSE,15))/MA(CLOSE,15)*100 >=8 AND VOL/MA(VOL,3)>2 ,HIGH *1.01,'賣' ),COLORGREEN;
    答(hx817):
bk:=if(STKINBLOCK(STKLABEL,'ST板塊') or STKINBLOCK(STKLABEL,'*ST板塊'),0,1);
MA1:MA(CLOSE,5);MA2:MA(CLOSE,10);MA3:MA(CLOSE,30);
if bk=1 then begin
//不是ST股票運用以下公式：
DRAWTEXT((LOW-MA(CLOSE,15))/MA(CLOSE,15)*100 <=-13  AND CLOSE/REF(CLOSE,1)>=0.95 ,LOW*0.99,'買' ),COLORF00FF0;
DRAWTEXT((HIGH-MA(CLOSE,15))/MA(CLOSE,15)*100 >=13 AND VOL/MA(VOL,3)>2 ,HIGH *1.01,'賣' ),COLORGREEN;
end;
if bk=0 then begin
//ST股票能運用以下公式：
DRAWTEXT((LOW-MA(CLOSE,15))/MA(CLOSE,15)*100 <=-8  AND CLOSE/REF(CLOSE,1)>=0.95 ,LOW*0.99,'買' ),COLORF00FF0;
DRAWTEXT((HIGH-MA(CLOSE,15))/MA(CLOSE,15)*100 >=8 AND VOL/MA(VOL,3)>2 ,HIGH *1.01,'賣' ),COLORGREEN;
end;

或者
bk:=if(STKINBLOCK(STKLABEL,'ST板塊') or STKINBLOCK(STKLABEL,'*ST板塊'),8,13);
MA1:MA(CLOSE,5);MA2:MA(CLOSE,10);MA3:MA(CLOSE,30);
DRAWTEXT((LOW-MA(CLOSE,15))/MA(CLOSE,15)*100 <=-bk  AND CLOSE/REF(CLOSE,1)>=0.95 ,LOW*0.99,'買' ),COLORF00FF0;
DRAWTEXT((HIGH-MA(CLOSE,15))/MA(CLOSE,15)*100 >=bk AND VOL/MA(VOL,3)>2 ,HIGH *1.01,'賣' ),COLORGREEN;



QUOTE:
746.問:
計算任意指定的兩個日期內(nèi)的最高價 high 是多少
    答(hx817):
REF(HIGH,BARSLAST(DATE=1040203));//取 2004.2.3的最高價格

    答(bajatje):
w1:=barslast(date<=M);
w2:=barslast(date<=N);
ref(hhv(h,m),n);//w1>W2

N=1040901
M=1040701



QUOTE:
747.問:
     描述求2003年度最高價的例子：
A:=HHV(H*(YEAR=2003),0); YH:A[DATACOUNT];
改寫求2003年度最低價：
B:=LLV(L*(YEAR=2003),0);
YL:B[DATACOUNT];

輸出是0，請問語句對嗎？能修改嗎
    答(股市騎兵00):  
試試：
N:=YEAR=2003;
A1:=BARSLAST(N);
A2:=BARSSINCE(N);
L1:=LLV(L,A2-A1+1);
LL:L1[DATACOUNT-A1[DATACOUNT]];



QUOTE:
748.問:
     “N周期內(nèi)創(chuàng)新高的周期數(shù)”怎么寫？
    答(股市騎兵00):
INPUT:n(20);
hh:=hhv(h,n);
sum(hh>ref(hh,1),n);



QUOTE:
749.問:
      想編一個（當日收K線收陽，且上穿日均線）的公式。
    答(hx817):
tj:ISUP=1 and cross(c,DYNAINFO(11));



QUOTE:
750.問:
1、求兩個條件之間間隔天數(shù)用什么函數(shù)？？？
2、求某條件成立是對應(yīng)的時間（年月日）的函數(shù)？？？

    答(hx817):
1、BARSLAST(tj1)-BARSLAST(tj2);
2、ref(date,BARSLAST(tj));

[ 本帖最后由 AHFYXL1 于 2005-11-28 15:17 編輯 ]

《第十七樓》

目錄索引：

待續(xù).........


QUOTE:
751.問:
      某年某月某日收市價的公式怎樣寫？
     答(bajatje):
w:=barslast(date=日期);2004/10/26寫成1041026
ref(c,w);



QUOTE:
752.問:
cc:=c;
barslast(c=cc[datacount]);
barslast(c=cc[datacount-1]);
barslast(c=cc[datacount-2]);
能給解釋下面幾句的含義嗎？
[datacount]
[datacount-1]
[datacount-2]  

     答(hx817):
[datacount] 最后一天，倒數(shù)第一天
[datacount-1] 倒數(shù)第二天
[datacount-2] 倒數(shù)第三天



QUOTE:
753.問:
      歷史最低點和歷史次低點的連線

     答(南客):
      這樣的定義？恐怕不符合趨勢線的本意吧
fl:=low;
pl:=fl;
a:=SORTPOS(pl,0,1,datacount);
if pl[2]>pl[1] then
  LINEVALUE(barpos=pl[1],fl[pl[1]],barpos=pl[2],fl[pl[2]],0,0)
else
  LINEVALUE(barpos=pl[2],fl[pl[2]],barpos=pl[1],fl[pl[1]],0,0)



QUOTE:
754.問:
我想從F10搜索出易方達基金管理公司旗下的8只基金，04年第三季的所有持倉品種，公式怎么設(shè)計

     答(hx817):
{基于鵬搏資訊，因為F10資料經(jīng)常變動，所以在變動后，需要對應(yīng)調(diào)整}
{基金代碼 184712 184713 500029 500056 110001 110002 110003 110005}
jjstar:=F10FIND('十一、基金持股',1);//定位數(shù)據(jù)開始
jjend:=F10FIND('截止日期：2004-06-30',jjstar);//定位數(shù)據(jù)結(jié)束

jjcg:=F10TEXT(jjstar,jjend-jjstar);//取最新基金持股數(shù)據(jù)
s1:=STRFIND(jjcg,'184712',1);s2:=STRFIND(jjcg,'184713',1);
s3:=STRFIND(jjcg,'500029',1);s4:=STRFIND(jjcg,'500056',1);
s5:=STRFIND(jjcg,'110001',1);s6:=STRFIND(jjcg,'110002',1);
s7:=STRFIND(jjcg,'110003',1);s8:=STRFIND(jjcg,'110005',1);
tj:s1 or s2 or s3 or s4 or s5 or s6 or s7 or s8;
(阿耀注:F10 資料必須及時更新)
    答(莫大):
是這樣子的，還有4個重復(fù)代碼161101、161102、161103、161104要設(shè)進去。這樣范圍擴大到65個，這基本差不多了。
順便告訴你們一下，長出來的東西，正在強勢的可以短線跟做。已經(jīng)弱勢并且行業(yè)受宏觀調(diào)控引起估值紊亂的，應(yīng)該剔除，剩下來的再按選股程序選擇第三季是增倉的品種（怎么設(shè)這個我還沒想明白，不過樣本少，靠肉眼看看也可以了）。這些品種理論上，未來半年是一定有較大的利潤，并且不套人的。
易方達現(xiàn)在是市場最強者，其選股思路及波段策略，遠遠走在其他機構(gòu)之前。所以，研究其持倉股指數(shù)和持倉品種，比較容易把握市場步調(diào)。不過這段時間，基金人才也在流動，湘合及廣發(fā)的部分基金也延續(xù)了強悍基金的風格，可以順便列入研究。




QUOTE:
755.問:
      主圖如何顯示股票的發(fā)行日期？  

     答(南客):
n:=F10FIND('發(fā)行日期：',1)+10;
str1:=F10TEXT(n,10);
drawtext(islastbar,close,'發(fā)行日期：\n'+str1),align2;



QUOTE:
756.問:
HHV和LLV功能是從當前時間到一定的時間取得最高最低價，如今天是10月1日，
HHV（C，60）它是從今天到前60天內(nèi)取得最高價，但是如果我需要從二天前開始取
60個交易日內(nèi)取得最高價，應(yīng)該如何實現(xiàn)呢？
     答(bajatje):
ref(hhv(h,60),2);



QUOTE:
757.問:
INPUT:X(600,1,3000)

VARIABLE:ARR[3000]=0;  //為什么日線少于3000 就會 超出有效數(shù)據(jù)區(qū)間?
HH:=H*100;
LL:=L*100;
for j=1 to datacount  do
  for I=LL TO HH  do
    ARR[I]:=ARR[I]+1;
a:arr[X]; // 為什么算出來的數(shù)值不對?

     答(hx817):
       計算什么？
從表達式來看，計算出的結(jié)果全部是1個值
    問:
那是算, 價x 在歷史日線上出現(xiàn)過多少次
比如
x=631時, 6.31元歷史出見多少次  
     答(hx817):
那么
  for I=LL TO HH  do
    ARR[I]:=ARR[I]+1;
這個循環(huán)做什么呢？

是否要改為

  for I=LL[j] TO HH[j]  do



QUOTE:
758.問:
      想請教一下你,
   ARR[X]  能不能不用循環(huán) 把 他所有的值每天* (1-v/ CAPITAL) ?
     比如 ARR[600] 第1天的值為1 , 第二的初值為 1*(1-v/ CAPITAL)
     答(hx817):
那開始時計算一個
fhs:=1*(1-v/ CAPITAL);
就可以得到每個的值了



QUOTE:
759.問:
      現(xiàn)在可以用基本函數(shù)來模仿 cost 和 WINNER 這兩個函數(shù),
但還是有點出入,應(yīng)是和我的算法不同,
還有就是我編的公式可能用的循環(huán)太多,運算起來太慢了,
你希望能再指點一下,如何簡化
其實我并不是想模仿cost 和WINNER 這兩個函數(shù),
飛狐里有WINNER pWINNER LWINNER
而 沒有  Pcost Lcost
想求出  x 天內(nèi)獲利多少 就不行了
我主要的目的是想編  x 天內(nèi)獲利多少
1.請幫我優(yōu)化下面的公式

INPUT:X(20,1,100);

VARIABLE:ARR[3000]=0;  
HH:=HIGH*100;
LL:=LOW*100;
VV:=VOL/(HH-LL);
co:=0*CLOSE; a:=0*CLOSE; 總量:=0*CLOSE; 當日量:=VOL; 換手率:=VOL/CAPITAL;

for j=1 to DATACOUNT do BEGIN
       總量[j]:=總量[j-1]*(1-換手率[j])+當日量[j]; //累計總成交 按當天換手衰減
      
       LLL:=LLV(LOW,j)*100;         //j點時的歷史最低價
       HHH:=HHV(HIGH,j)*100;        //j點時的歷史最高價
      
       for p=LLL[j] to HHH[j] do               
           ARR[p]:=ARR[p] *(1-換手率[j]);  //ARR數(shù)組每個變量　按當天換手衰減


       for I=LL[j] TO HH[j]  do  ARR[I]:=ARR[I]+VV[j]; //累加 ARR每個變量
   
       for K=lll[j] to HHH[j] do  BEGIN      
           co[j]:=co[j]+ARR[k];
           a[j]:=k;
           IF co[j]>總量[j]*x/100 then                  
                  BREAK;
  
            end;
    end ;

正:COST(x);
模仿 :a/100;  

2.模仿 WINNER 函數(shù)
VARIABLE:ARR[3000]=0;  
HH:=HIGH*100;
LL:=LOW*100;
VV:=VOL/(HH-LL);
co:=0*CLOSE; a:=0*CLOSE; 總量:=0*CLOSE; 當日量:=VOL; 換手率:=VOL/CAPITAL; 收:=c;
for j=1 to DATACOUNT do BEGIN
       總量[j]:=總量[j-1]*(1-換手率[j])+當日量[j]; //累計總成交 按當天換手衰減
      
       LLL:=LLV(LOW,j)*100;                      //j點時的歷史最低價
       HHH:=HHV(HIGH,j)*100;                     //j點時的歷史最高價
      
       for p=LLL[j] to HHH[j] do               
           ARR[p]:=ARR[p] *(1-換手率[j]);       //ARR數(shù)組每個變量　按當天換手衰減


       for I=LL[j] TO HH[j]  do  ARR[I]:=ARR[I]+VV[j]; //累加 ARR每個變量
   
       for K=lll[j] to 收[j]*100 do        
           co[j]:=co[j]+ARR[k];
              a[j]:=co[j]/總量[j]*100;
           
           
    end ;

正:WINNER(c)*100;
fan :a;  

3.這個公式是根據(jù)上面的來改動一下,就可以變化為 x天內(nèi)獲利盤多少了
INPUT:X(40,0,100),Y(50,0,100);
//X 是獲利盤比例  Y 天數(shù)
A := X / 100; JL := LLV(L, Y);LL := 0;JH := HHV(H, Y);HH := 1;

for i=0 to 6 do BEGIN
Z := (JH * (A-LL) + JL * (HH-A))/(HH-LL);
W:= lWINNER(Y,Z);
JL := IF(W < A, Z, JL);
LL := IF(W < A, W, LL);
JH := IF(W > A, Z, JH);
HH := IF(W > A, W, HH);

end

模仿:z;

     答(hx817):
這不好再優(yōu)化，因為這取決于算法



QUOTE:
760.問:
      描述：
網(wǎng)上有專門有追漲停的指標，但那個存在一定的值后性。
我的思路是當股票在盤中漲幅超過2%-3.5%左右是即發(fā)出信號等于10--20數(shù)值，
并且利用飛狐的預(yù)警功能實現(xiàn)時時提醒。怎么用飛狐的預(yù)警功能實現(xiàn)時時提醒
     答(bajatje):
w:=barslast(hour<ref(hour,1));
LL:=LLv(L,w);
(c/LL>1.02 and c/LL<1.035)*10;




QUOTE:
761.問:
      怎么過濾信號(笑臉)

MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,30);
DRAWICON(ma1>ma2,ma2,1);
過濾信號(笑臉),只求第一個;

     答(hx817):
DRAWICON(ma1>ma2,ma2,1);
改為
DRAWICON(cross(ma1,ma2),ma2,1);  



QUOTE:
762.問:
      如何自動計算30日最高價格,遞減0.382元,至低于30日最低價格之間的所有位置,
     答(yngs):
      30日最高價格
hhv(h,30);
遞減0.382元
0.382*hhv(h,30);
"至低于30日最低價格之間的所有位置"不理解  



QUOTE:
763.問:
      期貨持倉量現(xiàn)在飛狐提供的是柱狀的圖,我很不習慣.怎么能給它變成一根線的圖?
原來的公式是:
OPENINT,VOLSTICK;

//MA1:MA(OPENINT,N1);
//MA2:MA(OPENINT,N2)

     答(hx817):
是的，將 ,VOLSTICK 去掉



QUOTE:
764.問:
      第一部分：實現(xiàn)2日平均價
fc:=close;
for i=2 to datacount do
ma2:(fc[i-1]+fc)/2;
這個容易實現(xiàn)
      第二部分：實現(xiàn)第2天到第5天的平均價；
fc:=close;
for i=i+1 to i=i+4 do
ma5:(fc[i+1]+fc[i+4])/4;
則不顯示，錯在哪里？

     答(hx817):
i 的循環(huán)范圍不對
fc:=close;
for i=5 to datacount do begin
  //方法一，輸出 ma2 為 5日平均值
  ma2:(fc[i-4]+fc[i-3]+fc[i-2]+fc[i-1]+fc)/5;

  //方法二，輸出 ma3 為 5日平均值
  s:=0;
  for j=0 to 4 do s:=s+fc[i-j];//循環(huán)疊加 5 個 fc 值
  ma3:s/5;
  end;  

    問:
      我要求的是從第二根K線到第5根K線的平均值的，而不是從一開始，否則這個問題就簡單了
     答(hx817):
一樣的道理呀
fc:=c;
//方法一
(fc[2]+fc[3]+fc[4]+fc[5])/4;

//方法二
s:=0;
for j=1 to 4 do s:=s+fc[j+1];
ma3:s/4;  
    問:
五天問題好解決,
fc:=close;
for i=5 to datacount do begin
  //方法一，輸出 ma2 為 5日平均值
  ma2:(fc[i-4]+fc[i-3]+fc[i-2]+fc[i-1]+fc)/5;
  end;
如果我的i要取50天的，那么后面的ma2不很麻煩
fc:=close;
for i=50 to datacount do begin
  ma2:(fc[i-49]+fc[i-48]+fc[i-47]......+fc[i-1]+fc)/49;
  end;
這時又應(yīng)該如何寫？
     答(hx817):
當然是 1 個值啦，你不是求 2－50 共 49個的平均值么？
fc:=close;
for i=50 to datacount do begin
  s:=0;
  for j=0 to 48 do s:=s+fc[i-j];//循環(huán)疊加 49 個 fc 值
  ma3:s/49;
  end;  
     問:
這樣寫是不是還是比較笨
fc:=close;
for i1=50 to datacount do begin
  s1:=0;
  for j1=2 to 50 do s1:=s1+fc[i1-j1];//循環(huán)疊加 49 個 fc 值
  ma3[i1]:s1/49;
  end;

for i2=25 to datacount do begin
  s2:=0;
  for j2=5 to 25 do s2:=s2+fc[i2-j2];//循環(huán)疊加80 個 fc 值
  ma4[i2]:s2/19;
  end;
象一般ma(c,30); ma(c,40); ma(c,60); ma(c,90); 這樣多方便？
     答(hx817):
這只是循環(huán)的一種運用
再試試，用參數(shù)來計算任意周期的平均
也就是你上面的2次循環(huán)（i1,i2），這樣只需要調(diào)整參數(shù)即可計算不同的值  
    問:
我知道，你的意思是說通過上面的參數(shù)1-4這里來調(diào)整i1，i2，那個很簡單的，我會，但是我的本意還不是這個，我的意思是說還是要通過循環(huán)嵌套來實現(xiàn)，這樣的話公式就很精練了，否則按上面的我覺得還是重復(fù)運算很多的。
     答(hx817):
你可以用判斷語句來讓大的循環(huán)只運行一次，比如
fc:=close;
for i1=1 to datacount do begin
  if i1>=50 then begin
    s1:=0;
    for j1=2 to 50 do s1:=s1+fc[i1-j1];//循環(huán)疊加 49 個 fc 值
    ma3[i1]:s1/49;
    end;
  if i1>=25 then begin
    s2:=0;
    for j2=5 to 25 do s2:=s2+fc[i1-j2];//循環(huán)疊加 19 個 fc 值
    ma4[i1]:s2/19;
    end;
  end;
    答(南客):
你在這里的代碼，就已經(jīng)有問題了，不符合求平均值(ma函數(shù))的愿意，這些基本的代碼要搞清楚，基礎(chǔ)不扎實，接下去會越搞越亂。
1、代碼的縮格要清楚，這樣程序代碼才層次分明。否則別說是初學(xué)者，就算我來看代碼，也是頭大。
2、里面的 j1 循環(huán)，還有 j2 循環(huán)，起點、終點對嗎？  



QUOTE:
765.問:
{fv:=v;ma2:=0*c;
x:=SETLBOUND(ma2,2);
for i=datacount downto 2 do {i終點已經(jīng)是2了，干嗎還用SETLBOUND來控制呢？}
ma2:(fv[i-1]+fv)/2;
Fc:=close;}

{ll:=l;x:=ll[1];
For i=1 to datacount do
if x>=ll then   
x:ll;{用這種解法怎么出來是單值？把X變成序列變量怎么寫？}
For i=2 to datacount do
LL[I]:MIN(LL[I],LL[I-1]);}

     答(hx817):
1、去掉 x:=SETLBOUND(ma2,2); 看看輸出是什么結(jié)果就知道了
2、因為前面你定義了 x: 為單值  



QUOTE:
766.問:
      好象沒有
if  then elseif這個函數(shù)吧，假如有，那么會更加簡單的

     答(hx817):
       試試爬臺階
fc:=0*c;
for i=1 to DATACOUNT do begin
if i<25 then fc:=1 else if i<50 then fc:=2 else if i<100 then fc:=3 else fc:=4;;
end;
fc;
所屬類別: 控制語句  參數(shù)數(shù)量: 0

IF條件語句
語法:IF cond THEN expr1 ELSE expr2
當滿足 cond 條件的時候，執(zhí)行語句 expr1，否則執(zhí)行 expr2 語句



QUOTE:
767.問:
      數(shù)組下標越界或者超過指數(shù)區(qū)間？錯在哪里？
fc:=(H+L)/2;
for i=1 to datacount do begin
    s:=0;
    for j=2 to 25 do   fc:=s+fc[i-j];
    if i<25 then
       ma1:=fc/2;
else
    if i<50  then
       ma2:=fc/5;
else
    if i<80 then
       ma3:=fc/8;
else
      ma4:=fc/10;
end;
ma4;

     答(南客):
       這里，出錯在 fc[i-j]，想想看，i=1的時候，i-j 有可能等于什么值？
你的這段代碼，已經(jīng)在用 else if 這樣的嵌套了，我稍加縮格排版后，就是這樣了：
fc:=(H+L)/2;
for i=1 to datacount do begin
    s:=0;
    for j=2 to 25 do fc:=s+fc[i-j];
    if i<25 then
       ma1:=fc/2;
    else if i<50  then
       ma2:=fc/5;
    else if i<80 then
       ma3:=fc/8;
    else
      ma4:=fc/10;
end;
ma4;  



QUOTE:
768.問:
      循環(huán)、判斷等控制語句作個類似薛師通道

     答(老實和尚):
fc:=c;
for i1=13 to datacount do begin
  s1:=0;
  for j1=2 to 13 do s1:=s1+fc[i1-j1];//循環(huán)取得第2根K線到第13根K線的值
  ma1[i1]:s1/10.8;
  end;

for i2=25 to datacount do begin
  s2:=0;
  for j2=12 to 25 do s2:=s2+fc[i2-j2];//循環(huán)取得第12根K線到第25根K線的值
  ma2[i2]:s2/15.2;
  end;
  
for i3=58 to datacount do begin
  s3:=0;
  for j3=35 to 58 do s3:=s3+fc[i3-j3];//循環(huán)取得第35根K線到第58根K線的值
  ma3[i3]:s3/24;
  end;  



QUOTE:
769.問:
       fm:ma(c,50)，為什么起始下標不是從1開始，而是從5開始？
我想知道K線圖上倒數(shù)第2根K線對應(yīng)的5日均價怎么寫公式代碼

     答(lhl311):
fm:ma(c,50)，第50天才有,當然第50天才開始 ；
fm:ma(c,5)，第5天才有；當然第5天才開始 因為MA5：=（第1天收盤假+第2天收盤假+第3天收盤假+第4天收盤假+第5天收盤假)/5;
  



QUOTE:
770.問:
      主圖有解盤、副圖有解盤，“一個不能少”，但是太多了，顯示不下，
后面的因吃在屏幕下方而看不到。解盤的顯示框能否分屏顯示（PAGE-UP 、PAGE-DOWN）？

     答(hx817):
       目前不行
可拖動左右的顯示寬度查看





QUOTE:
771.問:
      飛狐有個大手筆之差選股條件,就是100手以上主動買之和減100手以上主動賣之和,
我想把它變成副圖指標,用柱狀表示,正值在0軸之上紅色,負值在0軸之下藍色,如果可以的話,
k線是陰(陽),大手筆差是正(負),柱狀用白色.

     答(kjyhao):
       你說的公式是可以的,但重要的是要用到"分筆數(shù)據(jù)",這就要:
一;保持有足夠的"分筆數(shù)據(jù)",以保證數(shù)據(jù)的準確性;(這是比較麻煩的事);
二;建立擴展數(shù)據(jù)庫,以保存數(shù)據(jù)被隨時調(diào)用;
以上兩個條件滿足了,就可做你說的公式了;  



QUOTE:
772.問:
      想編一個解盤指標，具體的想法是根據(jù)每天開盤后半小時的高低點做黃金分割
比如說今天開盤后30分鐘的最高價為10.5元，30分鐘的最低價為10元。在解盤里面顯示10--》10.5的黃金分割的點位
阻力位的計算公式為：開盤30分鐘低點+[（開盤30分鐘高點-開盤30分鐘低點）×{0.328或0.333、0.5、0.618或0.666}]      
支撐位計算公式為：開盤30分鐘高點-[（開盤30分鐘高點-開盤30分鐘低點）×{0.328或0.333、0.5、0.618或0.666}]

     答(hx817):
       參考
公式取數(shù)據(jù)周期當日第一個K線值為計算，切換不同數(shù)據(jù)周期，結(jié)果不同，按照前面思路，切換為30分鐘線即可}
aa:=BARSLAST(DAY<>REF(DAY,1));
hh:=REF(HIGH,aa);ll:=REF(LOW,aa);
阻力1:ll+(hh-ll)*0.328;阻力2:ll+(hh-ll)*0.5;阻力3:ll+(hh-ll)*0.618;
支撐1:hh-(hh-ll)*0.328;支撐2:hh-(hh-ll)*0.5;支撐3:hh-(hh-ll)*0.618;
EXPLAINEX(1,'阻力位價一：',阻力1,3,0),COLORGREEN;
EXPLAINEX(1,'阻力位價二：',阻力2,3,0),COLORGREEN;
EXPLAINEX(1,'阻力位價三：',阻力3,3,1),COLORGREEN;
EXPLAINEX(1,'支撐位價一：',支撐1,3,0),COLORRED;
EXPLAINEX(1,'支撐位價二：',支撐2,3,0),COLORRED;
EXPLAINEX(1,'支撐位價三：',支撐3,3,0),COLORRED;  



QUOTE:
773.問:
      能把dll的代碼發(fā)給我學(xué)習一下嗎
     答(股市騎兵00):
這是一段其他朋友幫我寫的，他說是用我公式思路改的，速度也慢的，我也看不懂給你參考了

__declspec(dllexport) int WINAPI TEST(CALCINFO* pData) {   if(pData->m_pfParam1 &&     pData->m_nParam1Start<0 &&     pData->m_pfParam2==NULL && pData->m_dataType==2)     {       #define w3(i) pData->m_pDataEx.m_fSellPrice[2]       #define w2(i) pData->m_pDataEx.m_fSellPrice[1]       #define w1(i) pData->m_pDataEx.m_fSellPrice[0]       #define w3v(i) pData->m_pDataEx.m_fSellVol[2]       #define w2v(i) pData->m_pDataEx.m_fSellVol[1]       #define w1v(i) pData->m_pDataEx.m_fSellVol[0]       #define m3(i) pData->m_pDataEx.m_fBuyPrice[2]       #define m2(i) pData->m_pDataEx.m_fBuyPrice[1]       #define m1(i) pData->m_pDataEx.m_fBuyPrice[0]       #define m3v(i) pData->m_pDataEx.m_fBuyVol[2]       #define m2v(i) pData->m_pDataEx.m_fBuyVol[1]       #define m1v(i) pData->m_pDataEx.m_fBuyVol[0]        float hwv[pData->m_nNumData];       float hmv[pData->m_nNumData];       float zdz[pData->m_nNumData],zxz[pData->m_nNumData];       int i,j,k;       int nParam1,nParam2;       int nLast =pData->m_nNumData-1;       nParam1 = (int)(*pData->m_pfParam1);       nParam2 = (int)(*pData->m_pfParam2);       if(nParam2>nLast) nParam2=nLast;        for(i=0; i<=nLast; i++)       {         zdz=0;         zxz=9999999;         if(zdz<w1(i)) zdz=w1(i);         if(zdz<w2(i)) zdz=w2(i);         if(zdz<w3(i)) zdz=w3(i);         if(zdz<m1(i)) zdz=m1(i);         if(zdz<m2(i)) zdz=m2(i);         if(zdz<m3(i)) zdz=m3(i);          if(zxz>w1(i) && w1(i)) zxz=w1(i);         if(zxz>w2(i) && w2(i)) zxz=w2(i);         if(zxz>w3(i) && w3(i)) zxz=w3(i);         if(zxz>m1(i) && m1(i)) zxz=m1(i);         if(zxz>m2(i) && m2(i)) zxz=m2(i);         if(zxz>m3(i) && m3(i)) zxz=m3(i);         zdz+=0.004;         zxz-=0.004;         hwv=0;         hmv=0;          if(i<=nParam2)         {           if(nParam1==1)           {             for(j=i-1; j>=0; j--)             {               if(w1(j)>zdz)               {  hwv+=w1v(j);                 for(k=i; k>j; j--)                 {  if(w1(j)<zdz[k])                   {  hwv-=w1v(j);                     break;}}}               if(w2(j)>zdz)               {  hwv+=w2v(j);                 for(k=i; k>j; j--)                 {  if(w2(j)<zdz[k])                   {  hwv-=w2v(j);                     break;}}}               if(w3(j)>zdz)               {  hwv+=w3v(j);                 for(k=i; k>j; j--)                 {  if(w3(j)<zdz[k])                   {  hwv-=w3v(j);                     break;}}}             }           }else           {               for(j=i-1; j>=0; j--)             {               if(m1(j)<zxz)               {  hmv+=m1v(j);                 for(k=i; k>j; j--)                 {  if(m1(j)>zxz[k])                   {  hmv-=m1v(j);                     break;}}}               if(m2(j)<zxz)               {  hmv+=m2v(j);                 for(k=i; k>j; j--)                 {  if(m2(j)>zxz[k])                   {  hmv-=m2v(j);                     break;}}}               if(m3(j)<zxz)               {  hmv+=m3v(j);                 for(k=i; k>j; j--)                 {  if(m3(j)>zxz[k])                   {  hmv-=m3v(j);                     break;}}}             }           }         }         hwv+=w1v(i)+w2v(i)+w3v(i);         hmv+=m1v(i)+m2v(i)+m3v(i);          if(nParam1==0)           *(pData->m_pResultBuf+i)=*(hmv+i);         else pData->m_pResultBuf=*(hwv+i);       }       return 0;   }   return -1; }




QUOTE:
774.問:
     我看到這樣一原碼公式。我用了一段時間以后發(fā)現(xiàn)很有特點。它解盤中的百分比很有提示作用。
我想搞一個區(qū)間統(tǒng)計，但沒有辦法選出各類區(qū)間的股票。如選出區(qū)間為40％-45％的。
不知道有沒有辦法實現(xiàn)。你能幫忙看看嗎
m1:=ma(c,5);
p1:ln(m1+1/m1);
pp:hhv(p1,0);
qq:llv(p1,0);
qq1:qq+(pp-qq)*n1;
qq2:qq+(pp-qq)*n2;
qq3:qq+(pp-qq)*n3;
pp1:qq+(pp-qq)*n4;
pp2:qq+(pp-qq)*n5;

ba1:= p1=qq;
ba2:=100*count(c>ref(c,3) and ba1,0)/count(ba1,0);
explainex(ba1,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba2,1,4);
ba11:= p1>qq and p1<qq1;
ba21:=100*count(c>ref(c,3) and ba11,0)/count(ba11,0);
explainex(ba11,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba21,1,4);
ba111:= p1>qq1 and p1<qq2;
ba211:=100*count(c>ref(c,3) and ba111,0)/count(ba111,0);
explainex(ba111,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba211,1,4);
ba1111:= p1>qq2 and p1<qq3;
ba2111:=100*count(c>ref(c,3) and ba1111,0)/count(ba1111,0);
explainex(ba1111,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba2111,1,4);
ba11111:= p1>qq3 and p1<pp1;
ba21111:=100*count(c>ref(c,3) and ba11111,0)/count(ba11111,0);
explainex(ba11111,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba21111,1,4);
ba11112:= p1>pp1 and p1<pp2;
ba21112:=100*count(c>ref(c,3) and ba11112,0)/count(ba11112,0);
explainex(ba11112,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba21112,1,4);
ba11113:= p1>pp2 and p1<pp;
ba21113:=100*count(c>ref(c,3) and ba11113,0)/count(ba11113,0);
explainex(ba11113,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba21113,1,4);
ba11114:=  p1=pp;
ba21114:=100*count(c>ref(c,3) and ba11114,0)/count(ba11114,0);
explainex(ba11114,'p1在這個區(qū)間三天后上漲的幾率為:百分之',ba21114,1,4);

參數(shù)：
N1:0.172
N2:0.383
N3:0.5
N4:0.618
N5:0.7

     答(hx817):
根據(jù) ba*** 來選股  



QUOTE:
775.問:
       macd和價格的的底背離選股公式怎么作啊
     答(yngs):
A:=BARSLAST(ref(cross("macd.diff","macd.dea"),1));
B:=ref(c,A+1)>c and ref("macd.diff",A+1)<"macd.diff" and cross("macd.diff","macd.dea");
MACD底背離:FILTER(B>0,5);  



QUOTE:
776.問:
sin(x)；cos(x)；tan(x)；asin(x)；acos(x)；atan(x)；
這些函數(shù)沒有示例，請給個簡單的示例；學(xué)習一下

     答(hx817):
數(shù)學(xué)標準函數(shù),高中數(shù)學(xué)  
如
第四章 三角函數(shù) 一、角的概念的推廣
一、目的要求
1．理解任意角的概念。
2．學(xué)會建立直角坐標系討論任意角，判斷象限角，掌握終邊相同角的集合的書寫。
二、內(nèi)容分析
1．初中階段角的范圍的研究僅局限于0度到360度的角，本節(jié)將在此基礎(chǔ)上把角的概念擴展到任意角，有正角、負角及零角之分。這在數(shù)學(xué)認識上是一個飛躍。
實際上正與負是相對的，而零則介于它們之間。以實數(shù)軸為例，原點為零，原點向左數(shù)的數(shù)是負數(shù)，而原點向右數(shù)的數(shù)是正數(shù)。一般地，負數(shù)所表示的代數(shù)意義或幾何意義與正數(shù)所表示的代數(shù)意義或幾何意義恰好相反，因此在本節(jié)教學(xué)中，可以運用與上相似的對比法，講解正角、負角以及零角的定義，并指出它們在日常生產(chǎn)、生活中的實際幾何意義，有助于加深對正角、負角以及零角的理解。
2．象限角是本節(jié)的重要概念之一，關(guān)于象限的劃分在初中已學(xué)習過，在這里有必要再強調(diào)一下。研究象限角的關(guān)鍵是平面直角坐標系的建立方法——角的頂點與坐標原點重合，角的始邊與X軸的非負半軸重合，不能說成是與x軸的正半軸重合，不能說成是與x軸的正半軸重合，因為正半軸不包括原點，就不完全包括角的始邊，角的始邊是以角的頂點為其端點的射線。
3．終邊相同角的集合的書寫是本節(jié)的難點，也是學(xué)好三角函數(shù)這一章最主要的基本技能。為了更好地掌握它，更深刻地理解它，可以從“數(shù)”到“形”或“形”到“數(shù)”兩個方面去研究。

①從“形”到“數(shù)”的研究：
按逆時針方向角α終邊轉(zhuǎn)一周與角α原終邊重合，此時角β=α＋360度；按順時針方向角α終邊轉(zhuǎn)一周與角α原終邊重合，此時角β=α-360度；如此類推，有角β=α＋k·360度（k∈Z）。
②從“數(shù)”到“形”的研究：
當k=1時，角β=α＋360度，表示角α的終邊按逆時針方向轉(zhuǎn)一周與原角α終邊重合，其角的度數(shù)增大；當k=-1時，角β=α-360度，表示角α的終邊按順時針方向轉(zhuǎn)一周與原角α終邊重合，其角的度數(shù)減小。在角β=α＋k·360度（k∈Z）中，當k>0，表示角α終邊按逆時針旋轉(zhuǎn)；當k<0，表示角α終邊按順時針旋轉(zhuǎn)。
4．終邊相同角的集合的書寫，應(yīng)當包括兩種基本情況：
①象限角；
②非象限角，也就是終邊落在x軸和y軸上的角，其詳細研究寫在下課時。
三、教學(xué)過程
1、提出問題
（為了更好地表現(xiàn)如下問題，有條件的學(xué)?？梢允褂枚嗝襟w輔助教學(xué)，讓角β集合實際化、形象化。）
①初中所學(xué)角的范圍。
②花樣游泳中，運動員旋轉(zhuǎn)的周數(shù)如何用角度計算來表示？
③汽車在前進和倒車中，車輪轉(zhuǎn)動的角度如何表示才比較合理？
④工人師傅在擰緊或擰松螺絲時，轉(zhuǎn)動的角度如何表示比較合適？
2．組織討論，發(fā)表己見，得出角的概念的推廣等有關(guān)概念
在這里把正角與汽車前進、螺絲擰緊等相聯(lián)系；負角與汽車倒車，螺絲擰松等相聯(lián)系；零角與汽車靜止、螺絲不動等相聯(lián)系，還可讓學(xué)生舉出更多日常生活中的實際例子。
3．象限角的產(chǎn)生
（可采用多媒體輔助教學(xué)）
①復(fù)習提問直角坐標系中的象限是如何劃分？
②按規(guī)定，使角的頂點與直角坐標系原點重合，角的始邊與x軸的非負半軸重合，那么角的終邊落在第幾象限，就叫做第幾象限角。
③可問：當角的終邊不落在象限內(nèi)，這樣的角叫做什么角？
4．終邊相同角的集合的書寫
遵守由特殊到一般的思維規(guī)律，讓學(xué)生觀察、聯(lián)想，得出規(guī)律后，歸納集合書寫，
①用多媒體投影（應(yīng)具有動感）課本圖4—3（l）中與30度終邊相同的角。
Ⅰ．投影表示按逆時針方向旋轉(zhuǎn)一周，得出k=1時，有390度=30度+360度。
Ⅱ．投影表示按順時針方向旋轉(zhuǎn)一周，得出k＝-l時，有-330度＝30度-360度。
②用多媒體再現(xiàn)k=±2，k=±3…時的角的大小，得出集合，30度＋k·360度，k∈Z。
③把30度換成α，得出終邊相同角的集合。
S={β|β=α＋k·360度（k∈Z）}  



QUOTE:
777.問:
每月第N個交易日
     答(南客):
參考如下：
tj:=month<>ref(month,1);
ts:barslast(tj)+1;  



QUOTE:
778.問:
      不知每一周的第幾天如何編寫？
     答(hx817):
tj:=WEEKDAY<ref(WEEKDAY,1);
ts:barslast(tj)+1;
    答(南客):
停牌時間久的話，的確有可能會出錯
我上面的代碼要準確的話，修正如下：
tmp:=intpart(date/100);
tj:=tmp<>ref(tmp,1);
ts:barslast(tmp);
“每一周的第幾天如何編寫？”
參考如下：
tj:=weekday-ref(weekday,1)<>DATEDIFF(ref(date,1),date);
ts:barslast(tj)+1;  



QUOTE:
779.問:
那我剛幫朋友寫了個，真實月均線變化（不含未來數(shù)據(jù)）那也錯啦！
我改到飛狐里改不好，請二位老師有空看看！
分析家我會源碼：
FXJ日線圖任意月均線真實變化}
INPUT:N(3);{均線月數(shù)調(diào)節(jié)}
xx:=MONTH<>ref(MONTH,1);a:=0;
yy:=sum(xx,0)-n+1;yy1:=sum(xx,0);
for i=1 to BARPOS-1 do
if ref(yy1,i)=yy then begin
a:=i;
break;
end;
if n-2<yy1 then
月均線:if(a=0,(sum(xx*ref(c,1),a)+c)/n,(sum(xx*ref(c,1),a+1)+c)/n);

飛狐改了不對源碼：
{日線圖任意月均線真實變化}
INPUT:N(3);{均線月數(shù)調(diào)節(jié)}
xx:=MONTH<>ref(MONTH,1);a:=0*c;
yy:=sum(xx,0)-n+1;yy1:=sum(xx,0);
for j=2 to DATACOUNT do
for i=j-1 downto 1 do
if yy1=yy[j] then begin
a[j]:j-i;
break;
end;

//if n-2<yy1 then//這里不算，上面越界！
//月均線:if(a=0,(sum(xx*ref(c,1),a)+c)/n,(sum(xx*ref(c,1),a+1)+c)/n);

     答(南客):
MONTH<>ref(MONTH,1);
這行語句，在特殊情況下會判斷出錯，比如某股，去年6月2日開始停牌，今年6月2日（或今年6月的某天）開始復(fù)牌
這類問題，可以不用循環(huán)，參考sumbars()函數(shù)的用法。  
if yy1=yy[j] then
這行語句，你推敲一下，循環(huán)的時候，最小 i 等于多少？假如 i 最小的時候是i=1,那么yy1[1]是否可以？為什么？
前面你實際上已經(jīng)考慮到了 j 應(yīng)該從2開始循環(huán)，但忘了還要考慮 j 的起始循環(huán)位置。
當 J=1 時，I=>J-1=>1，這時，yy1[I]就是yy1[1]，而yy1這個序列變量（數(shù)組）的有效起始位置是從第2根K線開始的。
你上面循環(huán)代碼中的 a ，大概是這樣的吧：
a:=sumbars(xx,n-1);
(阿耀用騎兵話代注:lbound()函數(shù),前幾天看您在創(chuàng)幻答題用過的，我沒想到Y(jié)Y1[1]不存在的。
飛狐公式寫法要求嚴謹功能強，分析家要求馬虎功能也弱。
平時馬虎貫了，到了飛狐里就出錯了 )



QUOTE:
780.問:
      我這個公式怎么不過關(guān)啊?
QQ:=IF((REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1))-(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))>=0,(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1))-(ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0);
AA:=IF((REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1))-(ASKVOL(1)+ASKVOL(2)+ASKVOL(3))<=0,close,0);
new:SUM(QQ+AA),0);
     答(hx817):
new:SUM(QQ+AA,0);


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




QUOTE:
781.問:
求得一個數(shù)據(jù)

我要求得一個數(shù)據(jù),   X=(REF(X,1)+C)/2;
假定某一支股票,從它上市第一天開始計算。
因為第一天沒有REF(X,1),用X=(C+O)/2來替代。

假定第一天C=10,O=8,則第一天的X=(10+8)/2=9,
第二天C=12,X=(REF(X,1)+C)/2=(9+12)/2=10.5,
第三天C=14,X=(REF(X,1)+C)/2=(10.5+14)/2=12.25,
第四天C=16,X=(REF(X,1)+C)/2=(12.25+16)/2=14.125,
以后以此類推。

實際上就是用X來替代O,(因為第一天沒有REF(X,1),則O=X)請教如何把數(shù)據(jù)轉(zhuǎn)換過來,我對控制語句函數(shù)實在是一竅不通。
     答(hx817):
表達式有了，直接用 x 替換 o 來畫 K 線
x:if(BARPOS=1,(C+O)/2,(REF(X,1)+C)/2);
    問:
我是想編寫一個操盤線的指標,計算的方式如上所述
因為第一天的X是從(C+O)/2而來的,所以REF(X,1)就是上一天的(C+O)/2,畫操盤線的規(guī)則是,第一天只能從C----O處畫線,第二天從第一天的X----C處畫線,第三天開始從第二天的(X+C)/2----C處畫線,以后以此類推
     答(hx817):
fc:=CLOSE;fo:=OPEN;
for i=1 to DATACOUNT do begin
  if i=1 then x:=(fc+fo)/2;
  if i>1 then x:=(x[i-1]+fc)/2;
end;
x;  



QUOTE:
782.問:
能否把您的源碼仔細地解釋一下
fc:=CLOSE;fo:=OPEN;
for i=1 to DATACOUNT do begin
  if i=1 then x:=(fc+fo)/2;
  if i>1 then x:=(x[i-1]+fc)/2;
end;
x;

     答(hx817):
fc:=CLOSE;//收盤價賦值給 fc ，為數(shù)組準備
fo:=OPEN;//同上
for i=1 to DATACOUNT do begin //循環(huán)從 1 到最后一個 K 線
  if i=1 then x:=(fc+fo)/2; //判斷是否第一根 K 線，如果是，處理第一個數(shù)據(jù)，即 x[1]=(fc[1]+fo[1])/2=第一個收盤價＋開票價除2
  if i>1 then x:=(x[i-1]+fc)/2;//除了第一根 K 線以后的算法
end;
x;//所有數(shù)據(jù)計算后在 x 的數(shù)組，就是 x 的序列變量  



QUOTE:
783.問:
      請教,[i-1]中的-1是表示什么意思？(是減去第一根K線嗎？)
     答(hx817):
當 i=2 時
if i>1 then x:=(x[i-1]+fc)/2;
就是 x[2]=(x(1)+fc[2])/2
i-1 就是取前一個數(shù)據(jù)  



QUOTE:
784.問:
      申明２５０天線不存在，怎么編寫
     答(股市騎兵00):
不知這樣可以嗎？
BARPOS<250;  



QUOTE:
785.問:
      能否將每天的分時均價編成曰k線的形式連接起來
     答(bajatje):
分時相當于1分鐘。。。
要分兩步
1、建名為 fj 的公式
w:=barslast(hour<ref(hour,1));
jc:sum(amount,w)/sum(v,w)/100;
jo:ref(amount,w)/ref(v,w)/100;
jh:hhv(jc,w);
jL:LLv(jc,w);
2、另建公式
jc:=STKINDI('','fj.jc',0,1);
jo:=STKINDI('','fj.jo',0,1);
jh:=STKINDI('','fj.jh',0,1);
jL:=STKINDI('','fj.jL',0,1);
STICKLINE(jc>jo or (jc=jo and jc>ref(jc,1),jh,jL,0.1,0),colorred;
STICKLINE(jc>jo or (jc=jo and jc>ref(jc,1),jo,jc,6,0),colorred;
STICKLINE(jc<jo or (jc=jo and jc<ref(jc,1),jh,jL,0.1,0),colorcyan;
STICKLINE(jc<jo or (jc=jo and jc<ref(jc,1),jo,jc,6,0),colorcyan;  



QUOTE:
786.問:
我想將如圖中的分時均價線編制成日k線形態(tài)，因為一天中的均價有開盤.最高.最低.收盤。將圖中綠色均天變成分析中的曰k線。
     答(bajatje):
均價K線需要有足夠的1分鐘數(shù)據(jù)(天數(shù))
K線.ALG  



QUOTE:
787.問:
      我想對當天和昨天的量進行提取處理（只要后2位）
我編的語句電腦不認 請幫忙編一下 最好把頭一天的量也能進行處理
     答(kjyhao):
       改了一下,通過了;但你的思路我不太清楚
a:=FRACPART(DYNAINFO(47)/100)*100;
B:=FRACPART(DYNAINFO(33)/100)*100;
a1:=(A-FLOOR(A))*10;
A2:FLOOR(a);
B1:=(B-FLOOR(B))*10;
b2:FLOOR(B1);



QUOTE:
788.問:
1.請幫忙分別寫出分時圖上的均價線上方和下方的成交量公式，要求能在日線顯示。
2.某條均線今天處于向下（下跌）例如30均線吧。股價上漲幾天使均線走平或向上，這個公式怎樣寫。

     答(清揚):
1、
先建立一個公式，比如是TEST2，公式內(nèi)容為：
A:=OPENMINUTES(TIME);
B:=SUM(V*C,A)/SUM(V,A);
JX:=IF(B=0,C,B),COLORYELLOW;
D:SUM((C>JX)*V,A); //均線上方成交量
E:SUM((C<JX)*V,A); //均線下方成交量。
//兩者相加未必是全天的成交量，因為沒有考慮相等的情況。

以上公式是被引用的，可在一分鐘K線中觀察輸出。
然后建立公式：
A:=STKINDI(STKLABEL,'TEST2.D',0,1);
B:=STKINDI(STKLABEL,'TEST2.E',0,1);
均線上方成交量:A,LINETHICK0;
均線下方成交量:B,LINETHICK0;
STICKLINE(A>0,0,A,3,0),COLORRED;
STICKLINE(B>0,0,-B,3,0),COLORCYAN;
//在日K線中顯示。
這樣一分鐘K線保存了幾天，就顯示幾天。如果想顯示多天，也可以用第一個公式來建立擴展數(shù)據(jù)，每天保存，第二個公式就要作相應(yīng)修改。
2、
均線走平或向上：
A:=MA(C,30);
A>=REF(A,1);
至于前面拐頭在前幾天等情況，要視具體而定。



QUOTE:
789.問:
怎樣在以下公式內(nèi)加入可條件選股的內(nèi)容（或改寫成可以預(yù)警的指標公式）。
要求：1 當股價上穿XX時發(fā)出買入信號。
      2 當股價下穿YY時發(fā)出買出信號。                                                      {Pivot Point Channe , PPC , 基準點信道}
XA:=REF(H, 1)>H and REF(H , 1)>REF(H , 2) ;
XB:=REF(H , 1)>H and REF(H , 1)=REF(H , 2) and REF(H , 2)>REF(H , 3) ;
XC:=REF(H , 1)=H and REF(H , 1)<REF(H , 2) ;
X:=XA+XB+XC ;
XR:=BARSLAST(X),LINETHICK0;
XS:=REF(High,1);
XT:=REF(XS,XR);
XX:REFX(XT,1); {峰位}
YA:=REF(L , 1)<L and REF(L , 1)<REF(L , 2) ;
YB:=REF(L , 1)<L and REF(L , 1)=REF(L , 2) and REF(L , 2)<REF(L , 3);
YC:=REF(L , 1)=L and REF(L , 1)<REF(L , 2) ;
Y:=YA+YB+YC;
YR:=BARSLAST(Y),LINETHICK0;
YS:=REF(Low,1);
YT:=REF(YS,YR);
YY:REFX(YT,1); {谷位}

GG:=" kkk20.情況A " ;
HH:=" kkk20.情況B " ;
X:=BarsLast( HH>=2 ) ;
Y:=BarsLast( GG>=1 ) ;
SG:=IF( GG>=1 , SUM( GG , X ) , 0 ) ;
SH:=IF( HH>=2 , SUM( HH , Y ) , 0 ) ;
DRAWICON(sg=1,l,4);
DRAWICON(sh=2,h,5);

     答(hx817):
別名: 交叉函數(shù)
所屬類別: 邏輯函數(shù)  參數(shù)數(shù)量: 2

兩條線交叉。
用法:
CROSS(A,B)表示當A從下方向上穿過B時返回1，否則返回0
例如:
CROSS(MA(CLOSE,10),MA(CLOSE,20))表示10日均線與20日均線交金叉

1 當股價上穿XX時發(fā)出買入信號。CROSS(CLOSE,XX)
2 當股價下穿YY時發(fā)出買出信號。CROSS(YY,CLOSE)  



QUOTE:
790.問:
      能漲多少公式 ？
     答(pengyou):
Var1:=ABS(l-REF(CLOSE,P1));
Var2:=MA(VOL,P1)/capital;
Var3:=Var1/CLOSE*10;
Var4:=Var3/Var2;
Var5:=ABS(l-REF(CLOSE,P1+P2));
Var6:=Var5/CLOSE*10;
Var7:=Var6/Var2;
L1: Var7*Var4*10;
L2: EMA(L1,10)*1.5;  





QUOTE:
791.問:
該公式為何不能輸出股票代碼（作文件名），輸出的文件名為當天日期
使用版本：3。0。40208試用版
源碼：  
var1:=c;//成交價
var2:=vol;//成交量
var3:=ISBUYORDER;//是否主動性買單
var4:=STRTONUM(STKLABEL);//ZQDMNUM;
var5:=date;
var6:=time;
<%
v1=FFL.VarData("var1")
v2=FFL.VarData("var2")
v3=FFL.VarData("var3")
vCode=FFL.VarData("var4")
v5=FFL.VarData("var5")
v6=FFL.VarData("var6")
dim fso,txtf
filename="e:\data\" & cstr(vCode(1)) & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(FileName) then
  iomode=8
  create=False
  Set txtf=fso.OpenTextFile(FileName,iomode,create)
else
  iomode=2
  create=True
  Set txtf=fso.OpenTextFile(FileName,iomode,create)
end if
for i=0 to ubound(v1)
  s=cstr(date) & " " & cstr(v5(i)) & " " & cstr(v1(i)) & " " & cstr(v2(i)) & " " & cstr(v3(i))
  txtf.WriteLine(s)
  s=""
next
txtf.close
%>
var4:1

    答(南客):
試試：
var1:c;//成交價
var2:=vol;//成交量
var3:=ISBUYORDER;//是否主動性買單
var4:=STKLABEL;//ZQDMNUM;
var5:=date;
var6:=time;
<%
v1=FFL.VarData("var1")
v2=FFL.VarData("var2")
v3=FFL.VarData("var3")
vCode=FFL.VarData("var4")
v5=FFL.VarData("var5")
v6=FFL.VarData("var6")
dim fso,txtf
filename="e:\data\" & vCode & ".txt"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(FileName) then
  iomode=8
  create=False
  Set txtf=fso.OpenTextFile(FileName,iomode,create)
else
  iomode=2
  create=True
  Set txtf=fso.OpenTextFile(FileName,iomode,create)
end if
for i=0 to ubound(v1)
  s=cstr(date) & " " & cstr(v5(i)) & " " & cstr(v1(i)) & " " & cstr(v2(i)) & " " & cstr(v3(i))
  txtf.WriteLine(s)
  s=""
next
txtf.close
%>




QUOTE:
792.問:
我想在主圖背面上下的條形色塊如圖，怎么搞？
    答(kjyhao):
試試這個,條件可根據(jù)自己的要求定,
xma1:=MA(C,5);xma2:=MA(C,10);//以均線為條件;
xtj1:=CROSS(xma1,xma2) or xma1>xma2;
xtj2:=CROSS(xma2,xma1) or xma1<xma2;
FILLRGN(xtj1,SYSPARAM(5),SYSPARAM(4)),ColorDB3FCA;
FILLRGN(xtj2,SYSPARAM(5),SYSPARAM(4)),Color528608;
ktj:=(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1));
STICKLINE(ktj,HIGH,LOW,0.1,1),colorred;
STICKLINE(ktj,CLOSE,OPEN,7,1),colorred;
STICKLINE(NOT(ktj),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(ktj),CLOSE,OPEN,7,0),colorcyan;
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20);
ma30:MA(CLOSE,30);



QUOTE:
793.問:
請你看看以下一段文字,能不能按它的意思做一個指標
%B 布林極限
－－判斷原則
　　是由布林線所衍生出來的指標，主要的作用在于輔助布林線辨別買賣點的真?zhèn)巍?br>％BB的計算方法和隨機指標類似。但是，隨機指標波動于0～100之間，而％BB指標可以大于100，也可以小于0。
(1)％BB＞100時，代表股價超越布林線上限。
(2)％BB＜0時，代表股價超越布林線下限。
(3)股價一頂比一頂高，而％BB一頂比一頂?shù)蜁r，暗示股價將反轉(zhuǎn)下跌。
(4)股價一底比一底低，而％BB一底比一底高時，暗示股價將反轉(zhuǎn)上漲。

    答(kjyhao):
是否象下面這個制標!振蕩指標的波動區(qū)間;它的原理是由布林線所衍生出來的;但不是布林線;
看看是不是這個:
CY%BB優(yōu)化布林極限指標

指標原理：

CY%BB指標是把短線波動放大，并通過指數(shù)平滑移動平均產(chǎn)生買賣信號，特別適合捕捉盤整行情中高拋低吸的機會。
形態(tài)特點：
一、CY%BB指標共有5條橫坐標線，中間的一條為0線，在±1倍（±100）標準差和±1.7倍（±170）標準差的位置各有一條橫坐標線，±1倍線相當于KD指標的20和80，±1.7倍線相當于KD指標的0和100；
二、CY%BB指標還有兩條走勢線，一條是黃色線，另一條是白色線；
三、CY%BB指標值約70%的時間運行在±100之間，約95%的時間運行在±170之間，超過±170標準差的機會少于5%。
主要作用：
一、捕捉盤整行情中高拋低吸的機會；
二、突破行情中防止在莊家震倉、整理時提前下車。
使用要領(lǐng)：
一、在盤整行情中CY%BB指標黃線達－100以下，并上穿CY%BB指標白線形成金叉時買入；
二、CY%BB指標黃線達+100以上，并下穿CY%BB指標白線形成死叉時賣出；
三、突破行情中CY%BB指標黃線可以在較長時間內(nèi)保持在+100以上運行，此時應(yīng)持股，等其下穿+100線時再賣出。
代碼：  
input:n(20,1,60);
A:=MA(C,N);
布林極限:100*(c-a)/std(C,n);
布林K值:EMA(布林極限,3);
100,POINTDOT;
-100,POINTDOT;
170,POINTDOT;
-170,POINTDOT;



QUOTE:
794.問:
前期高點,一般股票在上升時,總有一個突破前期高點的問題,我的想法是能不能做一個類似移動黃金線的指標,就是當我啟動光標時,指向今日股價時,這樣相對著的前期高點就會顯出一條線,只是這個高點最少也得在今日股價的5%以上,或者就是前面的M頭一類的高點,你看可以嗎?或者就在股價的頸線位處表達出來,
我之所以這樣想,就是看股價能不能漲,如果能加上量的變化,分辯出真突破和假突破就更好了.

    答(kjyhao):
試試;
V1:=sysparam(4);//啟動光標,圖可見區(qū)間最高點;
qh:v1,colorred;
或
把它放在任何主圖公式后面既可,前期高點線就只在光標出現(xiàn)時有!!!
A:=BARSCOUNT(C);
A1:=A=SYSPARAM(2);
A2:=A=SYSPARAM(1);
A3:=IF(c>0,A2,A1);
B:=BARSLAST(A3);
v1:=hhv(h,b);
qh:v1,colorred;



QUOTE:
795.問:
求教:如何求某月指定交易日的數(shù)據(jù),不是日歷日
即某月第一或第三個交易日的數(shù)據(jù),而不是一月一日,一月三日的數(shù)據(jù)

    答(hx817):
先建立一個引用的公式 OHLC
fc:c;

再建立新公式
fm:=10411;//指定年月
n:=3;//指定第 N 個交易日
zqdm:='SH1A0001';//指定證券
tj:=COUNT(fm-(year-1900)*100-month=0,0)=n;
ref(STKINDI(zqdm,'ohlc.fc',0,-1),BARSLAST(tj));//取證券對應(yīng)年月第 N 個交易日的收盤價




QUOTE:
796.問:
是這樣一個公式,比方股價從5.00元往上打5.01元,那5.01元成交的都計算為主動性買盤,
再往上打5.02元成交的都計算為主動性買盤,再往上打5.03元成交的也都是主動性買盤,當回下
(也就是往下打5.02元的都為主動性賣盤).同理,它是以價格成交來決定主動性買盤和主動性賣盤的.
    答(hx817):
通過重新定位前面比較的收盤價來做為比較價位，完成上面要求
參考：
tj:=CLOSE=REF(CLOSE,1);
N:=tj*(BARSLAST(CROSS(tj,0.5))+1)+1;
OBV:SUM(IF(CLOSE>REF(CLOSE,N),VOL,IF(CLOSE<REF(CLOSE,N),-VOL,0)),0);



QUOTE:
797.問:
若以今天為起點,如何在今日的前5天K線上畫一豎直線?又在今日的前10天處畫豎直線?并在直線上標出數(shù)字?
能做出來嗎?
還有不是以今天為起點,而是以任意選的一天為起點,再往前畫直線可能嗎?

    答(bajatje):
p:=BARPOS=datacount-n;//n--前移天數(shù)
VERTLINE(p);
或
p:=if(條件成立,BARPOS,0);
VERTLINE(p-n>0);
    問:
低版本的飛弧好象不能做這個公式,
     答(bajatje):
低版本可寫為：
VERTLINE(CROSS(BACKSET(條件成立,N),0.5));



QUOTE:
798.問:
怎么寫回調(diào)上攻
    答(yngs):
INPUT:漲幅(29,8,94);
a:=(c-ref(c,1))/ref(c,1)*100;
a1:=BARSLAST( a>漲幅);
a2:=if(a1>0,1,0);
TT:=MA((CLOSE-REF(CLOSE,14))/REF(CLOSE,14),7);
HZ:=EMA(TT,14);
m47:=ma(c,47);
m48:=Ema(m47,3);
m49:=ema(m48,3);
m50:=Ema(m49,3);
HZ>=-0.028 and a2=0 and m47>m48 and m47>m49 and m47>m50 and h/c<1.008



QUOTE:
799.問:
波動性----N的含意
海龜用一個理查德.丹尼斯和比爾.埃克哈特稱之為N的概念來表示某個特定市場根本的波動性。N就是TR（True Range，實際范圍）的20日指數(shù)移動平均，現(xiàn)在更普遍地稱之為ATR。從概念上來看，N表示單個交易日某個特定市場所造成的價格波動的平均范圍，它說明了開盤價的缺口。N同樣用構(gòu)成合約基礎(chǔ)的點（points）進行度量。
每日實際范圍的計算：
TR（實際范圍）=max(H-L,H-PDC,PDC-L)
式中：
H-當日最高價
L-當日最低價
PDC-前個交易日的收盤價
用下面的公式計算N：
N=(19×PDN+TR)/20
式中：PDN-前個交易日的N值
TR-當日的實際范圍
因為這個公式要用到前個交易日的N值，所以，你必須從實際范圍的20日簡單平均開始計算初始值。

我只寫出來TR表達式,N應(yīng)該怎么表達的請版主指點一下:
TR:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW))

    答(kjyhao):
試試:
方法1
TR:=MAX(MAX((HIGH-LOW),ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW));
NN:=MA(TR,20);
FOR I=23 TO DATACOUNT DO BEGIN
  N[I]:(19*NN[I-1]+TR[I])/20;
  NN[I]:=N[I];
END;




QUOTE:
800.問:
請問如何自編公式實現(xiàn)WINNER函數(shù), 用 C 語言或飛狐,分析家語言都行
我找遍internet, 也問許多人，可就是沒人知道答案
CC := DYNAINFO(7); { 今日收盤 }
ww := IF(L>CC, 0, IF(H<CC, 1, (CC-L+0.01)/(H-L+0.01))); { 每日獲利盤 }
Winner: DMA(ww, VOL/CAPITAL)*100; { 獲利盤 }
比較起來還是和分析家,飛狐的有很大出入
    答(股市騎兵00):
轉(zhuǎn)個南客老師的貼：

在飛狐中，如何自行編寫籌碼分布公式
以一個簡單的按成交量平均分配為例，
variable:pv[50]=0,pc[50]=0;
hh:=hhv(high,0);
ll:=llv(low,0);
fv:=vol;
fh:=high;
fl:=low;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
  sh:=(fh-ll[p])/dd+1;
  sl:=(fl-ll[p])/dd+1;
  dj:=fv/(sh-sl+1);
  for j=sl to sh do pv[j]:=pv[j]+dj;   
end;
s:=0;
for i=1 to 50 do if s <pv then s:=pv;
bl:=s/(sysparam(3)-sysparam(2))*2;
drawsl(barpos=sysparam(3),sysparam(5),0,pv[1]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd,0,pv[2]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*02,0,pv[03]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*03,0,pv[04]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*04,0,pv[05]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*05,0,pv[06]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*06,0,pv[07]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*07,0,pv[08]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*08,0,pv[09]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*09,0,pv[10]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*10,0,pv[11]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*11,0,pv[12]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*12,0,pv[13]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*13,0,pv[14]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*14,0,pv[15]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*15,0,pv[16]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*16,0,pv[17]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*17,0,pv[18]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*18,0,pv[19]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*19,0,pv[20]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*20,0,pv[21]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*21,0,pv[22]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*22,0,pv[23]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*23,0,pv[24]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*24,0,pv[25]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*25,0,pv[26]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*26,0,pv[27]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*27,0,pv[28]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*28,0,pv[29]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*29,0,pv[30]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*30,0,pv[31]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*31,0,pv[32]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*32,0,pv[33]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*33,0,pv[34]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*34,0,pv[35]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*35,0,pv[36]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*36,0,pv[37]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*37,0,pv[38]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*38,0,pv[39]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*39,0,pv[40]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*40,0,pv[41]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*41,0,pv[42]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*42,0,pv[43]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*43,0,pv[44]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*44,0,pv[45]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*45,0,pv[46]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*46,0,pv[47]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*47,0,pv[48]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*48,0,pv[49]/bl+1,1),COLORGRAY;
drawsl(barpos=sysparam(3),sysparam(5)+dd*49,0,pv[50]/bl+1,1),COLORGRAY;

[ 本帖最后由 AHFYXL1 于 2005-11-29 17:09 編輯 ]

《第十八樓》

目錄索引：





QUOTE:
801.問:
均線拐頭向上向下，均線日期可設(shè)
    答(股市騎兵00):
INPUT:N(5);//參數(shù)
ma1:=ma(c,n);
ma1>ref(ma1,1);//上。
ma1<ref(ma1,1);//下。



QUOTE:
802.問:
      指南針的強者橫強公式,感覺這指標不錯,請高給改造成主圖指標.
VAR1:=AMOUNT/VOL/100;
VAR2:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR3:=SUM(AMOUNT,34)/VAR1/100;
VAR4:=DMA(VAR2,VOL/VAR3);
VAR5:=100*(C-VAR4)/VAR4;
次強上軌:(MA(VAR5,20)+STDP(VAR5,20)),COLORRED;
次強下軌:(MA(VAR5,20)-STDP(VAR5,20)),COLORRED;
強弱線:(次強上軌+次強下軌)/2,POINTDOT,COLORWHITE,LINETHICK2;
強勢區(qū)上軌:(MA(VAR5,20)+1.7*STDP(VAR5,20)),COLOR10FFFF;
強勢區(qū)下軌:(MA(VAR5,20)-1.7*STDP(VAR5,20)),COLOR10FFFF;
標準線:VAR5,COLORGREEN;
    答(釋少男):
{n1 5 ， n2  2 ，  n  20 ， p  20  ，a1  8 ， a2  20 ， a3  8}
A:=wMA(C,n1);
B:=REF(A,n2);
{STICKLINE(A>=B,A,b,8,1),COLOR000099;
STICKLINE(A>=B,A,B,5,1),COLOR0000BB;
STICKLINE(A>=B,A,B,3,1),COLOR0000DD;
STICKLINE(A>=B,A,B,2,1),COLOR0000FF;
STICKLINE(A>B,A,H,1,1),COLOR0000ff;

STICKLINE(A<=B,A,B,8,2),COLOR009900;
STICKLINE(A<=B,A,B,5,2),COLOR00bb00;
STICKLINE(A<=B,A,B,3,2),COLOR00cc00;
STICKLINE(A<=B,A,B,2,2),COLOR00ee00;

STICKLINE(A<B,A,L,1,0),COLORGREEN; }

控盤點:(2*a+ref(a,1)+ref(a,2)+ref(a,3))/5,LINETHICK1;{Bollinger's  Band Net , BBN , 天羅地網(wǎng)}

中:WMA(CLOSE,n),colorFF9999,LINETHICK2;
天:中+(p/A1)*STD(C,N),colorff9911,linethick2;
羅:中+(p/A2)*STD(CLOSE,N),COLORGREEN;
地:中-(p/A2)*STD(CLOSE,N),COLOR00FFFF;
網(wǎng):中-(p/A3)*STD(CLOSE,N),COLORFF66ff,linethick2;
drawnumber(islastbar,中,中,2),shift3,align1,colormagenta;
drawnumber(islastbar,天,天,2),shift3,align1,colormagenta;
drawnumber(islastbar,羅,羅,2),shift3,align1,colormagenta;
drawnumber(islastbar,地,地,2),shift3,align1,colormagenta;
drawnumber(islastbar,網(wǎng),網(wǎng),2),shift3,align1,colormagenta;
fo:=OPEN;
fh:=HIGH;
fl:=LOW;
fc:=CLOSE;
<%
vo=ffl.vardata("fo")
vh=ffl.vardata("fh")
vl=ffl.vardata("fl")
vc=ffl.vardata("fc")
last=ubound(vc)

vc(0)=(vh(0)+vl(0)+2*vc(0))/4
for i=1 to last
  vo(i)=(vo(i-1)+vc(i-1))/2
  if vo(i)>vh(i) then vh(i)=vo(i) else vh(i)=vh(i)
  if vo(i)<vl(i) then vl(i)=vo(i) else vl(i)=vl(i)
  vc(i)=(2*vc(i)+vh(i)+vl(i))/4
next

ffl.vardata("fo")=vo
ffl.vardata("fh")=vh
ffl.vardata("fl")=vl
ffl.vardata("fc")=vc

%>

KK:=IF(fc>=fo AND (fc>=REF(fc,1) or REF(fc,1)>=REF(fo,1)),1,IF(fc<fo AND (fc<REF(fo,1)  or REF(fc,1)<REF(fo,1)),-1,0));
多空線:=(MA(CLOSE,6)+MA(CLOSE,13)+MA(CLOSE,26))/3,COLORYELLOW;
今:=(fo+fc)/2,SHIFT1;
轉(zhuǎn):=IF(KK=1,MIN(fc,fo),IF(KK=-1,MAX(fc,fo),IF(REF(KK,1)=1,MIN(fc,fo),IF(REF(KK,1)=-1,MAX(fc,fo),(fc+fo)/2)))),POINTDOT,COLORYELLOW;

Balance:=If(C=O,C,If(C>O,C+(H-C)/2,C-(C-L)/2));
BBase:=(H-L)/2;
高點:=(Balance+BBase),SHIFT1,COLORGRAY;
低點:=(Balance-BBase),SHIFT1,COLORGRAY;
明高:=(Balance+BBase),LINETHICK0,COLORGRAY;
明低:=(Balance-BBase),LINETHICK0,COLORGRAY;

EXPLAIN(H>=L,'區(qū)   間   預(yù)   測：'),COLORMAGENTA;
EXPLAINEX(H>=L,'今日高點：',REF(高點,1),2,0),COLORCYAN;
EXPLAINEX(H>=L,'今日低點：',REF(低點,1),2,0),COLORCYAN;
EXPLAINEX(H>=L,'明日高點：',明高,2,0),COLORYELLOW;
EXPLAINEX(H>=L,'明日低點：',明低,2,0),COLORYELLOW;

drawicon(天<ref(天,1) AND ISLASTBAR,天,5),shift1,align2;
drawicon(天>ref(天,1) And ISLASTBAR,天,4),shift1,,align1;

drawicon(羅<ref(羅,1) and islastbar,羅,5),shift1,,align2;
drawicon(羅>ref(羅,1) and islastbar,羅,4),shift1,,align1;

drawicon(中>ref(中,1) and ISLASTBAR,中,4),shift1,,align1;
drawicon(中<ref(中,1) And ISLASTBAR,中,5),shift1,,align2;

drawicon(地<ref(地,1) and islastbar,地,5),shift1,,align2;
drawicon(地>ref(地,1) and islastbar,地,4),shift1,,align1;

drawicon(網(wǎng)>ref(網(wǎng),1) and ISLASTBAR,網(wǎng),4),shift1,,align1;
drawicon(網(wǎng)<ref(網(wǎng),1) and ISLASTBAR,網(wǎng),5),shift1,,align2;母倍數(shù):=IF(DATAPERIOD>=6,10000,100000);




QUOTE:
803.問:
飛狐能不能實現(xiàn)這樣的功能：
隨光標的移動找到當日K線的最低點，然后能自動劃出最低點價格X倍的橫線。
    答(股市騎兵00):
LL:=L;
X*LL[SYSPARAM(1)];



QUOTE:
804.問:
      混沌分形理論的波浪結(jié)構(gòu)公式源碼

    答(jesse_huch):
鱷魚線
AAA:=MA(CLOSE,E1);
MA1:REF(AAA,8),COLORBLUE;
BBB:=MA(CLOSE,E2);
MA2:REF(BBB,5),COLORRED;
CCC:=MA(CLOSE,E3);
MA3:REF(CCC,3),COLORGREEN;

其中E1:13,E2:8,E3:5

分行信號
INPUT:N(3,0,600);
H1:=BACKSET(REF(HIGH,N)=HHV(HIGH,2*N+1),N+1);
GD:=FILTER(H1,N) AND HIGH=HHV(HIGH,N+1);
DRAWICON(GD,HIGH*1.02,10);
L1:=BACKSET(REF(LOW,N)=LLV(LOW,2*N+1),N+1);
DD:=FILTER(L1,N) AND LOW=LLV(LOW,N+1);
DRAWICON(DD,LOW*0.99,11);

AO速度公式
INPUT:C1(5,0,600);
INPUT:C2(34,0,600);
INPUT:N(5,0,600);
HU:=MA((HIGH+LOW)/2,C1);
CH:=MA((HIGH+LOW)/2,C2);
AO:HU-CH,,COLORGRAY,LINETHICK0;
均線:MA(AO,N),COLORGRAY;
速度:HU-CH,STICK,COLOROOFF33;
STICKLINE(AO>REF(AO,1) OR AO=REF(AO,1),AO,0,0.8,1),COLORRED;
STICKLINE(AO<REF(AO,1),AO,0,0.8,1),COLORGREEN;



QUOTE:
805.問:
要求：
第一：時間是每周的星期一(連續(xù)三天陰線 )
第二：跌幅大于5%

    答(bajatje):
w:=barslast( hour=1);
f:=c/ref(c,1);
f<0.95 and w=0;

二
count(o<c,3)=3;



QUOTE:
806.問:
請幫助做一個量的公式！
要求：
當天K線是紅色的，量就為紅
否則為綠

    答(股市騎兵00):
x:=c>o or (c=o and c>ref(c,1));
STICKLINE(x,0,v,9,1),Color0000FF;
STICKLINE(x=0,0,v,9,0),Color00FF00;



QUOTE:
807.問:
如何寫：
在光標指示的前12天處花一道豎線

    答(bajatje):
VERTLINE(SYSPARAM(1)-12=barpos)
    答(pengyou):
       也可以
n:=SYSPARAM(1);
a:=barpos;
VERTLINE(n-12=a);
VERTLINE(n=a);

你也可以加上數(shù)字
dum----



QUOTE:
808.問:
      向量K棒全對,除了一個圓圈,
我猜可能是分時數(shù)據(jù)的錯誤,因為數(shù)據(jù)有誤的那天是11月26日,不是特別的時間切換點,
能否再幫忙看一次向量K棒碼

    答(股市騎兵00):
n:=240/5;//240代表臺灣每天固定的總交易時間，單位分鐘！我不清楚就用240先代替了！
hv:=v;hc:=c;
xx:=INTPART((BARPOS-1)/n);
hh:=hhvbars(v,0);q:=DATACOUNT-hh;
y:=BARSLAST(xx<>ref(xx,1))+1;hh1:=hhvbars(v,y);

a:=0*c;b:=0*c;
for i=1 to DATACOUNT do begin
  if xx=0 and DATACOUNT<=n then begin
    a:=hv[q[DATACOUNT]];
      b:=hc[q[DATACOUNT]];
end;
  if xx=0 and DATACOUNT>n then begin
    a:=hv[n-hh[n]];
      b:=hc[n-hh[n]];
end;
  if xx>0 and xx<xx[DATACOUNT] then begin
    a:=hv[(xx+1)*n-hh1[(xx+1)*n]];
      b:=hc[(xx+1)*n-hh1[(xx+1)*n]];
end;
  if xx=xx[DATACOUNT] and xx>0 then begin
    a:=hv[DATACOUNT-hh1[DATACOUNT]];
      b:=hc[DATACOUNT-hh1[DATACOUNT]];
   end;
end;
高V:A;
高C:B;
{RV:STKINDI(STKLABEL,'S5.高V',0,2);
RC:STKINDI(STKLABEL,'S5.高C',0,2);}



QUOTE:
809.問:
三均線中，Ｑ交Ｗ點到Ｑ交Ｅ點（交叉點下垂到Ｗ）的Ｑ和Ｗ兩線之間三角涂色．
能否將圖中紅塊，在指標中表示？

    答(股市騎兵00):
應(yīng)該可以吧，不知你是什么線，就以均線為例了，不知我有沒理解錯
M1:MA(C,3);M2:MA(C,10);
X:=CROSS(M1,M2);
Y:=BARSLAST(X)<4;//3日均線和10日均線相交小于4日就涂色。
FILLRGN(Y,M1,M2);
    問:
我想用三根均線，如
q:ma(c,5);
w:ma(c,10);
e:ma(c,20);
當Ｑ線上穿Ｗ?。啪€時，Ｑ線　在Ｗ?。丫€間的這段線到Ｗ線畫個直角三角
    答(股市騎兵00):
q:ma(c,3);
w:ma(c,10);
e:ma(c,30);
x:=max(w,e);
y:=min(w,e);

p1:=CROSS(q,x);p2:=CROSS(q,y);
k:=BARSLAST(p2);k1:=BARSLAST(p1);
u:=ref(ANY(q<y,k1),1);
g:=BACKSET(p1 and u,k+1)-p1;
FILLRGN(g>0,q,y);
    答(股市騎兵00):
q:ma(c,3);
w:ma(c,10);
e:ma(c,30);
x:=max(w,e);
y:=min(w,e);

p1:=CROSS(q,x);p2:=CROSS(q,y);
k:=BARSLAST(p2),LINETHICK0;k1:=BARSLAST(p1);
u:=ANY(q<y,k1);
g:=BACKSET(REFX(p1,1) and u and REFX(p2,1)=0 and k<4,k),LINETHICK0;
FILLRGN(g>0 ,q,y);



QUOTE:
810.問:
      我想把主圖上的數(shù)值分幾行來表示，因為我要在主圖上顯示的數(shù)值很多，
如果不分行的話一行顯示不完。請問如何表達
    答(股市騎兵00):
       參考：
fc:=c;fh:=h;p:=SYSPARAM(1);
DRAWTEXT(BARPOS=SYSPARAM(2),SYSPARAM(4),'收盤:'+NUMTOSTR(fc[p],2)+'\n最高:'+NUMTOSTR(fh[p],2));//\n意思換行。





QUOTE:
811.問:
      要實現(xiàn):
1,從A成立的高點到下一個A成立的高點(A與A相臨的情況);
2,從A成立的高點到下一個B成立的低點(A與B相臨的情況);
3,從B成立的低點到下一個B成立的低點(B與B相臨的情況);
4,從B成立的低點到下一個A成立的高點(B與A相臨的情況);

能否將上面的第1、4種情況的線段畫成紅色，將第2、3種情況
的線段畫成綠色。

    答(bajatje):
d:=a+b;//a、b不能同時成立
j:=a*h+b*L;
POLYLINE(d,j);
    答(bajatje):
d:=a+b;//a、b不能同時成立
w:=barslast(d);
j:=a*h+b*L;
POLYLINE(d,j);
PARTLINE(j>ref(j,w),j);



QUOTE:
812.問:
      請幫忙把這個FXJ公式改成飛狐的
{完全換手及所用天數(shù)}
VARIABLE:K=1;
VAR1:=SUM(VOL,0);
VAR2:=VAR1/CAPITAL;
N:=FLOOR(VAR2);
IF N=REF(N,1)+1 THEN BEGIN
STICKLINE(C,0,80,4,1);
DRAWTEXT(C,80,' 第'),ALIGN0,COLORGREEN;
DRAWTEXT(C,70,' '+NUMTOSTR( N)),ALIGN0,COLORRED;
DRAWTEXT(C,60,' 次'),ALIGN0,COLORGREEN;
DRAWTEXT(C,50,' 完'),ALIGN0,COLORGREEN;
DRAWTEXT(C,40,' 全'),ALIGN0,COLORGREEN;
DRAWTEXT(C,30,' 換'),ALIGN0,COLORGREEN;
DRAWTEXT(C,20,' 手'),ALIGN0,COLORGREEN;
DRAWTEXT(C,10,' '+NUMTOSTR( K)+'天'),ALIGN0,COLORGREEN;
K:=1;
END
ELSE
K:=K+1;

    答(股市騎兵00):
{限制坐標參數(shù)：0;5;}
VAR1:=SUM(VOL,0);
VAR2:=VAR1/CAPITAL;
N:=FLOOR(VAR2);
TS:=SUMBARS(VOL,CAPITAL);
X:=N>REF(N,1);
VERTLINE(x);
DRAWTEXT(X,3,'次換手');
DRAWNUMBER(X,3,N,0),ALIGN2;
DRAWTEXT(X,2,'天');
DRAWNUMBER(X,2,TS,0),ALIGN2;



QUOTE:
813.問:
     求助編一個公式,量比逐漸放大,股價也逐漸走高,在分時圖中量比總的趨勢是放大的,
     價格是逐漸走高的即時選股公式
    答(hx817):
input:n(4);//參數(shù)N用來設(shè)置連續(xù)多少周期走高，用在短周期，可設(shè)置大些
T:=BARSLAST(date<>ref(date,1))+1,LINETHICK0;
LB:=(240/OPENMINUTES(TIME))*(SUM(VOL,T)/"VOL.MA1##DAY");//量比
tj:all(lb>ref(lb,1),n) and all(c>ref(c,1),n);



QUOTE:
814.問:
請你幫做一個當日K線是十字星的選股指標

    答(股市騎兵00):
十字星對價格上有比例要求。
BETWEEN(c/o,0.997,1.003) and h>max(c,o) and l<min(c,o);



QUOTE:
815.問:
想法是當日收的十字星在近期是最低點,這個近期就是周期,是可以設(shè)置的,好比說N是5日,
十日,30日等不限,使用者可以自己調(diào)整,但十字星的最低價也是近期最低價,

    答(kjyhao):
input:n(20,1,60);
BETWEEN(c/o,0.997,1.003) and h>max(c,o) and l<min(c,o) and l=llv(l,n);



QUOTE:
816.問:
sTD(x/n)為x的n日估算標準差怎么理解

    答(kjyhao):
這是一個標準的數(shù)學(xué)表達方式;即:STD估算標準差，即為估算樣本方差的開方;
而方差，可以用公式:MA(POW(C,2),5)-POW(MA(C,5),2);求出!!!
如:
MA(POW(C,2),5)-POW(MA(C,5),2);
估算樣本方差：是總體方差的N/(N-1)倍。
設(shè):n=5;

std(c,5);
aa:=MA(POW(C,2),5)-POW(MA(C,5),2);
sqrt(aa*5/(5-1));



QUOTE:
817.問:
分鐘周期MACD,并把所有周期的MACD合并了
    答(股市騎兵00):
{<日，周，月>同圖MACD代碼，公式名：X12}{Q為周期參數(shù)調(diào)節(jié)，=0為日線，=1為周線，=2為月線，全部沒有未來數(shù)據(jù)！}
input:long(26,20,100),short(12,5,40),m(9,2,60),q(0,0,2);
fc:=c;x:=DATE>ref(DATE,1);
y:=datediff(ref(date,1),date)<>weekday-ref(weekday,1);
z:=intpart(date/100)<>REF(intpart(date/100),1);
if q=0 then begin rd:=x; DRAWTEXT(ISLASTBAR,0,'<日>'),SHIFT1; end;
if q=1 then begin rd:=y; DRAWTEXT(ISLASTBAR,0,'<周>'),SHIFT1; end;
if q=2 then begin rd:=z; DRAWTEXT(ISLASTBAR,0,'<月>'),SHIFT1; end;
xq:=BARSLAST(rd)+1;
dyz:=DATACOUNT-BARSSINCE(xq=1)-1;
ko:=dyz[DATACOUNT];
e1[ko]:=fc[ko];
e2[ko]:=fc[ko];
DIFF[ko]:=e1[ko]-e2[ko];
DEA[ko]:=DIFF[ko];

for i=ko+1 to DATACOUNT do
begin
  e1:=(2*fc+(SHORT-1)*e1[i-xq])/(SHORT+1);
  e2:=(2*fc+(LONG-1)*e2[i-xq])/(LONG+1);
  DIFF:e1-e2;
  DEA:(2*DIFF+(m-1)*DEA[i-xq])/(m+1);
  MACD:2*(DIFF-DEA),COLORSTICK;
end;
//引用分鐘K線起點日期代碼,驗證公式時使用的。
cc:ref(date,BARPOS-1),LINETHICK0;
          .................

{驗證公式代碼,15分鐘K線數(shù)據(jù)必須準確！}
input:long(26,20,100),short(12,5,40),m(9,2,60);
cc:=STKINDI(STKLABEL,'x12.cc',0,3);
x:=DATACOUNT-BARSLAST(DATE=cc);
fc:=c;y:=SETLBOUND(fc,x[DATACOUNT]);
DIFF : EMA(fc,SHORT) - EMA(fc,LONG);
DEA  : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK;
//以下為引用15分鐘的MACD數(shù)據(jù)。
DIFF1:STKINDI(STKLABEL,'x12.DIFF',0,3);
DEA1: STKINDI(STKLABEL,'x12.DEA',0,3);
MACD1:STKINDI(STKLABEL,'x12.MACD',0,3);



QUOTE:
818.問:
公式代碼如下：
INPUT:N(3,2,10);{產(chǎn)生漲幅的N天數(shù)調(diào)節(jié)，這里不調(diào)也可用參數(shù)調(diào)節(jié)}
ZF:=1.15;{產(chǎn)生漲幅調(diào)節(jié)，例如：現(xiàn)在的1.15代表漲幅至少大于15%}
A:=0;B:=0;
FOR I=1 TO N DO
IF CLOSE/REF(CLOSE,I)>=ZF THEN BEGIN
A:=A+I;
BREAK;
END
G:=IF(A>0.1,REF(VOL,A),0);
FOR I1=1 TO N DO
IF G=REF(G,I1) THEN BEGIN
B:=B+A;
BREAK;
END
Q:A-B;{計算出的最佳買點，例如：數(shù)值為3就代表前3天是最佳買點。該數(shù)據(jù)可以和其它公式配合使用，也可以驗證其他公式的準確性};

這一句  IF CLOSE/REF(CLOSE,I)>=ZF THEN BEGIN
在飛狐測試時提示語法錯誤，
     答(南客):
IF條件語句
語法:IF cond THEN expr1 ELSE expr2
如果 cond 條件成立，則執(zhí)行語句 expr1，否則執(zhí)行 expr2 語句。
說明：
　　1、在條件判斷比較簡單的情況下，ELSE expr2 子句可以省略。
　　2、條件 cond 必須是單值變量，不能為序列變量。
     條件語句的語法比較簡單，但使用時卻容易出錯，下面舉若干示例。
   例1：修改成交量公式VOL，當流通盤不為零且當前周期為日以上周期時，顯示換手率，代碼參考如下
  （仿此，大家繞過指標模組，可以自行設(shè)計，“綁定”到周期、券種等的公式）
      VOL,VOLSTICK;

MA1:MA(VOL,M1);
MA2:MA(VOL,M2);
MA3:MA(VOL,M3);
if capital>0 and DATATYPE>=6 then

   換手率:vol/capital; //日以上周期及非指數(shù)個股，顯示換手率
當切換到60分鐘及以下周期，或者切換到大盤（此時流通盤＝0），會發(fā)現(xiàn)“換手率”指標線、
名稱及數(shù)值都不顯示。
   以上是較簡單的情況，沒有使用 ELSE expr2 子句。上面代碼稍加改進，
使用復(fù)合語句，使之適用于任意周期：
   例2，修改成交量公式，流通盤不為0時，顯示換手率（60分鐘及以下周期，計算當日最新的換手率），
   代碼參考如下：
    VOL,VOLSTICK;
MA1:MA(VOL,M1);
MA2:MA(VOL,M2);
MA3:MA(VOL,M3);

IF CAPITAL>0 then //如果換手率＞0,則
  IF DATATYPE>=6 then //如果周期為日及以上的較長周期,則
    b:=VOL/CAPITAL*100
  else //否則
  begin //復(fù)合語句開始，即以下3條語句，視為1條語句，end表示復(fù)合語句結(jié)束
    tj:=DAY>REF(DAY,1) or BARSSINCE(CLOSE)=0;
    ts:=BARSLAST(tj)+1;
    b:=SUM(VOL,ts)/CAPITAL*100;
  end;
換手率:b;

   例3、通過參數(shù)N，控制調(diào)整均線數(shù)，代碼參考如下：
    input:p1(5,0,300),p2(10,0,300),p3(20,0,300),p4(30,0,300),n(4,1,4);{參數(shù)定義}
IF n>0 then MA1:MA(CLOSE,P1);{如果n>=1則輸出ma1指標線}
IF n>1 then MA2:MA(CLOSE,P2);{如果n>=2則輸出ma1指標線}
IF n>2 then MA3:MA(CLOSE,P3);{如果n>=3則輸出ma1指標線}
IF n>3 then MA4:MA(CLOSE,P4);{如果n>=4則輸出ma1指標線}

   在使用條件語句“IF cond THEN”中， cond 不能使用序列變量，
   這是最容易出錯的地方，比如：
   {下面的代碼是錯誤的}
fc:=close;
fo:=open;
if fc>fo then  //這里的fc、fo是序列變量，因此是錯誤的語法
  xx:=1
else
  xx:=0;

   這里，if fc>fo then 這種寫法的本意是，“如果收盤價大于開盤價則”，
   是針對序列變量的每個數(shù)據(jù)（相當于數(shù)組的每個元素），在飛狐中，正確的寫法應(yīng)該是這樣的：
   //如果xx是單值變量，則代碼參考如下
fc:=close;
fo:=open;
for i=1 to datacount do //從第1根K線的位置，循環(huán)到最后1根K線的位置
  if fc>fo then  //這里，fc、fo代表某一天的收盤、開盤價，是單值變量
    xx:=1
  else
    xx:=0;
y:xx;

{以上代碼，對單值變量xx有影響的部分僅是最后1根K線，因此上面的代碼大多都進行了無效的計算。優(yōu)化后的代碼如下：}
fc:=close;
fo:=open;
if fc[datacount]>fo[datacount] then
  xx:=1
else
  xx:=0;
y:xx;
   源碼：
//如果xx是序列變量，則代碼參考如下
fc:=close;
fo:=open;
for i=1 to datacount do
  if fc>fo then
    xx:=1  //請注意這里跟上面代碼的不同
  else
    xx:=0;
y:xx;



QUOTE:
819.問:
在分時圖中,前2個小時的價格都走在平均價之上,進行即時選股？
    答(股市騎兵00):
//1分鐘K線周期使用。
x:=BARSLAST(date>ref(date,1));
jx:=sum(AMOUNT,x+1)/sum(v*100,x+1);
y:=BARSLAST(if(ref(refx(jx,1)=0,1),0,refx(jx,1)=0));
cc:=if(jx=0,ref(jx,y),jx);
z:all(c>cc,120);



QUOTE:
820.問:
如何讓定點數(shù)值隨光標變化:

底:=c;
k:=200/(SYSPARAM(3)-SYSPARAM(2));
x7:=SYSPARAM(2)+INTPART(142/k)=BARPOS;
DRAWTEXT(x7,75,NUMTOSTR(底,2))colorred
    答(股市騎兵00):
是否這樣？
底:=c;
k:=200/(SYSPARAM(3)-SYSPARAM(2));
x7:=SYSPARAM(2)+INTPART(142/k)=BARPOS;
DRAWTEXT(x7,75,NUMTOSTR(底[SYSPARAM(1)],2))colorred;





QUOTE:
821.問:
      公式，里面有這樣一個語句
hh:=SYSPARAM(4),colorred;
ll:=SYSPARAM(5),colorred;
zx :   （hh-ll）)/2;
但我不會在“zx” 這條畫線的左邊 、中間、、右邊標識這條線的數(shù)值；

    答(hx817):
hh:=SYSPARAM(4),colorred;
ll:=SYSPARAM(5),colorred;
zx :(hh-ll)/2;
DRAWNUMBER(SYSPARAM(2)=BARPOS,zx,zx,2);//左邊顯示
DRAWNUMBER(SYSPARAM(3)=BARPOS,zx,zx,2);//右邊顯示
DRAWNUMBER(SYSPARAM(3)=INTPART((SYSPARAM(3)-SYSPARAM(2))/2)+BARPOS,zx,zx,2);//中間顯示




QUOTE:
822.問:
請教這句話的表達方法？

前一星期：
xq:barslast(weekday-ref(weekday)<>datediff(fef(date,1),date));
前一月：
yue:barslast(intpart(date/100)<>ref(intpart(date?100),1);
那么：
前一天該如何表達？
前60分鐘又該如何表達？

    答(股市騎兵00):
這樣試試，30分鐘線專用的：
input:long(26,20,100),short(12,5,40),m(9,2,60);
SJ:=BARSLAST(INTPART(BARPOS/2)<>REF(INTPART(BARPOS/2),1));
XQ:=IF(SJ,SJ,2);
ZDEA:="MACD引用.DEA#min60";
ZES:="MACD引用.ES#min60";ZEL:="MACD引用.EL#min60";
DIFF2:(2*C+(short-1)*REF(ZES,XQ))/(short+1)-(2*C+(long-1)*REF(ZEL,XQ))/(long+1);
DEA2:(2*DIFF2+(M-1)*REF(ZDEA,XQ))/(M+1);
MACD2 : 2*(DIFF2-DEA2), COLORSTICK;
    問:
       有兩個問題
1,為什么要取"BARPOS/2",?
2,此公式好像只有第2小時和第4小時的數(shù)據(jù)是正確的,而第1和第3小時的數(shù)據(jù)不正確.
    答(股市騎兵00):
       你在公式下加句話，在畫線位置比較數(shù)據(jù)看看。
VERTLINE(SJ),SHIFT1;

BARPOS/2因為你的數(shù)據(jù)是引用60分鐘線在30分鐘里看的。
60/30=2



QUOTE:
823.問:
飛狐主圖中精美背景圖怎么弄的
    答(清風斜陽):
{DRAWBKBMP(C>O,'背景8');}
jj:=(HIGH+LOW+CLOSE+OPEN)/4;
Var1:=MA(CLOSE,5);
Var2:=MA(CLOSE,10);
Var3:=MA(CLOSE,20);
Var4:=MA(CLOSE,30);
h1a:=(var1+var2+var3+var4)/4;
{STICKLINE(C>MA(h1a,13),MA(h1a,13),MA(h1a,13),8,0),colorYELLOW,linethick5;}
{IF C>MA(h1a,13) THEN MA(h1a,13),colorred ELSE MA(h1a,13),colorblue;}
STICKLINE(CLOSE>0,jj,jj,7,0),colorgreen;
{STICKLINE(C<MA(h1a,13),MA(h1a,13),MA(h1a,13),3,0),color005500,linethick3;}
DRAWBKBMP(CLOSE>=OPEN or CLOSE<OPEN,'背景8');
Var1:=MA(CLOSE,5);
Var2:=MA(CLOSE,10);
Var3:=MA(CLOSE,20);
Var4:=MA(CLOSE,30);
h1a:=(var1+var2+var3+var4)/4;
{STICKLINE(C>MA(h1a,13),MA(h1a,13),MA(h1a,13),8,0),colorYELLOW,linethick5;}
{IF C>MA(h1a,13) THEN MA(h1a,13),colorred ELSE MA(h1a,13),colorblue;}
STICKLINE(CLOSE>=OPEN,HIGH,LOW,1,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,HIGH,LOW,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,8,1),COLOR0000FF;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,1,0),COLORFF0000;
STICKLINE(CLOSE<=OPEN,HIGH,LOW,0,0),COLORFFFF00;
STICKLINE(CLOSE<=OPEN,CLOSE,OPEN,8,0),COLORcyan;

如何畫背景圖

函數(shù)： DRAWBKBMP(COND,BMP)
參數(shù)：        
用法: 當圖形上最后一組COND條件滿足時,以MyBMP做背景：        
說明： 根據(jù)條件設(shè)置背景圖
示例： 因為系統(tǒng)K線先畫，會被后來的指標圖覆蓋了

這種公式K線要自己畫，以下供參考
DRAWBKBMP(c>0,'mybmp');
STICKLINE(c>o or c=o and c>ref(c,1),l,h,0.1,0),colorred;
STICKLINE(c>o or c=o and c>ref(c,1),o,c,7,0),colorred;

STICKLINE(c<o or c=o and c<=ref(c,1),l,h,0.1,0),colorcyan;
STICKLINE(c<o or c=o and c<=ref(c,1),o,c,7,0),colorcyan;

把公式設(shè)為主圖、主圖疊加
DRAWBKBMP(c>0,'mybmp');
STICKLINE(c>o or c=o and c>ref(c,1),l,h,0.1,0),colorred;
STICKLINE(c>o or c=o and c>ref(c,1),o,c,7,0),colorred;

STICKLINE(c<o or c=o and c<=ref(c,1),l,h,0.1,0),colorcyan;
STICKLINE(c<o or c=o and c<=ref(c,1),o,c,7,0),colorcyan;



QUOTE:
824.問:
飛狐的實時圖中，只能運用主圖指標。
我想將obv放在實時圖中用，但obv的數(shù)值太大，放不入去，
請編一個可以自動將數(shù)值調(diào)節(jié)到適用主圖的obv

    答(bajatje):
試下
obv:sum(if(c>ref(c,1),v,if(v<ref(c,1),-v,0)),0),linethick0;
hh:=hhv(h,0);
LL:=LLv(L,0);
hv:=hhv(obv,0);
Lv:=LLv(obv,0);
b:=(hh-LL)/(hv-Lv);
y:=(hh+LL-(hv+Lv)*b)/2;
dj_obv:obv*b[datacount]+y[datacount];



QUOTE:
825.問:
1.如何統(tǒng)計在屏幕可見范圍里，漲幅和跌幅的超過3%的Ｋ線個數(shù)，
2.如何統(tǒng)計在屏幕可見范圍里，實體漲幅和跌幅的超過3%的Ｋ線個數(shù)。

    答(股市騎兵00):
zf:=c/ref(c,1)*100-100;
zf1:=c/o*100-100;
zq:=SYSPARAM(3)-SYSPARAM(2)+1;
x:=sum(zf>3 or zf<-3,zq);
y:=sum(zf1>3 or zf1<-3,zq);
x[SYSPARAM(3)];//漲幅
y[SYSPARAM(3)];//實體



QUOTE:
826.問:
分時走勢圖中的黃色的均價線如何在 K線圖中顯示，公式如何編？
    答(股市騎兵00):
1分鐘周期個股使用：
x:=SUMBARS(date<>ref(date,1),1);
sum(AMOUNT,x)/sum(v*100,x);



QUOTE:
827.問:
具體到這個公式：
JJ:EMA(AMOUNT/V/100,10);
JJ3:EMA(AMOUNT/V/100,20);
如果該成選股或預(yù)警公式，那么，JJ3上行，現(xiàn)價重上JJ線，該怎么寫呢
    答(股市騎兵00):
JJ:EMA(AMOUNT/V/100,10);
JJ3:EMA(AMOUNT/V/100,20);
cross(c,JJ) and jj3>ref(jj3,1);



QUOTE:
828.問:
a1:=(240/OPENMINUTES(TIME))*(v/"VOL.MA1##DAY");
a2:=(h-l)/a1;
aa1:=a1-ref(a1,1);
aa2:=a2-ref(a2,1);
var10:=aa1>0;
var101:=aa1<0;
var11:=aa2<0;
var12:=aa2>0;
var13:=var10 and var11;
var14:=var10 and var12;
var141:=var101 and var11;
var142:=var101 and var12;
DRAWICON(var13,0.5,12);
DRAWICON(var14,0.5,11);
DRAWICON(var141,0.5,10);
DRAWICON(var142,0.5,13);

按照上述公式原碼，各色信號球應(yīng)該是連續(xù)不斷的，可為何出現(xiàn)間斷？
    答(pengyou):
你看看

var10:=aa1>=0;
var101:=aa1<0;
var11:=aa2<0;
var12:=aa2>=0;



QUOTE:
829.問:
飛狐中自帶的美國線（BAR線）含有開、高、低、收4個價，幫忙編個公式去表達成只有高、
低、收三個價的美國線；另外還想編一個只有高、低二個價的美國線
    答(cwy):
k:=(c>o or c=o and c>ref(c,1));
stickline(k,h,l,0.1,1),COLORCYAN;
stickline(not(k),h,l,0.1,0),COLORCYAN;
DRAWTEXT(k,c,'￣')COLORCYAN;
DRAWTEXT(not(k),c,'￣')COLORCYAN;

這是變通的辦法,高、低、收三個價的美國線,如要高、低二個價的美國線,把下面兩行
代碼去掉即可



QUOTE:
830.問:
能否編個公式與SYSPARAM(4)類似，
用在副圖VOL上顯示最高成交量、最低成交量！
這樣看起來多方便。

SYSPARAM(4)
系統(tǒng)參數(shù):主圖可見K線最高價
注意：該函數(shù)僅K線圖形分析且打開十字光標時有效,否則返回值不確定

    答(hx817):
vol;

VC:=SYSPARAM(1);
VCV:=vol;
n:=SYSPARAM(3)-SYSPARAM(2);//計算畫面 K 線數(shù)量
hv:=hhv(v,n);//取畫面最大值
lv:=llv(v,n);//取畫面最小值
v=hv[DATACOUNT];//可視畫面中最大成交量位置
v=lv[DATACOUNT];//可視畫面中最小成交量位置

高低差:=hv[DATACOUNT]-lv[DATACOUNT];
百高: hv[DATACOUNT],COLORRED;
百低:Lv[DATACOUNT],COLORGREEN;
百875:高低差*0.875+Lv[DATACOUNT],POINTDOT,COLORYELLOW;
百750:高低差*0.75+Lv[DATACOUNT],COLORCYAN;
百667:高低差*0.667+Lv[DATACOUNT],POINTDOT,COLORYELLOW;
百625:高低差*0.625+Lv[DATACOUNT],POINTDOT,COLORCYAN;
百500:高低差*0.500+Lv[DATACOUNT],COLORMAGENTA;
百375:高低差*0.375+Lv[DATACOUNT],POINTDOT,COLORCYAN;
百333:高低差*0.333+Lv[DATACOUNT],POINTDOT,COLORYELLOW;
百250:高低差*0.25+Lv[DATACOUNT],COLORCYAN;
百125:高低差*0.125+Lv[DATACOUNT],POINTDOT,COLORYELLOW;

DRAWNUMBER(BARPOS=VC,VC,VCV,2),align3;

DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.039+Lv[DATACOUNT],'百分低量 ('+NUMTOSTR(百低,2)+')'),COLORGREEN;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.125+Lv[DATACOUNT],'12.5%↑ 87.5%('+NUMTOSTR(百125,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.25+Lv[DATACOUNT],'25.0%↑ 75.0%('+NUMTOSTR(百250,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.333+Lv[DATACOUNT],'33.3%↑ 66.7%('+NUMTOSTR(百333,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.375+Lv[DATACOUNT],'37.5%↑ 62.5%('+NUMTOSTR(百375,2)+')'),COLORCYAN;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.500+Lv[DATACOUNT],'百分50('+NUMTOSTR(百500,2)+')'),COLORMAGENTA;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.625+Lv[DATACOUNT],'62.5%↓ 37.5%('+NUMTOSTR(百625,2)+')'),COLORCYAN;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.667+Lv[DATACOUNT],'66.7%↓ 33.3%('+NUMTOSTR(百667,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.75+Lv[DATACOUNT],'75.0%↓ 25.0%('+NUMTOSTR(百750,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.875+Lv[DATACOUNT],'87.5%↓ 12.5%('+NUMTOSTR(百875,2)+')'),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,高低差*0.991+Lv[DATACOUNT],'百分高量 ('+NUMTOSTR(百高,2)+')'),COLORRED;
因為 DRAWTEXT 還不支持序列變量，所以，你在光標移動的時候，上面百低 等等數(shù)值會變化，而在圖線上的數(shù)值不會變化





QUOTE:
831.問:
從最后一次5日均線與10日均線交叉的地方畫一線。
k1:=cross(ma(5),ma(10)) or cross(ma(10),ma(5)) ;
k2:=barslast(k1);
然后應(yīng)該如何編寫？
    答(股市騎兵00):
k1:=cross(ma(c,5),ma(c,10)) or cross(ma(c,10),ma(c,5));
sk:=sum(k1,0);
DRAWSL(sk>=sk[DATACOUNT]-1 and k1,c,0,0,0);



QUOTE:
832.問:
我覺得指南針的橫盤度是一個把股價走勢是否橫盤進行了量化的不錯的指標，但我不知道如何作，
我把指南針的相關(guān)的資料提供，能不能作一個類似的指標


HD（Horizontal Degree），中文名稱叫橫盤度。這是一個描述市場事實的指標，它把股價走勢是否橫盤進行了量化。
    股價橫盤是被許多技術(shù)分析家和投資者所注意的一個市場特征，如何用指標來刻畫這個特征，也是眾多人追求的結(jié)果。指南針人終于巧妙地設(shè)計了這個指標。
    我們知道，股價橫盤表示的是在一段時間內(nèi)股價運行在一個區(qū)間內(nèi)，并且沒有明顯的上漲或下跌趨勢。也就是說股價在一段時期內(nèi)走勢為橫盤包含兩個要素：一是振幅要小，二是走勢要水平。橫盤度巧妙地綜合了這兩個要素。    指南針特有］橫盤度指標是有參數(shù)的，在指南針軟件里，橫盤度指標一共有四個：HD5、HD20、HD60、HD200，它們分別表示5日橫盤度、20日橫盤度、60日橫盤度、200日橫盤度。這四個橫盤類指標分別反映了從當日起，前5、20、60、200天的橫盤狀況。
    橫盤度指標只考慮到股價走勢因素，沒有考慮到成交量的因素，所以橫盤度指標基本上沒考慮到市場成本的因素。
    橫盤度指標的取值范圍理論上為（-∞，+∞）。但是絕大多數(shù)時候取值都為（-100，+100）?！　?br>
    一般說來，橫盤度指標的數(shù)值越靠近零（即絕對值越?。?，說明這段時間股價走勢就越接近橫盤。如果橫盤度為0，說明這幾天的走勢可以認為看作是標準的橫盤了。在橫盤度取值很靠近0的條件下，如果橫盤度為正數(shù)，說明股價走勢為強勢橫盤，如果為負數(shù)，說明股價走勢為弱勢橫盤。
    因為股價走勢是否為橫盤對于每個人來說答案還不是絕對一致的，也就是說每個人對橫盤的標準還是有些差別的。有些走勢，甲看來是橫盤，而乙看來卻不是橫盤。所以，當橫盤度指標到底多少時，股價走勢才算橫盤，我們并沒有給出標準答案。建議大家自己去觀察研究得出自己的標準。

    答(hx817):
簡單可以這么理解
m5:=ma(c,5);
m20:=ma(c,20);
m60:=ma(c,60);
m200:=ma(c,200);
hd5:m5-ref(m5,1);
hd20:m20-ref(m20,1);
hd60:m60-ref(m60,1);
hd200:m200-ref(m200,1);



QUOTE:
833.問:
幫忙編個能在圖中的高低點處顯示漲跌幅或價格差數(shù)值的公式
    答(hx817):
input:n(10);
z:zig(4,n);
d:=refx(z>ref(z,1) and ref(z,1)<ref(z,2),1);
g:=refx(z<ref(z,1) and ref(z,1)>ref(z,2),1);
w:=ref(barslast(d+g),1)+1;//少加1 修正
DRAWNUMBER(d+g,z,(z/ref(z,w)-1)*100,3),COLORYELLOW,ALIGN2;//漲跌幅
DRAWNUMBER(d+g,z,(z-ref(z,w)),3),COLORYELLOW,ALIGN1,shift1;//價格差



QUOTE:
834.問:
如何求得下個月交易日總數(shù)
    答(股市騎兵00):
下個月。
r:=INTPART(date/100);
x:=r<>ref(r,1);y:=refx(x,1);
for i=LBOUND(y) to DATACOUNT-1 do
  for j=i+1 to DATACOUNT do
    if y and y[j] then begin
      ts:=j-i;
    break;
end;
DRAWNUMBER(y,h*1.02,ts,0);
    問:
我想求2005年4月的交易天數(shù)，或本月（3月）剩余的天數(shù)，
    答(hx817):
fm:=MONTH;lm:=fm[DATACOUNT];
//判斷月份最后日期，有些年需要調(diào)整 28 為 29 日
lastday:=if(lm=1 or lm=3 or lm=5 or lm=7 or lm=8 or lm=10 or lm=12,31,
if(lm=4 or lm=6 or lm=9 or lm=11,30,28));
fd:=DAY;ld:=fd[DATACOUNT];
fw:=WEEKDAY;lw:=fw[DATACOUNT];
//上面取 K線數(shù)據(jù)的最后一個年、月、日
n:=0;m:=0;
while ld+n<lastday do begin
  lw:=mod(lw+1,7);
  n:=n+1;
  m:=m+if(BETWEEN(lw,0,6),1,0);
end;
星期幾:lw;
多少天:n;
交易日:m;



QUOTE:
835.問:
     （1）這指標是用在實時圖中選股。
     （2）個股當天實時圖中，股價曾上穿均線后又回落，在再次穿越均線或靠住均線又拉起的那一刻。
     （3）最好能夠加上股價均線是向上走，而量比曲線也是和股價均線同一趨勢的量價配合完美的形態(tài)條件。
     （4）是用在下午14:00之后。是用作預(yù)警信號的，
    答(股市騎兵00):
這些籠統(tǒng)的問題呢，試著做了個給你參考吧。

//1分鐘周期
if DATATYPE<>1 then exit;
sj:=hour>=14;
w:=OPENMINUTES(time);
量比:=240*sum(v,w)/w/"VOL.MA1##DAY";//量比的定義可能有誤，你再看看。
tb:=sumbars(date<>ref(date,1),1);
均價:=sum(AMOUNT,tb)/sum(v*100,tb);
sum(cross(c,均價),tb)>1 and cross(c,均價) and 均價>ref(均價,1) and 量比>ref(量比,1) and sj;




QUOTE:
836.問:
飛狐F10公式--“戶均持股”--統(tǒng)計`排序`解盤`選股能搞定嗎
    答(yngs):
zt飛狐F10公式--“戶均持股”--統(tǒng)計`排序`解盤`選股-

{2-戶均持股:}{查找F10中股東人數(shù)的位置:}gdstar:=F10FIND('┃股東戶數(shù)',1);
{取對應(yīng)的數(shù)據(jù)資料:}       gdw1:=F10FIND('┃04-09-30',gdstar);gdw2:=F10FIND('┃04-06-30',gdw1);
    gdw3:=F10FIND('┃04-03-31',gdw3);gdw4:=F10FIND('┃03-12-31',gdw1);
{轉(zhuǎn)換字符串為數(shù)值:}       gdtx1:=F10TEXT(gdw1+28,8);gdtx2:=F10TEXT(gdw2+28,8);
                         gdtx3:=F10TEXT(gdw3+28,8);gdtx4:=F10TEXT(gdw4+28,8);
{轉(zhuǎn)換字符串為數(shù)值:}       gd1:=STRTONUM(gdtx1); gd2:=STRTONUM(gdtx2);
                         gd3:=STRTONUM(gdtx3); gd4:=STRTONUM(gdtx4);
{顯示一：解盤顯示戶均持股}EXPLAIN(gdw1>1,'04-09-30 股/戶：'+gdtx1);
                        EXPLAIN(gdw2>1,'04-06-30 股/戶：'+gdtx2);
                        EXPLAIN(gdw3>1,'04-03-31 股/戶：'+gdtx3);
                        EXPLAIN(gdw4>1,'03-12-31 股/戶：'+gdtx4);
{顯示二:對應(yīng)顯示戶均持股在K線上:}
                        DRAWNUMBER(DATE=1041008,CLOSE,gd1,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040630,CLOSE,gd2,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040331,CLOSE,gd3,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1031231,CLOSE,gd4,0),ALIGN4,COLORRED;
戶均持股49:gd1;{2004 3季報戶均持股量}  
戶均持股46:gd2; {2004 2季報戶均持股量}
戶均持股43:gd3; {2004 1季報戶均持股量}
戶均持股312:gd4;{2003 年報戶均持股量}
遞增:gd1>gd2 and gd2>gd3 and gd3>gd4;
戶均3至5千且遞增:gd1>3000 and gd1<5000 and 遞增;



QUOTE:
837.問:
我在用HHV函數(shù)時有2個疑問，想請教一下。
1、請問hhv(high,10)求10日最高價的表達式中的10日式怎么劃分的
是從最后一根K線向回開始數(shù)的？還是第一天上市有K線開始數(shù)的？
2、我想求股票歷史最高價用HHV（HIGH，0）好象并不能求，因為任何
股票的歷史最高價只有一個，可是HHV（HIGH，0）能發(fā)出多個信號
為什么啊?
    答(hx817):
1、hhv(high,10)，表示每個 K 線向前數(shù) 10 個
2、HHV(HIGH,0)，表示每個 K 線是否歷史最高價

hv:=hhv(h,0);
h=hv[DATACOUNT];

這樣就可以找到你要的位置了



QUOTE:
838.問:
現(xiàn)在正在學(xué)習編制DLL公式，遇到困難。即怎樣將飛狐的函數(shù)轉(zhuǎn)化成編程語言，
即飛狐的函數(shù)怎么轉(zhuǎn)化為如DELPHI語言代碼？我看了博庭的DLL開發(fā)手冊，里面沒有這方面內(nèi)容。
舉一個簡單的例子說明，如（C-REF（C，1））/REF（C，1）=0.1
在BEGIN和END 之間用DELPHI 應(yīng)怎么寫？因為好象DELPHI里是沒有REF這類函數(shù)的。
    答(hx817):
用數(shù)組的方式
比如 (x[n]-x[n-1]/x[n-1]) = 0.1



QUOTE:
839.問:
這是結(jié)構(gòu)波浪圖,
1.每一波經(jīng)過了幾根k線能在轉(zhuǎn)折時用數(shù)字表現(xiàn)出來嗎  
2.每波中每根k線能用數(shù)字表現(xiàn)出來嗎
    答(股市騎兵00):
大概這個樣子的。

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;{高低點出現(xiàn)在同一K線上時可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT(D1 AND E1<E2)); H2:=D1 AND NOT(D2 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 ISLASTBAR 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),COLORWHITE,LINETHICK1,POINTDOT;
DRAWLINE(HD,H,LD,L,0),COLORWHITE,LINETHICK1,POINTDOT;
J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1); J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),ISLASTBAR,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORWHITE,LINETHICK1,POINTDOT;
DRAWNUMBER(1,h*1.02,BARSLAST(ld or hd),0);



QUOTE:
840.問:
       求移動平均線的寫法
     答(hx817):
       移動平均線的N種寫法（V3.5.30828 以上版本支持）
      (1).
      INPUT:n(5,1,300); //參數(shù)申明
VARIABLE:k=0; //變量申明
FOR i=0 TO n-1 DO k:=k+ref(close,i); //把最近 n 天的收盤價累加
MA1:k/n; //實現(xiàn)MA(C,N)
      (2).
      INPUT:N(5,1,300); //參數(shù)申明
VARIABLE:i=0,k=0,j=0; //變量申明
VAR1:=C;
FOR j=1 TO DATACOUNT DO BEGIN
  IF j>=n THEN BEGIN
    WHILE i<n DO BEGIN
      k:=k+VAR1[j-i];
      i:=i+1;
    END;
  MA2[j]:k/n; //實現(xiàn)MA(C,N)
  i:=0;
  k:=0;
  END;
END;
      (3).
      INPUT:N(5,1,300); //參數(shù)申明
VARIABLE:i=0,k=0,VAR1:=C; //變量申明
FOR j=1 TO DATACOUNT DO BEGIN
  k:=k+VAR1[j];
  IF j>=n THEN BEGIN
    IF j>n THEN k:=k-VAR1[j-n];
    MA3[j]:k/n; //實現(xiàn)MA(C,N)
    i:=0;
  END;
END;
   *    *    *    *    *
還有很多寫法,還可以只計算最后1個有效數(shù)值，比如用于提高預(yù)警速度
            




QUOTE:
841.問:
      n日均線大角(八十度)向上,如何編代碼?
      2.弧度如何換成角度值?

     答(bajatje):
      弧度*57.3=角度



QUOTE:
842.問:
5日、10日、21日線多頭排列向上運行后，股價在5日線上方已超過八天。
這種形態(tài)的個股，在大盤處于下跌時，實用性很好。大盤強勢時，不適用
     答(股市騎兵00):
ma5:=ma(c,5);
ma10:=ma(c,10);
ma21:=ma(c,21);
x1:=ma5>ma10 and ma10>ma21 and all(c>ma5,9);
x2:=ma5>ref(ma5,1) and ma10>ref(ma10,1) and ma21>ref(ma21,1);
xx:x1 and x2;



QUOTE:
843.問:
能不能編個公式，迅速算出某天或某個高低點距離今日的天數(shù)呢
     答(bajatje):
w:barslast(某天的條件);
w1:barslast(某個高低點的條件);



QUOTE:
844.問:
股票比例＝
當天收盤價高于10日均線的股票數(shù)量 / 市場（滬深）全部股票的數(shù)量 * 100％

     答(hx817):
       (1)先做一個公式
          tj:c>ma(c,10);
       (2)而后用橫向統(tǒng)計，將這個公式的數(shù)據(jù)刷到橫向統(tǒng)計數(shù)據(jù)庫中
          再建立公式調(diào)用橫向統(tǒng)計數(shù)據(jù)
          ESTDATA(1)/STKCOUNT('上海A股');//對應(yīng)數(shù)據(jù)庫的位置，以及板塊的設(shè)置



QUOTE:
845.問:
看了南客老師的關(guān)于循環(huán)學(xué)習的貼，找了個南客老師編的移動成本的公式來練手，可是無意發(fā)現(xiàn)循環(huán)中的變量，沒法按照我設(shè)想的顯示，不知道是我哪里還沒有體會到，55555，郁悶呀。

variable:pv[50]=0,pc[50]=0;
a0:=BARSCOUNT(c);
hh:=hhv(high,a0);
ll:=llv(low,a0);
fv:=100*vol/capital;
fh:=high;
fl:=low;
p:=sysparam(1);
dd:=(hh[p]-ll[p])/49;
for i=p downto 1 do begin
  sh:=(fh-ll[p])/dd+1;
  sl:=(fl-ll[p])/dd+1;
  dj:=fv/(sh-sl+1);
  for j=sl to sh do pv[j]:=pv[j]+dj;   
end;
s:=0;
for i=1 to 50 do if s <pv then s:=pv;

比如：我要顯示s的變化，我直接跟
s;
但是出來的是一根直線，要移動光標才可以看見它曾經(jīng)變化過，這個應(yīng)該如何處理？
我怎么才能如同顯示
c;

     答(股市騎兵00):
我按自己的理解說說。
你S變成序列變量來顯示，運算量很大的，做出來也沒意義了。
就把下面把公式的SL改成序列變量來顯示，給你參考。

variable:pv[50]=0,pc[50]=0;
hh:=hhv(high,0);
ll:=llv(low,0);
fv:=vol;
fh:=high;
fl:=low;

dd:=(hh-ll)/49;
for i=1 to datacount do begin
  for j=i downto 1 do begin
    sh:=(fh[j]-ll)/dd+1;
    sl:(fl[j]-ll)/dd+1;
  end;
end;



QUOTE:
846.問:
當close=high時,在high上5%處開始畫一段壓力線(如果后面再次出現(xiàn)close=high,則忽略此信號),
直到close=low時停止畫這段壓力線,然后在low下5%開始畫一段支撐線.(如果后面再出現(xiàn)close=low,
則過濾此信號,直到下一次close=high)，然后重復(fù)。。。

     答(dalong):
看看是否能滿足你的要求?

a1:=c=l;
a2:=c=h;
a11:=BARSLAST(a1);
a21:=BARSLAST(a2);

a3:=(a11=0 and CROSS(a21,a11));
a31:=BARSLAST(a3);
ab:=if(a3,c*0.95,ref(c,a31)*0.95);

a4:=(a21=0 and CROSS(a11,a21));
a41:=BARSLAST(a4);
ac:=if(a4,c*1.05,ref(c,a41)*1.05);
ad:=if(a11>a21,ac,ab);
STICKLINE(1,ad,ad*1.0001,10,0);
    答(股市騎兵00):
dalong朋友思路高明,我只會循環(huán)笨辦法做的。你的公式前段畫線，有點小問題，我改了下。
a1:=c=l;a2:=c=h;
x1:=FILTER(a1 or a2,DATACOUNT);
a11:=BARSLAST(a1 or BARPOS=1);
a21:=BARSLAST(a2 or BARPOS=1);
x2:=CROSS(a21,a11);x3:=CROSS(a11,a21);
y:=BARSLAST(x1 or x2 or x3);
cc:=(x1 and a1)*l*0.95+(x1 and a2)*h*1.05+x2*l*0.95+x3*h*1.05;
c1:=ref(cc,y);c2:=ref(c1,1);
STICKLINE(y or y=0,c1,c1,10,1),COLORWHITE;
STICKLINE(x3 or x2,c2,c2,10,1),COLORWHITE;
    答(股市騎兵00):
       這是我做的笨辦法，搞復(fù)雜了
a1:=c=h;b1:=c=l;
x:=ref(a1,BARSSINCE(a1 or b1));
za1:=0*c;zb1:=0*c;
for i=1 to datacount do begin
  za1:=za1[i-1]+a1;
  zb1:=zb1[i-1]+b1;
    if x[datacount] then begin
      if za1-zb1>1 then
        za1:=za1[i-1];
      else
        za1:=za1;
      if zb1>za1 then
        zb1:=zb1[i-1];
      else
        zb1:=zb1;
    end;
    if x[datacount]=0 then begin
      if zb1-za1>1 then
        zb1:=zb1[i-1];
      else
        zb1:=zb1;
      if za1>zb1 then
        za1:=za1[i-1];
      else
        za1:=za1;
    end;
end;
y1:=za1>ref(za1,1);y2:=zb1>ref(zb1,1);
h1:=ref(h,sumbars(y1 or y2,2)-1);
l1:=ref(l,sumbars(y1 or y2,2)-1);
DRAWLINE(y1,h*1.05,y2,h1*1.05,0);
DRAWLINE(y2,l*0.95,y1,l1*0.95,0);
z:=sum(y1 or y2,0);
xyz:=z=z[datacount] and (y1 or y2);
DRAWSL(xyz and y1,h*1.05,0,0,0);
DRAWSL(xyz and y2,l*0.95,0,0,0);



QUOTE:
847.問:
《求各個周期內(nèi)的起點和終點》源碼中有一點不太懂
源碼是：
INPUT: N(5,2,1000);
AA:=REF(H,N)=HHV(H,2*N+1); 不太明白的是,這句話是不是表示：短期高點同
時也是長期高點啊，我還看不明白HHV(H,2*N+1)中2*N后面為什么還要+1啊，
直接用2*N為什么不行？我改為HHV(H,2*N);好象沒看到什么區(qū)別嗎？

BB:=BACKSET(AA,N+1);
CC:=FILTER(BB,N) AND H+HHV(H,N+1);
DRAWICON(CC,H*1.02,10);
AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:=FILTER(BB2,N) AND L=LLV(L,N+1);
DRAWICON (CC2,L*0.99,11);  
                                             
     答(bajatje):
       AA:=REF(H,N)=HHV(H,2*N+1);
       應(yīng)該是:前面第N天的最高價=最近2*N+1天的最高價;
       加1   可能是為了對稱
    答(dalong):
該公式是清揚老師根據(jù)分形峰狀點的定義編寫的。
形峰狀點的定義是中間一點大（?。┯谧笥襈點。這樣左右N點為2N再加上中間一點為2N+1了。




QUOTE:
848.問:
改變背景顏色：
5日線>=30日線；改變的背景顏色   黃
5日線<=30日線；改變的背景顏色   蘭

     答(hx817):
實現(xiàn)以大盤為條件的背景圖
{取大盤判斷條件}
xma1:=MA(INDEXC,5);xma2:=MA(INDEXC,10);
xtj1:=CROSS(xma1,xma2) or xma1>xma2;
xtj2:=CROSS(xma2,xma1) or xma1<xma2;
{畫符合條件的背景}
FILLRGN(xtj1,SYSPARAM(5),SYSPARAM(4)),ColorDB3FCA;
FILLRGN(xtj2,SYSPARAM(5),SYSPARAM(4)),Color528608;
{畫個股 K 線圖}
ktj:=(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1));
STICKLINE(ktj,HIGH,LOW,0.1,1),colorred;
STICKLINE(ktj,CLOSE,OPEN,7,1),colorred;
STICKLINE(NOT(ktj),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(ktj),CLOSE,OPEN,7,0),colorcyan;
{畫個股均線}
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20);
ma30:MA(CLOSE,30);
..........................................................................
別名: 畫區(qū)間彩帶
所屬類別: 繪圖函數(shù)  參數(shù)數(shù)量: 3

繪制指標區(qū)間彩帶。
用法:
FILLRGN(COND,PRICE1,PRICE2),當COND條件滿足時,以COLOR填充PRICE1和PRICE2的區(qū)間
例如:FILLRGN(MA1>MA2, MA1,MA2),colorred 表示MA1>MA2時以紅色填充MA1和MA2之間的區(qū)域。
...........................................................................
SYSPARAM(4)
系統(tǒng)參數(shù):主圖可見K線最高價
注意：該函數(shù)僅K線圖形分析且打開十字光標時有效,否則返回值不確定

SYSPARAM(5)
系統(tǒng)參數(shù):主圖可見K線最低價
注意：該函數(shù)僅K線圖形分析且打開十字光標時有效,否則返回值不確定
............................................................................
用 ZIG 函數(shù)判斷大盤趨勢來看個股
{取大盤判斷條件}
xtj:=ZIG(MA(INDEXC,5),10);
{畫符合條件的背景}
FILLRGN(xtj>=ref(xtj,1),SYSPARAM(5),SYSPARAM(4)),ColorDB3FCA;
FILLRGN(xtj<ref(xtj,1),SYSPARAM(5),SYSPARAM(4)),Color528608;
{畫個股 K 線圖}
ktj:=(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1));
STICKLINE(ktj,HIGH,LOW,0.1,1),colorred;
STICKLINE(ktj,CLOSE,OPEN,7,1),colorred;
STICKLINE(NOT(ktj),HIGH,LOW,0.1,0),colorcyan;
STICKLINE(NOT(ktj),CLOSE,OPEN,7,0),colorcyan;
{畫個股均線}
ma5:MA(CLOSE,5);
ma10:MA(CLOSE,10);
ma20:MA(CLOSE,20);
ma30:MA(CLOSE,30);



QUOTE:
849.問:
怎么在實時圖中疊加大盤價線?

     答(hx817):
小鍵盤 / 鍵



QUOTE:
850.問:
方便統(tǒng)計某段時間交易換手率的公式好嗎
     答(bajatje):
w1:=barslast(date<=m);
w2:=barslast(date<=n);
ref(sum(v/capital*100,w1),w2);

[ 本帖最后由 AHFYXL1 于 2005-11-29 17:11 編輯 ]