| QUOTE: 851.問(wèn): 如何將字符串2005-04-20,轉換成數字20050420 答(bajatje): ty:=STRLEFT('2005-04-20',4); tm:=STRMID('2005-04-20',6,2); td:=STRRIGHT('2005-04-20',2); STRTONUM(ty+tm+td) QUOTE: 852.問(wèn): 昨天,突然放量(小陰線(xiàn),十字線(xiàn),小陽(yáng)線(xiàn),大陰線(xiàn))這里的放量是指相對其近期來(lái)說(shuō)的。 但是,第2天,或者第3天就能以小的量,收復那天放量的K線(xiàn) 答(股市騎兵00): x1:=v/ref(v,1)>=3; x2:=BARSLAST(x1); x3:=v/ref(v,x2)<=0.5; x2<3 and all(x3,x2) and c>ref(c,x2); 答(原野): 還可以如下表示: ref(v,1)/ref(ma(v,5),2)>=3 and ref(c/o,1)<1.02 and v/ref(v,1)<0.55 and c>ref(c,1); QUOTE: 853.問(wèn): 在一分鐘k線(xiàn)上能顯示3-4天的高低點(diǎn)延長(cháng)線(xiàn) 答(bajatje): w:=sumbars(barslast(hour<ref(hour,1))=0,3); hh:=hhv(h,w); hh[datacount]; LL:=LLv(L,w); LL[datacount]; 答(股市騎兵00): tb:=date<>ref(date,1); x1:=sumbars(tb,1); x2:=sumbars(tb,2); h1:=hhv(h,x1);l1:=llv(l,x1); h2:=ref(hhv(h,ref(x1,x1)),x1); l2:=ref(llv(l,ref(x1,x1)),x1); h3:=ref(hhv(h,ref(x1,x2)),x2); l3:=ref(llv(l,ref(x1,x2)),x2); h1[datacount];l1[datacount]; h2[datacount];l2[datacount]; h3[datacount];l3[datacount]; QUOTE: 854.問(wèn): 找出 10日乖離率在高(低)檔產(chǎn)生背離 之個(gè)股, 股價(jià)創(chuàng )新高 ,Bias(10)數值 卻比上一個(gè)(Bias(10)數值)波峰低0.5以上, (比如 設距今日30個(gè)交易日之內) 1)"誰(shuí)"跟"誰(shuí)"作比較產(chǎn)生乖離率?股價(jià) 跟 Bias(10)數值 作比較產(chǎn)生 "背離 " 2)、差異要多大您才認為是背離?Bias(10) 數值差 >0.5 以上 請問(wèn)這樣條件 寫(xiě)得出公式嗎? 或者不用選股 只要做出指標"會(huì )特別標示背離產(chǎn)生"即可 答(股市騎兵00): 大概這個(gè)樣子的。 BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100; hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5; QUOTE: 855.問(wèn): 上式可否再幫我改成: BIAS低檔背離的原碼? (條件相同),或者幫我把 高低檔背離 的公式合成一個(gè) 答(股市騎兵00): BIAS10:=(CLOSE-MA(CLOSE,10))/MA(CLOSE,10)*100; 頂背離:hhv(c,30)>ref(hhv(c,30),1) and hhv(BIAS10,30)-BIAS10>0.5; 底背離:llv(c,30)<ref(llv(c,30),1) and BIAS10-llv(BIAS10,30)>0.5; QUOTE: 856.問(wèn): 在副圖畫(huà)兩條水平的白色彩帶,第一條當周KD的K大于D時(shí)變?yōu)辄S色, 第二條當月KD的K大于D時(shí)變?yōu)榧t色. 用在日線(xiàn)上,最好是全部周期. 答(股市騎兵00): zk:="kd.k#week";zd:="kd.d#week"; rk:="kd.k#MONTH";rd:="kd.d#MONTH"; PARTLINE(1,0),COLORWHITE,LINETHICK10; PARTLINE(zk>zd,0),COLORYELLOW,LINETHICK10; PARTLINE(1,10),COLORWHITE,LINETHICK10; PARTLINE(rk>rd,10),COLORRED,LINETHICK10; QUOTE: 857.問(wèn): 這種平均線(xiàn)如何寫(xiě)?如果在日線(xiàn)圖界面,則ma:(c,30)//下面的不顯示 如果切換到120分鐘,則ma:(c,20) //前面的ma:(c,30)不顯示 如果切換到60分鐘,則ma:(c,10) //前面的ma:(c,30) ma:(c,20)不顯示 答(bajatje): if DATATYPE=6 then ma:(c,30)//下面的不顯示 if DATATYPE=11 then ma:(c,20) //前面的ma:(c,30)不顯示 if DATATYPE=5 then ma:(c,10) //前面的ma:(c,30) ma:(c,20) 不顯示 QUOTE: 858.問(wèn): 根據指定日期,以光標控制黃金分割位置 答(hx817): 參考 input:n(1040618,700101,1341231);//N 為日期,可在參數中設置 tj:=date=n; tj1:=(BARPOS-BARSLAST(tj)); kn:SYSPARAM(1)-tj1; kn1:INTPART(0.382*kn); kn2:INTPART(0.618*kn); VERTLINE(tj); VERTLINE(BARPOS=tj1+kn1); VERTLINE(BARPOS=tj1+kn2); QUOTE: 859.問(wèn): 我要把成本分布中的90%集中度的數值 引用出來(lái),放在k線(xiàn)的上方,怎么做 答(股市騎兵00): 是這個(gè)意思嗎? P90:(cost(95)-cost(5))/(cost(95)+cost(5))*100; QUOTE: 860.問(wèn): 我想用數字來(lái)表示月K線(xiàn)天數怎么做 答(hx817): 1.先建立一個(gè)調用公式,比如 ttt 用來(lái)計算每個(gè)月多少天 fm:=month<>refx(month,1); fn:=BARSLAST(fm)+1; nn:if(fm=1 or ISLASTBAR,ref(fn,1),0); 2.再建立新公式 "ttt.nn#day" 則在月線(xiàn)周期上可看到當月交易周期 QUOTE: 861.問(wèn): 如果A=EMA(CLOSE,10),(A為常量).請問(wèn)任何求CLOSE的值 答(股市騎兵00): 根據EMA定義推算。 若Y=EMA(X,N) 則Y=[2*X+(N-1)*Y']/(N+1) QUOTE: 862.問(wèn): 前一天的陰線(xiàn)實(shí)體大于5%,今天的K線(xiàn)孕育在昨天陰線(xiàn)實(shí)體之內, 同時(shí)KDJ值均小于20。 答(bajatje): ref((o-c)/ref(c,1)>0.05,1) and max(h,l)<ref(o,1) and min(h,L)>ref(c,1) and "kdj.d"<20; QUOTE: 863.問(wèn): 能否把FH1的數據相應的往前移動(dòng) fh:=SPLITDATA(4)/10; ts:DIVIDBARS(0); fh1:sum(fh,ts+1); 答(股市騎兵00): fh:=SPLITDATA(4)/10; ts:=DIVIDBARS(0); fh1:sum(fh,ts+1); a:0*c; for i=datacount downto 2 do begin if fh>0 then a[i-1]:=fh; else a[i-1]:=max(a[i-1],a); end; QUOTE: 864.問(wèn): 這幾天為了還原C,忙于校對原始數據,始終有出入, 不知什么原因,搞的頭都快暈了,錯在哪里 送股:=SPLITDATA(1)*0.1; 配股:=SPLITDATA(2)*0.1; sp:=送股+配股; sp1:=sp; sp1[datacount]:=1; for i=datacount downto 2 do sp1[i-1]:=sp1/(1+sp); fh:=SPLITDATA(4)/10; ts:=DIVIDBARS(0); fh1:sum(fh,ts+1); a:=0*c; for i=datacount downto 2 do begin if fh>0 then a[i-1]:=fh; else a[i-1]:=max(a[i-1],a); end; FH1:=A; HYCA:C/SP1+FH1; 答(股市騎兵00): 送股:=SPLITDATA(1)/10;配股:=SPLITDATA(2)/10;分紅:=SPLITDATA(4)/10; sp:=c; fh:=0*c;//分紅前移 sp[datacount]:=1;//送配股復權比例 for i=datacount downto 2 do begin sp[i-1]:=sp/(1+送股+配股); fh[i-1]:=fh; if 分紅>0 then fh[i-1]:=分紅; end; 復權價(jià):c/sp+fh; VERTLINE(送股+配股+分紅>0); QUOTE: 865.問(wèn): 時(shí)段統計中的陽(yáng)換手率是什么意思公式是什么?:(陽(yáng)量的值是從哪個(gè)公式或函數提出來(lái)的? 答(bajatje): 陽(yáng)換手:sum((o<=c)*v,N)/capital*100; 陰換手:sum((o>c)*v,N)/capital*100; QUOTE: 866.問(wèn): 我想做個(gè)陰陽(yáng)換手比的指標用分筆周期,按您的指點(diǎn) 第一次輸出為0 (N=0): 陽(yáng)換手:s=um((o<=c)*v,N)/capital*100; 陰換手:sum((o>c)*v,N)/capital*100 陽(yáng)換手/陰換手 第二次用一句輸出卻等于陰陽(yáng)換手之和: 陽(yáng)換手:s=um((o<=c)*v,N)/capital*100; 第三次用另一句輸出為0,說(shuō)明分母是0,所以第一次輸出都是0: 陰換手:sum((o>c)*v,N)/capital*100 答(bajatje): 陽(yáng)換手:sum((o<=c)*v,N)/capital*100; 陰換手:sum((o>c)*v,N)/capital*100; 這樣的表達式?jīng)]有問(wèn)題。你的capital是否有數據? SUM(IF(CLOSE/REF(CLOSE,1)>1,VOL,0),0)/capital*100 這樣也對(注意:是?。? 不是?。?) QUOTE: 867.問(wèn): 如何引用實(shí)時(shí)圖上的預估量 答(hx917): 自己計算,用 (交易時(shí)間/一天總時(shí)間)×已經(jīng)成交的量 QUOTE: 868.問(wèn): 編一個(gè)《無(wú)未來(lái)數據的周MA指標》,周均線(xiàn)能夠在日線(xiàn)圖每日變化顯示 答(股市騎兵00): INPUT:N(5);//均線(xiàn)周數調節 x:=datediff(ref(date,1),date)<>weekday-ref(weekday,1); z:=refx(x,1);zq1:=sumbars(z,n-1); zq2:=sumbars(z,n); 周均線(xiàn):if(z,sum(z*c,zq2)/n,(sum(z*c,zq1)+c)/n); QUOTE: 869.問(wèn): 如果在小時(shí)段引用日線(xiàn)MA如何編寫(xiě)?將weekday改為day結果不對 答(股市騎兵00): 改成這樣試試: x:=date>ref(date,1); QUOTE: 870.問(wèn): 我通常是在日線(xiàn)周期上看k線(xiàn)和kdj指標,又懶得開(kāi)多個(gè)窗口看5分鐘周期的kdj,而且也很麻煩。 想在日線(xiàn)周期的窗口上能看見(jiàn)5分鐘周期的kdj線(xiàn),這樣有兩個(gè)kdj副圖,一個(gè)是日線(xiàn)周期的,一個(gè) 是5分鐘的,對于掌握盤(pán)口買(mǎi)賣(mài)很有好處,怎么編這種指標 答(股市騎兵00): 日線(xiàn)引用5分鐘KD只能顯示每天最后一筆的KD數據。 k:STKINDI(STKLABEL,'kd.k',0,2); d:STKINDI(STKLABEL,'kd.d',0,2); QUOTE: 871.問(wèn): mr:ma(c,5)>ma(c,10); mc:ma(c,5)<ma(c,10) or ? 買(mǎi)入條件:5日均線(xiàn)大于10日均線(xiàn)(不是上穿)。 賣(mài)出條件:1、5日均線(xiàn)小于10日均線(xiàn);2、最低價(jià)格低于第一個(gè)買(mǎi)入條件成立時(shí)的最低價(jià)。 請問(wèn)第2個(gè)條件如何編寫(xiě)?嘗試過(guò) l<ref(l,barslast(mr)),可是結果顯示的是上一次條 件成立時(shí)的最低價(jià)而不是第一個(gè),又不希望買(mǎi)入條件采用cross(ma(c,5),ma(c,10)), 答(股市騎兵00): 這樣試試。 mr:ma(c,5)>ma(c,10); mc:ma(c,5)<ma(c,10) or c<ref(l,BARSLAST(cross(mr,0.5))); QUOTE: 872.問(wèn): 如何編輯公式在波段的高低點(diǎn)處顯示漲跌幅的數值? 如:AB段的漲幅為15%,如何在B點(diǎn)顯示15%這個(gè)數?!?br> 答(hx817): 別名: 前M個(gè)波峰值 所屬類(lèi)別: 指標函數 參數數量: 3 前M個(gè)ZIG轉向波峰值。 用法: PEAK(X,N,M)表示之字轉向ZIG(X,N)的前M個(gè)波峰的數值,M必須大于等于1 例如: PEAK(1,5,1)表示5%最高價(jià)ZIG轉向的上一個(gè)波峰的數值 PEAK(MA(C,20),10,1)表示均線(xiàn)的10%的ZIG轉向的上一個(gè)波峰的數值 別名: 前M個(gè)波谷值 所屬類(lèi)別: 指標函數 參數數量: 3 答(股市騎兵00): 這樣試試。 x:=4;n:=10;w:=FLATZIG(x,n); DRAWNUMBER(w=1,h*1.02,c/TROUGH(x,n,1)*100-100,2); DRAWNUMBER(w=0,l*0.98,c/PEAK(x,n,1)*100-100,2); QUOTE: 873.問(wèn): 我想找出主圖界面內包含K線(xiàn)的數量,但這個(gè)值是浮動(dòng)的,隨著(zhù)主圖放大、 縮小而變,請教用什么函數表示? 答(bajatje): SYSPARAM(3)-SYSPARAM(2) SYSPARAM(3) 系統參數:主圖可見(jiàn)K線(xiàn)最后位置 注意:該函數僅K線(xiàn)圖形分析且打開(kāi)十字光標時(shí)有效,否則返回值不確定 SYSPARAM(2) 系統參數:主圖可見(jiàn)K線(xiàn)最初位置 注意:該函數僅K線(xiàn)圖形分析且打開(kāi)十字光標時(shí)有效,否則返回值不確定 QUOTE: 874.問(wèn): 怎樣在分時(shí)上做 昨天的高點(diǎn)和低點(diǎn)各畫(huà)一條直線(xiàn),還有昨天5日均線(xiàn)畫(huà)一條直線(xiàn); 答(股市騎兵00): 1)先建個(gè)引用公式,名稱(chēng):X21 HH:H; LL:L; M:MA(C,5); 2)再建公式選主圖疊加。 HH:"X21.HH##day"; LL:"X21.LL##day"; M:"X21.M##day"; 問(wèn): 可不可以做出30分鐘內的分時(shí)上最高畫(huà)一條橫線(xiàn) 答(股市騎兵00): 1) HHM:=HHV(H,30); HH:HHM[DATACOUNT]; 2) HH:"X21.HH#MIN1"; QUOTE: 875.問(wèn): 鬼變臉文字化表述的解盤(pán)公式 答(股市騎兵00): 利用鬼變臉公式的數據,用下面涵數做。 別名: 顯示解盤(pán)數值 所屬類(lèi)別: 解盤(pán)函數 參數數量: 5 在[解]中輸出帶數值的解盤(pán)。 用法: EXPLAINEX(COND,TEXT,NUMBER,PRECISION,SKIPLINES) 在COND條件滿(mǎn)足時(shí)在[解]中輸出數值解說(shuō)。 PRECISION為小數顯示位數,SKIPLINES為空出幾行顯示下一個(gè)解盤(pán) 例如: EXPLAINEX(HIGH>=HHV(HIGH,20), '20天新高價(jià):',HIGH,2,1)表示在創(chuàng )20天新高時(shí)在 [解]中輸出數值解說(shuō)。 ...... 幫你做3天解盤(pán) pg:=SYSPARAM(1); w1:=BARSLAST(kk=3 or kk=4 or kk=5);w2:=BARSLAST(kk=1 or kk=2 or kk=6); EXPLAINEX(kk=1 or kk=2 or kk=6,'紅'+NUMTOSTR(w1[pg],0)+'今天:',c,2,0),COLORRED; EXPLAINEX(kk=3 or kk=4 or kk=5,'綠'+NUMTOSTR(w2[pg],0)+'今天:',c,2,0),COLORGREEN; EXPLAINEX(ref(kk=1 or kk=2 or kk=6,1),'紅'+NUMTOSTR(w1[pg-1],0)+'昨天:',ref(c,1),2,0),COLORRED; EXPLAINEX(ref(kk=3 or kk=4 or kk=5,1),'綠'+NUMTOSTR(w2[pg-1],0)+'昨天:',ref(c,1),2,0),COLORGREEN; EXPLAINEX(ref(kk=1 or kk=2 or kk=6,2),'紅'+NUMTOSTR(w1[pg-2],0)+'前天:',ref(c,2),2,0),COLORRED; EXPLAINEX(ref(kk=3 or kk=4 or kk=5,2),'綠'+NUMTOSTR(w2[pg-2],0)+'前天:',ref(c,2),2,0),COLORGREEN; QUOTE: 876.問(wèn): 我想在K線(xiàn)副圖上連續顯示等份的豎線(xiàn) 答(凹地): 看這個(gè)。等分 : 10天 VERTLINE(MOD(BARPOS,10)=0) QUOTE: 877.問(wèn): 如何在一分鐘K線(xiàn)圖附圖顯示日K線(xiàn)圖 已建立附圖顯示日K線(xiàn)圖,如下: STICKLINE (ISEQUAL AND C>=REF(C,1),C,C,7,1) COLORRED; STICKLINE (ISEQUAL AND C<REF(C,1),C,C,7,1) COLORcyan; STICKLINE (ISUP,H,L,0,0) COLORRED; STICKLINE (ISUP,C,O,7,1) COLORRED; STICKLINE (ISDOWN,H,L,0,0) COLORcyan; STICKLINE (ISDOWN,O,C,7,0) COLORcyan; 該公式只與主圖同周期,如何在一分鐘K線(xiàn)附圖顯示日K線(xiàn)圖? 答(bajatje): 1分鐘圖日K線(xiàn) w:=barslast(hour<ref(hour,1)); oo:=ref(o,w); cc:=refx(c,239-w); hh:=refx(hhv(h,w+1),239-w); LL:=refx(LLv(L,w+1),239-w); f:=cc-ref(cc,w+1); k:=BACKSET(ISLASTBAR,w+1); STICKLINE (cc>oo and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORRED; STICKLINE (cc>oo,oo,cc,10,0) COLORRED; STICKLINE (cc<oo and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORcyan; STICKLINE (cc<oo,oo,cc,10,0) COLORcyan; STICKLINE (cc=oo and f>=0 and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORRED; STICKLINE (cc=oo and f>=0,oo,cc,10,0) COLORRED; STICKLINE (cc=oo and f<0 and BETWEEN(w,INTPART(w[datacount]/2*0.93),INTPART(w[datacount]-w/2*1.07)),hh,LL,10,0) COLORcyan; STICKLINE (cc=oo and f<0,oo,cc,10,0) COLORcyan; QUOTE: 878.問(wèn): 昨天的K線(xiàn)形態(tài)與前天的K線(xiàn)形態(tài)基本相同怎樣編寫(xiě)? 答(bajatje): a:=BETWEEN(c,ref(c,1)-0.02,ref(c,1)+0.02) and BETWEEN(l,ref(l,1)-0.02,ref(l,1)+0.02) and BETWEEN(h,ref(h,1)-0.02,ref(h,1)+0.02) and BETWEEN(o,ref(o,1)-0.02,ref(o,1)+0.02) ; ref(a,1); 答(股市騎兵00): n:=1.003;n1:=0.997;co:=c/o;hl:=h/l;hc:=h/c; BETWEEN(co/ref(co,1),n,n1) and BETWEEN(hl/ref(hl,1),n,n1) and BETWEEN(hc/ref(hc,1), n,n1); QUOTE: 879.問(wèn): 請介紹<分析家4.0轉3.0公式轉換器>具體操作步驟 答(范數): 1.把原版分析家40的公式導出,置于桌面,命名123 2.退出原版分析家40.再打開(kāi)分析家4.0轉3.0公式轉換器 3.將置于桌面,命名123的公式導入分析家4.0轉3.0公式轉換器的版本內 4.再將分析家4.0轉3.0公式轉換器內的公式導出,在導出時(shí)選擇30格式. 5.一切工作完成后,則40變成了30. QUOTE: 880.問(wèn): 我是想在電腦解盤(pán)里面顯示以前均線(xiàn)交叉時(shí)的買(mǎi)進(jìn)價(jià)位. 比如:EXPLAINEX(5日線(xiàn)大于25日線(xiàn),'起始買(mǎi)進(jìn)價(jià)位=',起始買(mǎi)進(jìn)價(jià)位,0,0),colorcc10ff; 怎樣才能讓 (起始買(mǎi)進(jìn)價(jià)位)顯示以前均線(xiàn)交叉時(shí)的價(jià)位???? 答(hx817): ma1:=ma(c,5); ma2:=ma(c,25); fc:ref(c,BARSLAST(cross(ma1,ma2))+1); EXPLAINEX(ma1>ma2,'起始買(mǎi)進(jìn)價(jià)位=',fc,2,0),colorcc10ff; QUOTE: 881.問(wèn): 當出現買(mǎi)入信號時(shí)都會(huì )出現很多"買(mǎi)入"字樣,因為符合條件的K線(xiàn)太多,我只想讓它只出現前兩個(gè), 后面的就不顯示了.除非由"買(mǎi)入"轉入"賣(mài)出",就再只顯示"賣(mài)出"的前兩個(gè).. 答(股市騎兵00): B:=MA(C,20); A:=C>B; A1:=C<B; B1:=REF(HHV(H,5),1); B2:=REF(LLV(L,5),1); X:=A AND c>B1 AND C>O or barpos=1 or barpos=2; Y:=A1 AND c<B2 AND C<O or barpos=1 or barpos=2; dx:=sumbars(x,1);ex:=sum(y,dx); dy:=sumbars(y,1);ey:=sum(x,dy); x1:=(cross(ey,ex) or ey<3 and barpos<>2 and barpos<>1)*x; y1:=(cross(ex,ey) or ex<3 and barpos<>2 and barpos<>1)*y; DRAWTEXT(X1,L,'買(mǎi)進(jìn)'),colorWHITE; DRAWTEXT(Y1,H,'賣(mài)出'),colorGREEN; 問(wèn):如果我只單獨選擇第一個(gè)或者單獨選擇第二個(gè)用公式怎么表達? 答(股市騎兵00): 每次買(mǎi)賣(mài)只發(fā)一個(gè)信號,就去除 or ey<3 or ex<3 問(wèn):如果只顯示第二個(gè)"買(mǎi)進(jìn)",而不顯示第一個(gè),應該怎么表示??? 答(股市騎兵00): 改這2句,上面barpos=2多余了 x1:=(ey=2 and barpos<>1)*x; y1:=(ex=2 and barpos<>1)*y; QUOTE: 882.問(wèn): 選出股價(jià)在60均線(xiàn)正負2%之內的股票 答(股迷): ABS(CLOSE-MA(CLOSE,60))/CLOSE<0.02; QUOTE: 883.問(wèn): x1:=(cross(ey,ex) and barpos<>2 andbarpos<>1)*x; y1:=(cross(ex,ey) and barpos<>2 and barpos<>1)*y; 我是想把x1這個(gè)K線(xiàn)的收盤(pán)價(jià)作為買(mǎi)進(jìn)價(jià)寫(xiě)在電腦解盤(pán)里面 EXPLAINEX(BBB>0,'★起始多單價(jià)位= ',起始買(mǎi)進(jìn)價(jià)位,0,0),colorcc10ff; 就是不知道怎么樣來(lái)用 "起始買(mǎi)進(jìn)價(jià)位"表達x1時(shí)K線(xiàn)的收盤(pán)價(jià)??? 答(股市騎兵00): B:=MA(C,20); A:=C>B; A1:=C<B; B1:=REF(HHV(H,5),1); B2:=REF(LLV(L,5),1); X:=A AND c>B1 AND C>O or barpos=1; Y:=A1 AND c<B2 AND C<O or barpos=1; dx:=sumbars(x,1);ex:=sum(y,dx); dy:=sumbars(y,1);ey:=sum(x,dy); x1:=(cross(ey,ex) or ey<3 and barpos<>1)*x; y1:=(cross(ex,ey) or ex<3 and barpos<>1)*y; DRAWTEXT(X1,L,'買(mǎi)進(jìn)'),colorWHITE; DRAWTEXT(Y1,H,'賣(mài)出'),colorGREEN; sj:=MOD(date,10000)/100;fc:=c;x2:=sumbars(x1,1);y2:=sumbars(y1,1);gb:=SYSPARAM(1); EXPLAIN(X2,'買(mǎi)入時(shí)間:'+NUMTOSTR(sj[gb-x2[gb]+1],2)+' 買(mǎi)入價(jià):'+NUMTOSTR(fc[gb-x2[gb]+1],2)),COLORRED; EXPLAIN(Y2,'賣(mài)出時(shí)間:'+NUMTOSTR(sj[gb-y2[gb]+1],2)+' 賣(mài)出價(jià):'+NUMTOSTR(fc[gb-y2[gb]+1],2)),COLORGREEN; QUOTE: 884.問(wèn): 可以在一個(gè)選股公式里面設多個(gè)條件,而且這多個(gè)條件里面的數值都可以設置,如選擇 1、最高價(jià)與最低價(jià)10元到15元; 2、開(kāi)盤(pán)價(jià)在某一范圍; 3、漲跌幅度在某一范圍等。 答(hx817): input:年(2004),月(7),日(16),收盤(pán)小價(jià)格(5),收盤(pán)大價(jià)格(5.3),最高價(jià)格(15),最低價(jià)格(10); n:=DATEDIFF(((年-1900)*10000+月*100+日),DATE);//計算輸入日期和現在日期時(shí)間差 tj1:REF(CLOSE,n)>收盤(pán)小價(jià)格 and REF(CLOSE,n)<收盤(pán)大價(jià)格;//選擇收盤(pán)價(jià) tj2:REF(HIGH,n)<最高價(jià)格 and REF(LOW,n)>最低價(jià)格;//選擇收盤(pán)價(jià) //開(kāi)盤(pán)價(jià)、漲跌幅度 方法和 tj1 類(lèi)似 QUOTE: 885.問(wèn): 對飛狐RSI指標理論性失誤的疑問(wèn) 在飛狐里的RSI公式為 N1:6,2,10O N2:12,2,100 N3:24,2,100 LC := REF(CLOSE,1); RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100; RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100; RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100; 以下是我翻看函數說(shuō)明的一些個(gè)人注解,不知道對不對 ABS(X) 絕對值 數學(xué) 取X的絕對值 MAX (A,B) 最大值 數學(xué) 取A和B中最大的值 SMA (X,N,M) 移動(dòng)平均 引用 求X的N日靜態(tài)平均,M為權重 若Y=SMA(X,N,M) 則 Y=[M*X+(N-M)*Y')/N, 其中Y'表示上一周期Y值,N必須大于M。 REF(X,N) 向前引用 引用 引用N周期前的X值 LC:=REF(CLOSE,1) 該句為中間語(yǔ)句,不顯示 因為1天前的收盤(pán)價(jià)格CLOSE 可以理解為“上日收盤(pán)價(jià)格” CLOSE-LC:今日收盤(pán)價(jià)格-上日收盤(pán)價(jià)格“LC:=REM(CLOSE,1)” max(a,b)back to max a,or b. max(close-lc,0) 取CLOSE-LC 或0的最大值 可以理解為,如果收盤(pán)價(jià)格大于LC,則取他們的差值,否則取0。 SMA(MAX(CLOSE-LC,0),N1,1) 求移動(dòng)平滑因子為1時(shí)的N1日的(今日收盤(pán)價(jià)-上日收盤(pán)價(jià))或0的移動(dòng)平均價(jià) ABS(CLOSE-LC) 取CLOSE-LC的絕對值 SMA(ABS(CLOSE-LC),N1,1) 取移動(dòng)平滑因子為1是的N1天前的(收盤(pán)價(jià)-上日收盤(pán)價(jià)的絕對值)的移動(dòng)平均價(jià) 在期貨市場(chǎng)技術(shù)分析書(shū)中第273頁(yè),對RSI的定義是 RS=X天內上漲收市價(jià)的平均值/X內下跌收市價(jià)的平均值 解釋?zhuān)篨天內的上漲了的收市價(jià)格的上漲幅度相加,然后除于X,在結算下跌幅度時(shí)則把所有的下跌了的收市價(jià)格的下跌幅度相加,然后除于X,得出相對力度(RS) RSI=100-(100/(1+RS)) 我覺(jué)的飛狐里的RSI出現了理論性的錯誤。 SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100 里面取的是 N1天前的收盤(pán)差最大值/N1天前的收盤(pán)差絕對值*100 而墨非定義的是漲跌幅度之間的關(guān)系,RSI并非是最大值與絕對值之間的關(guān)系。 因為不會(huì )編程,不能夠自己編寫(xiě)與原來(lái)RSI進(jìn)行對比嚴整 答(hx817): 在期貨市場(chǎng)技術(shù)分析書(shū)中第273頁(yè),對RSI的定義是 RS = X天內上漲收市價(jià)的平均值/X內下跌收市價(jià)的平均值 解釋?zhuān)篨天內的上漲了的收市價(jià)格的上漲幅度相加,然后除于X, 在結算下跌幅度時(shí)則把所有的下跌了的收市價(jià)格的下跌幅度相加,然后除于X,得出相對力度(RS) RSI=100-(100/(1+RS)) 漲跌幅度=C-REF(C,1)=C-LC 上漲幅度 C>LC 即 C-LC>0 MAX(C-LC,0) 只計算上漲的幅度 X天內上漲幅度的平均值=SMA(MAX(C-LC,0),X,1) 每天漲跌幅度的總和:ABS(CLOSE-LC) SMA(ABS(CLOSE-LC),N1,1) RSI = 100-100/(1+RS) = (100*(1+RS)-100)/(1+RS) = (100+100*RS-100)/(1+RS) = (100*RS)/(1+RS) = RS/(1+RS)*100 RS = X天內上漲幅度的平均值/X天內下跌幅度的平均值 假設 RS=R1/R2 那么: RSI = (R1/R2)/(1+R1/R2)*100 = R1/(R1+R2)*100 R1為 X天內上漲幅度的平均值 = SMA(MAX(C-LC,0),X,1) R2為 X天內下跌幅度的平均值 R1+R2 為X天內漲跌幅度的平均值 = SMA(ABS(CLOSE-LC),N1,1) 那么: RSI = SMA(MAX(C-LC,0),X,1)/SMA(ABS(CLOSE-LC),N1,1)*100 CODE:[Copy to clipboard]886.問(wèn): 請南客老師將這段源碼轉成飛狐公式,謝謝。 input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1), M1(50,1,1000,1),N1(0,0,1000,1); variable:AA=0,BB=0,CC=0,DD=0, EE=0,FF=0,HH=0,II=0; varAA:=0; varBB:=0; varCC:=0; varDD:=barpos-1; varEE:=capital*(M/100); varFF:=capital*(m1/100); varD:=date>=D; var0:=ma( ref(vol,1),N );{N=1,與上一交易日比較} var00:=var0*( (100+N1)/100 ); varV:=vol/var00-1; var1:=if(vol>var00,vol-var00,0); var2:=if(vol<var00,var00-vol,0); var3:=(vol-var0)*100/var0; 差:vol-var0,colorffcc00,linethick0,precis0; 幅%:var3,colorccffff,linethick0,precis0; STICKLINE(vol>var0,0,var1,6,0),COLORffccff; STICKLINE(vol<var0,0,var2,6,1),colorccff33; if varD then begin for i=0 to varDD do begin if varAA< varEE then begin varAA := varAA + ref(vol,i); if varAA >= varEE then varZZ:=i+1; end end for i=0 to varDD do begin if varBB< varFF then begin varBB := varBB + ref(var1,i); if varBB >= varFF then varXX:=i+1; end end for i=0 to varDD do begin if varCC< varFF then begin varCC := varCC + ref(var2,i); if varCC >= varFF then varYY:=i+1; end end if Vol>var00 then begin AA:=AA+varV; BB:=BB+1; end else if Vol<var00 then begin CC:=CC+varV; DD:=DD+1; end if C>O then begin EE:=EE+varV; FF:=FF+1; end else if C<O then begin HH:=HH+varV; II:=II+1; end end 漲%:if(BB=0,0,AA*100/BB),precis2,colorffccff; 跌%:if(DD=0,0,CC*100/DD),precis2,colorcyan; 陽(yáng)%:if(FF=0,0,EE*100/FF),precis2,color99ffff; 陰%:if(II=0,0,HH*100/II),precis2,colorffff99; (天):varZZ,precis0,linethick0,coloreeeeee; 天↑:varXX,precis0,linethick0,colorffcccc; 天↓:varYY,precis0,linethick0,colorccff33; 答(股市騎兵00): 上面的公式是分析家的,和飛狐寫(xiě)法不同,一個(gè)字都沒(méi)改怎么能用呢 input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1), M1(50,1,1000,1),N1(0,0,1000,1); variable:AA=0*c,BB=0*c,CC=0*c,DD=0*c, EE=0*c,FF=0*c,HH=0*c,II=0*c; varAA:=0*c; varBB:=0*c; varCC:=0*c; varDD:=barpos-1; varEE:=capital*(M/100); varFF:=capital*(m1/100); varD:=date>=D; var0:=ma( ref(vol,1),N );{N=1,與上一交易日比較} var00:=var0*( (100+N1)/100 ); varV:=vol/var00-1; var1:=if(vol>var00,vol-var00,0); var2:=if(vol<var00,var00-vol,0); var3:=(vol-var0)*100/var0; 差:vol-var0,colorffcc00,linethick0,PRECISION0; 幅%:var3,colorccffff,linethick0,PRECISION0; STICKLINE(vol>var0,0,var1,6,0),COLORffccff; STICKLINE(vol<var0,0,var2,6,1),colorccff33; fv:=v;fc:=c;fo:=o; for i=1 to datacount do begin if varD then begin for j=i downto 1 do begin if varaa[j]<varee then varaa:=varaa+fv[j]; if varaa>=varee then begin varzz:=i-j+1; break; end; end; for j=i downto LBOUND(var1) do begin if varbb[j]<varff then varbb:=varbb+var1[j]; if varbb>=varff then begin varxx:=i-j+1; break; end; end; for j=i downto LBOUND(var2) do begin if varcc[j]<varff then varcc:=varcc+var2[j]; if varcc>=varff then begin varyy:=i-j+1; break; end; end; if fv>var00 then begin aa:=aa[i-1]+varv; bb:=bb[i-1]+1; end;else begin aa:=aa[i-1]; bb:=bb[i-1]; end; if fv<var00 then begin cc:=cc[i-1]+varv; dd:=dd[i-1]+1; end;else begin cc:=cc[i-1]; dd:=dd[i-1]; end; if fc>fo then begin ee:=ee[i-1]+varv; ff:=ff[i-1]+1; end;else begin ee:=ee[i-1]; ff:=ff[i-1]; end; if fc<fo then begin hh:=hh[i-1]+varv; ii:=ii[i-1]+1; end;else begin hh:=hh[i-1]; ii:=ii[i-1]; end; end; end; 漲%:if(BB=0,0,AA*100/BB),PRECISION2,colorffccff; 跌%:if(DD=0,0,CC*100/DD),PRECISION2,colorcyan; 陽(yáng)%:if(FF=0,0,EE*100/FF),PRECISION2,color99ffff; 陰%:if(II=0,0,HH*100/II),PRECISION2,colorffff99; (天):varZZ,PRECISION2,linethick0,coloreeeeee; 天↑:varXX,PRECISION2,linethick0,colorffcccc; 天↓:varYY,PRECISION2,linethick0,colorccff33; CODE:[Copy to clipboard]887.問(wèn): 在電腦解盤(pán)中: EXPLAIN(x1,提示平倉一半),有沒(méi)有辦法讓"提示平倉一半"不重復出現啊! 因為在一段時(shí)間x1條件會(huì )反復出現. count(x1,m)=1; 答(南客): 如何使買(mǎi)入信號、賣(mài)出信號一一對應 (1) 在設計公式時(shí),我們經(jīng)常遇到這樣的問(wèn)題,如何使買(mǎi)賣(mài)信號一一對應? 比如下面的代碼: input:n(26,5,300),p(2,0.1,10); close; mid : ma(close,n); upper: mid + p*std(close,n); lower: mid - p*std(close,n); tjb:=cross(close,lower); tjs:=cross(upper,close); drawicon(tjb,close,4); drawicon(tjs,close,5); 可以看出,買(mǎi)入信號連續發(fā)出多次后,才出現賣(mài)出信號,賣(mài)出信號連續發(fā)出多次后, 才發(fā)出買(mǎi)入信號。 (2) 如何過(guò)濾連續的買(mǎi)入、賣(mài)出信號,使買(mǎi)入后只要沒(méi)有發(fā)出賣(mài)出信號,就不再發(fā)出買(mǎi)入信號;同樣,賣(mài)出后只要沒(méi)有出現買(mǎi)入信號,就不再發(fā)出賣(mài)出信號。即買(mǎi)入、賣(mài)出信號一一對應。 容易想到的是使用過(guò)濾函數filter(),但這個(gè)函數是難以實(shí)現的,因為未來(lái)有多少個(gè)連續的買(mǎi)入(或賣(mài)出)信號是未知的。 另一種方法是,從前一次賣(mài)出(或買(mǎi)入)信號開(kāi)始累加買(mǎi)入(或賣(mài)出)信號,如果累加次數等于1,則發(fā)出真正的買(mǎi)入(或賣(mài)出)信號。 但這里還有一個(gè)問(wèn)題,如果首次信號是賣(mài)出信號的話(huà),也應該過(guò)濾,因為沒(méi)有買(mǎi)入哪來(lái)賣(mài)出?應讓首次信號是買(mǎi)入信號才合理。方法是,在第1根K線(xiàn)的位置,虛擬一個(gè)賣(mài)出信號。 以下是實(shí)現上述想法的常規函數代碼: input:n(26,5,300),p(2,0.1,10); close; mid : ma(close,n); upper: mid + p*std(close,n); lower: mid - p*std(close,n); //以下為常規函數處理代碼// tjb:=cross(close,lower);//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 tjs:=cross(upper,close);//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 {以下代碼,使買(mǎi)、賣(mài)信號一一對應} tsb:=barssince(tjb); tss:=barssince(tjs); if tjs[datacount]<tjb[datacount] then begin a:=setlbound(tjs,1); tjs:=tjs or barpos=1; end; tjbuy:=count(tjb,barslast(tjs))=1 and tjb; //買(mǎi)入信號 tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣(mài)出信號 drawicon(tjbuy,low,4); drawicon(tjsell,high,5); 答(cwy): 如下也可解決 input:n(26,5,300),p(2,0.1,10); close; mid:ma(close,n); upper:mid + p*std(close,n); lower:mid - p*std(close,n); tjb:=cross(close,lower); tjs:=cross(upper,close); tsb:=barslast(tjb); tss:=barslast(tjs); tj1:=tjb and count(tjb,tss+1)<2; tj2:=tjs and count(tjs,tsb+1)<2; drawicon(tj1,close,4); drawicon(tj2,close,5); 允許連續出現2次買(mǎi)入信號或賣(mài)出信號 input:n(26,5,300),p(2,0.1,10); close; mid:ma(close,n); upper:mid + p*std(close,n); lower:mid - p*std(close,n); tjb:=cross(close,lower); tjs:=cross(upper,close); tsb:=barslast(tjb); tss:=barslast(tjs); tj1:=tjb and count(tjb,tss+1)<3; tj2:=tjs and count(tjs,tsb+1)<3; drawicon(tj1,close,4); drawicon(tj2,close,5); 答(股市騎兵00): 1.用循環(huán)我試著(zhù)答一下。 input:n(26,5,300),p(2,0.1,10),s(1,1,5);//S為允許連續出現信號調節參數! close; mid := ma(close,n); upper: mid + p*std(close,n); lower: mid - p*std(close,n); //以下為常規函數處理代碼// tjb:=cross(close,lower);//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 tjs:=cross(upper,close);//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 /////////////////////////////////////////////////////////// m:=0*c;w:=0*c;mm:=0*c; for i=LBOUND(upper) to datacount do begin mm:=mm[i-1]+tjb; m:=m[i-1]+tjb; w:=w[i-1]+tjs; if tjs then m:=0; if tjb then w:=0; if m<=s and tjb then z:=1; if w<=s and tjs and mm>0 then t:=1;//首次要發(fā)賣(mài)出信號去掉and mm>0 end; drawicon(z,low,4); drawicon(t,high,5); 2.稍微改下思路試試。 /////////////////////////////////////////////////////////// m:=0*c;w:=0*c;mm:=0*c; for i=LBOUND(upper) to datacount do begin mm:=mm[i-1]+tjb; m:=m[i-1]+tjb; w:=w[i-1]+tjs; if w>w[i-1] then m:=0; if m>m[i-1] or mm=0 then w:=0; if m-w>s then m:=m[i-1]; if w-m>s then w:=w[i-1]; end; drawicon(m>ref(m,1),low,4); drawicon(w>ref(w,1),high,5); 問(wèn): 剛剛發(fā)現問(wèn)題。如果將買(mǎi)入、賣(mài)出條件改為以下方式,就無(wú)法實(shí)現信號的對應了。請問(wèn)老師在買(mǎi)入條件仍然保持“C>MID”,而不是“CROSS(C,MID)”的情況下如何實(shí)現? MID:MA(C,30); tjb:=C>MID AND L>MID;//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5))); U2:=L<MID; tjs:=U1 OR U2;//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 {以下代碼,使買(mǎi)、賣(mài)信號一一對應} tsb:=barssince(tjb); tss:=barssince(tjs); if tjs[datacount]<tjb[datacount] then begin a:=setlbound(tjs,1); tjs:=tjs or barpos=1; end; tjbuy:=count(tjb,barslast(tjs))=1 and tjb; //買(mǎi)入信號 tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣(mài)出信號 drawicon(tjbuy,low,4); drawicon(tjsell,high,5); 答(股市騎兵00): 你的買(mǎi)賣(mài)條件不對呀! tjs//初始賣(mài)出信號 tjb//初始買(mǎi)入信號 2個(gè)條件自相矛盾了,同時(shí)買(mǎi)賣(mài)信號都會(huì )發(fā)的,那你聽(tīng)買(mǎi)的呢,還是賣(mài)的呢? 你硬要這個(gè)條件,下面的你參考 MID:=MA(C,30); tjb:=C>MID AND L>MID; U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5))); U2:=L<MID; tjs:=U1 OR U2;//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 tjb:=tjb and not(tjs);//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 {以下代碼,使買(mǎi)、賣(mài)信號一一對應} tsb:=barssince(tjb); tss:=barssince(tjs); if tjs[datacount]<tjb[datacount] then begin a:=setlbound(tjs,1); tjs:=tjs or barpos=1; end; tjbuy:=count(tjb,barslast(tjs))=1 and tjb; //買(mǎi)入信號 tjsell:=count(tjs,barslast(tjb))=1 and tjs; //賣(mài)出信號 drawicon(tjbuy,low,4); drawicon(tjsell,high,5); 問(wèn): 公式中的“U2”又改了一下: U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5))); 請教怎樣才能在“tjsell”條件成立后,當“C>MID AND L>MID”條件滿(mǎn)足時(shí)即可產(chǎn)生新的“tjbuy”信號?謝謝! 答(股市騎兵00): 你的買(mǎi)賣(mài)條件本身有重疊的問(wèn)題??隙ㄓ行盘枔p失的,如果以買(mǎi)入信號為基準。 損失賣(mài)出信號改為如下表達。 MID:=MA(C,30); tjb:=C>MID AND L>MID;//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 U1:=L<REF(L,BARSLAST(CROSS(TJB,0.5))); //U2:=L<MID; U2:=C>REF(C,BARSLAST(CROSS(TJB,0.5))); tjs:=(U1 OR U2) and not(tjb);//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 答(cwy): 這個(gè)作業(yè)不能說(shuō)是真正的用循環(huán)語(yǔ)句來(lái)實(shí)現,對常規函數使用的考慮還是較多, 如處理第一個(gè)賣(mài)出信號,實(shí)際上我不是做出來(lái)而是試出來(lái)的, input:n(26,5,300),p(2,0.1,10); close; mid:ma(close,n); upper:mid + p*std(close,n); lower:mid - p*std(close,n); //以下為常規函數處理代碼// tjb:=cross(c,lower);//初始買(mǎi)入信號,可換成其它任意買(mǎi)入條件 tjs:=cross(upper,c);//初始賣(mài)出信號,可換成其它任意賣(mài)出條件 tss1:=BARSSINCE(tjb);//第一個(gè)賣(mài)出信號 /////////////////////////////////////////////////////// fb:=0*c; fs:=0*c; for i =n to datacount do begin fb:=fb[i-1]+tjb; fs:=fs[i-1]+tjs; if tjs then fb:=0; if tjb then fs:=0; if fb=1 and tjb then fb1:=1; if fs=1 and tjs then fs1:=1; end; drawicon(fb1 ,l,4); drawicon(fs1 and tss1>2 ,h,5); QUOTE: 888.問(wèn): 在100日內,從股價(jià)最低點(diǎn)到最高點(diǎn),標出0。618。0。382的位置上畫(huà)出線(xiàn)。 相反從最高到最低,也同樣標出2條線(xiàn) 答(股市騎兵00): hh:hhv(h,100); ll:llv(l,100); f1:(hh-ll)*0.618+ll; f2:(hh-ll)*0.382+ll; QUOTE: 889.問(wèn): 我想只輸出指標線(xiàn),而不輸出數值,如何寫(xiě)? 如:ma5:ma9c,5);只輸出指標線(xiàn),而不輸出數值 答(bajatje): 別名: 畫(huà)分段線(xiàn) 所屬類(lèi)別: 繪圖函數 參數數量: 2 分段繪制指標線(xiàn)。 用法: PARTLINE(COND,PRICE),滿(mǎn)足COND條件繪制PRICE連線(xiàn)。 例如:PARTLINE(C>REF(C,1),C),colorred表示收盤(pán)大于前收以紅色繪制收盤(pán)價(jià)連線(xiàn)。 PARTLINE(1,ma5); QUOTE: 890.問(wèn): 求今日向前有多少根k線(xiàn)的最高價(jià)大于且最低價(jià)小于今日收盤(pán)價(jià)? 答(股市騎兵00): 最后周期和光標位統計大致這樣。 fc:=c;pg:=datacount;//可改為SYSPARAM(1)光標統計 x:=h>fc[pg] and l<fc[pg]; y:=sum(x,0)-x[pg]; y[pg]; QUOTE: 891.問(wèn): 只計算今天與前幾日連續符合條件的數量,不是累計相加的數量。 答(股市騎兵00): n:=5;//天數調節 fc:=c;pg:=SYSPARAM(1);//可改為SYSPARAM(1)光標統計 x:=h>fc[pg] and l<fc[pg]; y:=sum(x,n)-x[pg]; y[pg]; QUOTE: 892.問(wèn): 如何取圖表內第一根K線(xiàn)到最后一根K線(xiàn)之間的時(shí)間差? 要求幾天幾小時(shí)幾分鐘。 答(hx817): rj:=date;fz:=time; d1:=rj[SYSPARAM(3)];d2:=rj[SYSPARAM(2)]; t1:=fz[SYSPARAM(3)];t2:=fz[SYSPARAM(2)]; fh1:=intpart(t1/10000);fh2:=intpart(t2/10000); fm1:=intpart((t1-fh1*10000)/100);fm2:=intpart((t2-fh2*10000)/100); fd:=DATEDIFF(d2,d1); hh:=fh1-fh2; mm:=fm1-fm2; if mm<0 then begin hh:=hh-1; mm:=mm+60; end; if hh<0 then begin fd:=fd-1; hh:=hh+24; end; 天:fd; 時(shí):hh; 分:mm; QUOTE: 893.問(wèn): 如何引用05年4月中旬--6月初,這段時(shí)間周期內的最低價(jià)。 答(bajatje): w1:=barslast(date<=m1); w2:=barslast(date<=m2); ref(LLv(L,w1),w2); macd 預計交叉價(jià) d:ema(c,12)LINETHICK; a:ema(c,26)LINETHICK; e:=ema(d-a,9); 今日交叉價(jià):(351*ref(e,1)+325*ref(a,1)-297*ref(d,1))/28LINETHICK; 明日交叉價(jià):(351*e+325*a-297*d)/28LINETHICK; QUOTE: 894.問(wèn): 個(gè)數學(xué)公式,如何寫(xiě) {[(1+2+3+4+5)*5-2]*2*3*4+20}*2/64 其中(1+2+3+4+5)這里面是最近5天的收盤(pán)價(jià)格,其它的數字是常數 是不是用datacount引用前5天的價(jià)格? 答(清揚): ((MA(C,5)*5*5-2)*2*3*4+20)*2/64 // MA(C,5)*5 為最近五天收盤(pán)價(jià)之和 答(hx817): m1:ma(c,5); m2:(c+ref(c,1)+ref(c,2)+ref(c,3)+ref(c,4))/5; QUOTE: 895.問(wèn): 幫忙編一個(gè)5分鐘與60分鐘K線(xiàn)同圖顯示公式. 答(股市騎兵00): 以前做的公式改了下,5分鐘K線(xiàn)使用 if DATATYPE<>2 then exit; bc:=12;sj:=MOD(BARPOS-1,bc)=0 OR BARPOS=1; zsj:=sum(sj,0);dzsj:=zsj[DATACOUNT]-zsj; x:=DATACOUNT-BARPOS+1;zq:=SUMBARS(sj,1); y:=SUMBARS(sj,x-dzsj);y1:=SUMBARS(sj,x-1-dzsj); 開(kāi)60:ref(o,y-1),LINETHICK0; 高60:if(ISLASTBAR,hhv(h,zq),ref(hhv(h,bc),y1)),LINETHICK0; 低60:if(ISLASTBAR,llv(l,zq),ref(llv(l,bc),y1)),LINETHICK0; 收60:if(ISLASTBAR,ref(c,y1-1),ref(c,y1)),LINETHICK0; STICKLINE(收60>=開(kāi)60,收60,開(kāi)60,7,1),colorred; STICKLINE(收60>=開(kāi)60,收60,高60,0.1,1),colorred; STICKLINE(收60>=開(kāi)60,開(kāi)60,低60,0.1,1),colorred; STICKLINE(收60<開(kāi)60,收60,開(kāi)60,7,0),colorcyan; STICKLINE(收60<開(kāi)60,開(kāi)60,高60,0.1,0),colorcyan; STICKLINE(收60<開(kāi)60,收60,低60,0.1,0),colorcyan; 漲幅60:收60/ref(收60,1)*100-100,LINETHICK0; 答(股市騎兵00) 要同圖 1.建個(gè)引用公式名:X5 cc:c; oo:o; hh:h; ll:l; 2.再用下面的公式 if DATATYPE<>2 then exit; n:=12;pn:=mod(barpos-1,n); ik:=pn=0 or ISLASTBAR or refx(pn=0,1); 收:"x5.cc#min60",LINETHICK0; 開(kāi):"x5.oo#min60",LINETHICK0; 高:"x5.hh#min60",LINETHICK0; 低:"x5.ll#min60",LINETHICK0; m:=收>=開(kāi);w:=收<開(kāi);f:=ISLASTBAR*(pn<6); PARTLINE(pn>0 and m,收),COLORRED; PARTLINE(pn>0 and m,開(kāi)),COLORRED; PARTLINE(pn>0 and w,收),COLORBLUE; PARTLINE(pn>0 and w,開(kāi)),COLORBLUE; STICKLINE(ik and m,開(kāi),收,0.1,1),COLORRED; STICKLINE(ik and w,開(kāi),收,0.1,1),COLORBLUE; STICKLINE((pn=6 or f) and m,收,高,0.1,1),COLORRED; STICKLINE((pn=6 or f) and m,開(kāi),低,0.1,1),COLORRED; STICKLINE((pn=6 or f) and w,開(kāi),高,0.1,1),COLORBLUE; STICKLINE((pn=6 or f) and w,收,低,0.1,1),COLORBLUE; QUOTE: 896.問(wèn): 求某天(可以設定)到今天的換手率總和。 答(cwy): RQ:=IF(DATE=1050104,1,0);//在1050104處換入你的日期 N天的換手率總和:SUM(IF(BARSLAST(RQ)>0,V,0),0)/FINANCE(7); QUOTE: 897.問(wèn): 5日ma、10日ma、30日ma相交在一點(diǎn)時(shí),當日股價(jià)上穿該點(diǎn)漲停,(包括st),成功率很高 答(hx817): st:=if(INBLOCK('ST板塊') or INBLOCK('*ST板塊'),1.05,1.1); zt:=ROUND(100*st*ref(c,1))/100<=c; m1:=ma(c,5); m2:=ma(c,10); m3:=ma(c,30); tj:BETWEEN(m1,o,c) and BETWEEN(m2,o,c) and BETWEEN(m3,o,c) and zt CODE:[Copy to clipboard]898.問(wèn): 我想請你幫做一下,就是我用光標在一個(gè)點(diǎn)位拉到另一個(gè)點(diǎn)位時(shí),就出現一個(gè)長(cháng)方形,在這個(gè)長(cháng)方形里出現三條橫線(xiàn),它們分別在三分之一,三分之二和二分之一的點(diǎn)位上,最好能顯示出數據. 答(股市騎兵00): INPUT:m(48);//周期調節 x:=3;p:=SYSPARAM(1); ws:=BARPOS;ws1:=if(ws<m,ws,m); wsp:=p-ws1+1;wsp1:=ws1-1; h1:=hhv(h,ws1);l1:=llv(l,ws1); hp:=h1[p];lp:=l1[p];hlpx:=(hp-lp)/x; if p=1 then exit; DRAWSL(ws=wsp[p],hp,0,wsp1[p],3); DRAWSL(ws=wsp[p],lp,0,wsp1[p],3); DRAWSL(ws=wsp[p],lp+hlpx,0,wsp1[p],3); DRAWSL(ws=wsp[p],lp+hlpx*2,0,wsp1[p],3); STICKLINE(ws=wsp[p],hp,lp,0.5,1); STICKLINE(ws=p,hp,lp,0.5,1); DRAWNUMBER(ws=wsp[p],hp,hp,2),SHIFT2; DRAWNUMBER(ws=wsp[p],lp,lp,2),SHIFT2; DRAWNUMBER(ws=wsp[p],lp+hlpx,lp+hlpx,2),SHIFT2; DRAWNUMBER(ws=wsp[p],lp+hlpx*2,lp+hlpx*2,2),SHIFT2; DRAWSL(ws=wsp[p],lp+(hp-lp)/2,0,wsp1[p],3); QUOTE: 899.問(wèn): 前一天的K線(xiàn)振幅為5%以上,跌幅為—3%以上。今天的振幅孕育在昨天的 振幅之內,同時(shí)KDJ值均小于20。 答(欣兒): a1:=ref((h/l-1)*100,1)>5 and (ref(c,1)/ref(c,2)-1)*100<-3 and h<ref(h,1) and l<ref(l,1); a2:="kdj.k"<20 and "kdj.d"<20 "kdj.j"<20; a1 and a2; QUOTE: 900.問(wèn): 節氣不在交易日內,如何在離它最近的這一天近似表示出來(lái)? 比如: VAR7:=DRAWTEXT(date=LSOLARTERMDATE(9),0,'*立夏'); VAR8:=DRAWTEXT(date=LSOLARTERMDATE(10),0,'*小滿(mǎn)'); VAR9:=DRAWTEXT(date=LSOLARTERMDATE(11),0,'*芒種'); 今年內這三個(gè)節氣都不在交易日內,如何在離它最近的這一天近似表示出來(lái)?并與正常能表示的節氣區別開(kāi)來(lái)? 答(bajatje): VAR7:DRAWTEXT(barslast(date<=LSOLARTERMDATE(9))=1,0,'*立夏'); VAR8:DRAWTEXT(barslast(date<=LSOLARTERMDATE(10))=1,0,'*小滿(mǎn)'); VAR9:DRAWTEXT(barslast(date<=LSOLARTERMDATE(11))=1,0,'*芒種'); [ 本帖最后由 AHFYXL1 于 2005-11-29 20:26 編輯 ] ![]() |
![]() |
變色卡 提升卡 加粗卡 ![]() |
![]() |
ahfyxl 微博 ![]() |
|
聯(lián)系客服