《第二十一樓》 目錄索引： QUOTE: 951.問: 這句話如何表達？ zdz:=hhv(macd,SYSPARAM(3)-SYSPARAM(2)); zdz[SYSPARAM(3)]; DRAWNUMBER(macd=zdz and zdz<>ref(zdz,1),macd,zdz,3) ; 我想把可見區(qū)間的macd最大值標注在對應(yīng)的macd上，只標注最大的一組數(shù)據(jù)。 答(股市騎兵00): 這樣試試： zdz:=hhv(macd,SYSPARAM(3)-SYSPARAM(2)+1); DRAWNUMBER(macd=zdz[SYSPARAM(3)],macd,MACD,3) ; QUOTE: 952.問: 能否給一個上證指數(shù)副圖的指標? 答(hx817): 副圖顯示指數(shù) 方法一 foxc:="1A0001$close";foxo:="1A0001$open";foxl:="1A0001$low";foxh:="1A0001$high"; ktj:=(foxc>foxo or foxc=o and foxc>ref(foxc,1)); stickline(ktj,foxh,foxl,0.1,1),colorred; stickline(ktj,foxc,foxo,7,1),colorred; stickline(not(ktj),foxh,foxl,0.1,0),colorcyan; stickline(not(ktj),foxc,foxo,7,0),colorcyan; 方法二 XO:=INDEXO;XH:=INDEXH;XL:=INDEXL;XC:=INDEXC; STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XC,XH,0.1,0),COLORMAGENTA; STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XO,XL,0.1,0),COLORMAGENTA; STICKLINE(XC>XO OR (XC=XO AND XC>REF(XO,1)),XO,XC,7,0),COLORMAGENTA; STICKLINE(XC<XO OR (XC=XO AND XC<=REF(XO,1)),XH,XL,0.1,0),COLORCYAN; STICKLINE(XC<XO OR (XC=XO AND XC<=REF(XO,1)),XO,XC,7,0),COLORCYAN; 對應(yīng)指數(shù)開:INDEXO LINETHICK0 PRECISION0 COLORYELLOW;高:INDEXH LINETHICK0 PRECISION0 COLORWHITE; 低:INDEXL LINETHICK0 PRECISION0 COLORRED;收:INDEXC LINETHICK0 PRECISION0 COLORCYAN; QUOTE: 953.問: 我想選股上午停牌一小時的個股,也就是當天出消息的個股. 答(南客): 只能選出開盤后1小時內(nèi)沒有交易的股票，是否停牌還需人工判斷 試試如下公式： //注意，必須用于1分鐘選股 tn:=(TIME0-37800)/60-(time>113000)*90; tj:＝sum(vol,60)<=0.001 and time=103000; tj:ref(tj,tn); //當日10：30前，成交量＝0 QUOTE: 954.問: 此低點比上次的低點要高,這個公式怎么寫. （原碼）:vvar1:=(HIGH+LOW+5*CLOSE)/7; vvar2:=MA(vvar1,5)-MA(vvar1,34); vvar3:=MA(vvar2,5); TEG:vvar2-vvar3,colorff0000,,linethick2 ; p:=IF(TEG<REF(TEG,1),1,0); a:=BARSLAST(p); b:IF(a>0.5,teg,0); 答(股市騎兵00): 參考看看： vvar1:=(HIGH+LOW+5*CLOSE)/7; vvar2:=MA(vvar1,5)-MA(vvar1,34); vvar3:=MA(vvar2,5); TEG:vvar2-vvar3,colorff0000,,linethick2 ; p:=IF(TEG<REF(TEG,1),1,0); a:=BARSLAST(p); b:IF(a>0.5,teg,0); X:=TEG>REF(TEG,1) AND REF(TEG,1)<REF(TEG,2); Y:=TEG>REF(TEG,SUMBARS(X,2)-1) AND X; DRAWICON(Y,TEG,4); CODE:[Copy to clipboard]955.問: 個股上市第一天最高價及最低價畫線公式 答(股市騎兵00): ref(h,barpos-1); 答(hx817): 一樣的 fh:=h; fl:=l; fh[1]; fl[1]; QUOTE: 956.問: 欲求過去的某一天（給出年、月、日）至今天的交易天數(shù) 答(peter109): DD:=1050829;//參數(shù) 指定日期 DATEDIFF(CURRENTDATE,DD);//計算計算機日期到指定日期間隔天數(shù) DATEDIFF(DATE,DD);//計算K線日期到指定日期間隔天數(shù) CODE:[Copy to clipboard]957.問: 換手率累加到100后從0開始再累加怎么寫 答(南客): sv:vol; s:=0; for i=1 to datacount do begin if s>=capital then s:=0; s:=s+sv ;
sv:=s;
end;
QUOTE:
958.問:
能具體講一下MOM這個指標的原碼嗎
答(anlb):
動量線MOM
公式概說
1.12天MOM：（當日收盤價-12天前收盤價）
2.25天MOM：（當日收盤價-25天前收盤價）
3.圖表上除了顯示動量線之外，經(jīng)常另外配置一條動量線的10天平均線。
來龍去脈
MOmentum動量線，簡稱MOM。“動量”這一名詞，市場上的解釋相當廣泛。以Momentum命名的指標，種類更是繁多。綜合而言，動量可以視為一段期間內(nèi)，股價漲跌變動的比率。這里所介紹的動量線，是由Perry Kaufman 在《 Trading Systems and Methods》一書所發(fā)表的簡易動量模式。
一般股民，經(jīng)常將Momentum視為超買超賣指標，而忽略其在“速度”方面的表現(xiàn)。事實上，將Momentum解釋成“速度線”，更符合其實際的作用。理論上，一波健全的股價趨勢，其上漲或下跌的過程，應(yīng)該維持著一定的行進速度。如果行進的速度逐漸減緩，股價很容易轉(zhuǎn)變成整理的格局，甚至于反轉(zhuǎn)。因此，觀察股價的速度感，對于股價多空力道的判定，有很大的幫助。
指標劍法
12天M0M以O(shè)軸為中心線，O軸的上、下方，分成六等份的超買超賣區(qū)，分別為＋1、＋2、+3和-1、-2、-3。例如：甲股的12天MOM上升至6·8時，我們將它定義為＋1。那么，13.6就是＋2，20.4就是+3。相反的，-6.8定義為-1·-13·6為-2，-20·4為-3。
注意！每一支股票的超買超賣區(qū)都不一樣，讀者必須自行尋找適合的界限值。
1.短線行情，12日MOM上升至+1時，股價回檔。
2.短線行情，12日MOM下跌至-1時，股價反彈。
3.中期趨勢， 2日MOM＞＋2時，經(jīng)常是上升波段結(jié)束的時機。
4.中期趨勢，12日MOM＜-2時，經(jīng)常是下跌波段結(jié)束的時機。
5.12日MOM＞＋3變成極端行情時，視為強勢多頭格局，持股不必過早賣出?？梢缘却齅OM指標曲線，變成一波頂比一波頂?shù)停c股價走勢背離時，再賣出不遲。
6.12日MOM＜-3變成極端行情時，視為極弱勢空頭格局，不可隨意進場買入股票。至少等待MOM指標曲線，形成一波底比一波底高，而與股價走勢背離時，再擇機進場買入。
25天MOM（速度線）以O(shè)軸為中心線：
1.25天MOM＞O軸，代表中期多頭走勢。
2.25天MOM＜O軸，代表中期空頭走勢。
3.25天MOM向上交叉其6天平均線，并且其6天平均線也同步向上扭轉(zhuǎn)時，股價容易上漲。
4.25天MOM向下交叉其6天平均線，并且其6天平均線也同步向下扭轉(zhuǎn)時，股價容易下跌。
注意！單純觀察25天MOM的6天平均線時，這條曲線一般都與股價同步。因此，當25天MOM的6天平均線開始走緩，并且有轉(zhuǎn)彎跡象時，應(yīng)小心股價是否即將反轉(zhuǎn)。
（附注一）25天MOM也可以規(guī)畫出+3至-3六個超買超賣界限，但是，一般以12天MOM較為常用。
（附注二）25天MOM與12天MOM合并使用效果更佳.當12天MOM顯示超買或超賣狀況時，同時觀察25天MOM,可以檢查其是否構(gòu)成反轉(zhuǎn)的條件。如果條件尚未成熟，則12天MOM所顯示的超買或超賣現(xiàn)象，可能只會促使股價回檔或者反彈而已。
（附注三）如果12天MOM曾經(jīng)上升至＋2或＋3的界限，同時25天MOM也顯示股價有向下反轉(zhuǎn)的疑慮時。請參考EXPMA指數(shù)平均數(shù)，觀察其0.15指數(shù)平均數(shù)，是否發(fā)生向下交叉0.04指數(shù)平均數(shù)的現(xiàn)象。如果EXPMA的兩條平均數(shù)，已經(jīng)出現(xiàn)向下交叉的訊號，則可以確定股價正式向下反轉(zhuǎn)。
（附注四）如果12天MOM曾經(jīng)下跌至-2或-3的界限，同時25天MOM也顯示股價有向上回升的跡象時。請參考EXPMA指數(shù)平均數(shù)，觀察其0.15指數(shù)平均數(shù)，是否發(fā)生向上交叉0.04指數(shù)平均數(shù)的現(xiàn)象。如果EXPMA的兩條平均數(shù)，已經(jīng)出現(xiàn)向上交叉的訊號，則可以確定股價正式向上反轉(zhuǎn)。
深入講解
常態(tài)與極端的區(qū)別
傳統(tǒng)的超買超賣指標，一般波動于0～100之間，并且擁有固定的超買超賣值。當股價溫和波動時，這一類型指標，在短線買賣的時機上，尚可以提供相當?shù)膮⒖純r值。但是，當股價波動幅度加劇，出現(xiàn)大行情時，傳統(tǒng)指標因受限于固定的波動范圍，常會出現(xiàn)指標鈍化的現(xiàn)象，這種現(xiàn)象股民常常稱之為“指標失靈”。
為了突破超買超賣指標的限制，行情必須分級。MOM動量線將行情分成三級，第一和第二級稱為“常態(tài)行情”，第三級稱為“極端行情”。第一級行情就是所謂的短期趨勢，第二級行情為中期趨勢。行情處于第一或第二級波動時，股價的回檔或反彈，大都能和MOM指標的超買超賣線相呼應(yīng)。類似這種模式的行情，其MOM很少超過＋3和-3的范圍。
MOM的最大波動，如果是僅局限于+2～-2之間的行情，我們稱之為“常態(tài)行情”。例如：“矩形”和標準的“三波段”行情。這類型股票，一般都是股性較溫和的個股，循環(huán)規(guī)律有節(jié)奏感，漲跌脈動有跡可尋，走勢較容易掌握。
“矩形”的行情，其動量線大多波動于＋1～-1之間。但是，其股價的行進并不一定呈橫向整理。單方向的上漲或下跌，只要股價以“漲、跌、漲、跌”的溫和速度前進，都可視為“矩形”行情。就好像“軌道線”、“路徑指標”一樣，很規(guī)矩的被限制在一定的空間，它的買進賣出訊號，非常明確而且肯定。
標準三波段上漲或者三波段下跌的行情，其動量線波動范圍，經(jīng)常會擴充至＋2～-2之間。MOM抵達+1或-1時，第一波行情結(jié)束。第二波行情屬于回檔或者反彈波。最后，由第三波行情將MOM推移至＋2或-2。（這里指的是波浪理論中的前三波，其第五波行情一般都屬極端行情較多）。
一般理想狀況之下，MOM動量線會依上述兩種模式，規(guī)矩的波動在第一與第二級超買超賣界限內(nèi)。而且，股民很容易掌握股價的脈動，我們稱之為“常態(tài)行情”。然而，當行情變成超強勢或極弱勢時，MOM指標會急沖至＋3之上或-3之下，我們稱之為“極端行情”。一旦股價出現(xiàn)極端行情時，超買超賣型指標會失去作用，讀者應(yīng)選擇采用趨勢指標，或者等待指標形成“背離”的狀態(tài)時，再進行買賣的動作。
價差引力
深入了解MOM動量線之前，必須先了解其公式的計算方法。以12日MOM為例子，他是將當天的股價，和12天前的股價做比較的結(jié)果。我們可以想像兩個股價間，存在著一種引力。當目前的價格和12天前的價格，兩者之間的差距擴大到一定極限時，當天的股價會受到牽制，暫時停止前進。也就是說，當天的價格和12天前的價格，存在著最大極限距離的限制。在一般“常態(tài)行情”下，大多數(shù)個股幾乎都能符合這種運動規(guī)律。
“價差引力”也可視為“價格乖離”，乖離率太大時，股價必須調(diào)整修正。隨著行情大小的不同，兩個價格之間的差距，存在著最大容許極限。一旦短線行情，突破第一級差距極限時，則股價會朝第二級差距極限前進，并且轉(zhuǎn)變成中級行情。如果中級行情突破第三級差距極限，則“常態(tài)行情”變成“非常態(tài)行情”，股價像斷了線的風箏，變成無法掌控的脫軌狀況。
多空天秤
25天的MOM動量線，是價格平衡原理的典型代表。市場上所有的價格行為，只有強和弱之分?；凇疤鯎駨姟钡牟僮髟瓌t，股民一定會選擇介入強勢股。然而強和弱、多和空是相對的名詞，股民在決定一次交易之前，必須先明確區(qū)分多空的界線，才能對目前的價位下一個定義。
股價走勢表現(xiàn)在K線圖表上時，是由左向右傾斜的。如果價格曲線向有上方傾斜前進，則代表股價上漲；如果價格曲線向右下方傾斜前進，則代表股價下跌。換句話說，現(xiàn)在的價格必須高于先前的價格，才能視為強勢多頭。但是，現(xiàn)在的價格，并不一定是近期內(nèi)的最高價。它可能比前天的價位高，比昨天的價位低。如此一來，怎么樣才能對“價格傾斜”下定義呢？
現(xiàn)在，我們以25天為周期，取第13天為中間支點，左右各占12天。把今天的價格與25天前的價格連成一直線，將這條直線視為一根橫桿。右邊的當日價格和左邊的25天前價格，當成左右兩邊的秤盤。然后組合中間支點、橫桿、秤盤。
當右方的秤盤高于左方的秤盤時，表示右方賣壓輕，股價強勢。此時，MOM指
標會高于O軸，代表多頭走勢。當右方的秤盤低于左方的秤盤時，表示右方賣壓重，股價弱勢。此時，MOM指標會低于O軸，代表空頭走勢。也許，你想修改25天的周期參數(shù)。但是，根據(jù)研究，25天的周期參數(shù)，在認定多空界限方面，顯然較具代表性。
QUOTE:
959.問:
取指定證券名稱字符串
用法:
STKNAMEEX(S),S為證券代碼
例如STKNAMEEX('600000')或STKNAMEEX('SH600000')返回浦發(fā)銀行。
如何取指定證券代碼字符串呢？如“浦發(fā)銀行”返回“600000”。
答(cwy):
STRTONUM(STRRIGHT(STKLABEL,6));
QUOTE:
960.問:
設(shè)
價差: 當KD金叉時, 顯示C-REF(L,金叉)之價差.而金叉之後皆以C-REF(L,金叉-1)之價差顯示.
如
價差:IF(CROSS(K,D),C-REF(L,金叉),IF(條件,C-REF(L,金叉-1),0));
請問這樣條件如何編寫
答(peter109):
INPUT:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
a:=CROSS(k,d);
//b:=CROSS(d,k);
x:=BARSLAST(a);
//y:=BARSLAST(b);
//fl:=x-y;
價差:IF(A,C-ref(L,x),C-ref(L,x+1));
QUOTE:
961.問:
如何在副圖的指標曲線旁顯示自己希望數(shù)字內(nèi)容,如公式kdj中k值>95時的數(shù)字?
答(peter109):
drawnumber(K>95,K,K,0);
QUOTE:
962.問:
請教 畫水平線,設(shè) KD 金叉
1:當金叉成立,就取前低劃一水平線.
2:之後,就取金叉的低點劃一水平線.一直顯示到死叉為止.
用 DRAWSL 來編寫
答(xxllxxll):
INPUT:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
a:=CROSS(k,d);
b:=CROSS(d,k);
x:=BARSLAST(a);
y:=BARSLAST(b);
fl:=x-y;
DRAWSL(b,ref(low,fl),0,fl,1);
有游標
INPUT:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
a:=CROSS(k,d);
b:=CROSS(d,k);
x:=BARSLAST(a);
y:=BARSLAST(b);
ya:=sysparam(1);
yb:=barssince(c)+1;
金叉前低:if(x=0,ref(low,x+1),0) LINETHICK0 ;
金叉后低:if(ref(y,1)>ref(x,1) and y<>0,ref(low,x),0) LINETHICK0;
死叉前高:if(y=0,ref(high,y+1),0) LINETHICK0;
死叉后高:if(ref(x,1)>ref(y,1) and x<>0,ref(high,y),0) LINETHICK0;
DRAWSL(x=0 and ya=yb,ref(low,1),0,0,0);
DRAWSL(y>x and x>0 and ya=yb,ref(low,x),0,0,0);
DRAWSL(y=0 and ya=yb,ref(high,1),0,0,0);
DRAWSL(x>y and y>0 and ya=yb,ref(high,y),0,0,0);
答(gusi):
金叉是不是這樣，如是的話，那死叉請自己再改改吧
INPUT:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
a:=CROSS(k,d);
b:=CROSS(d,k);
x:=BARSLAST(a);
y:=BARSLAST(b);
ya:=sysparam(1);
yb:=barssince(c)+1;
金叉前低:if(x=0,ref(low,x+1),0),LINETHICK0 ;
金叉后低:if(ref(y,1)>ref(x,1) and y<>0,ref(low,x),0),LINETHICK0;
死叉前高:if(y=0,ref(high,y+1),0) LINETHICK0;
死叉后高:if(ref(x,1)>ref(y,1) and x<>0,ref(high,y),0),LINETHICK0;
DRAWSL(x=0 and ya=yb,ref(low,1),0,0,0);
DRAWSL(y>x and x>0 and ya=yb,low,0,0,0);
DRAWSL(y=0 and ya=yb,ref(high,1),0,0,0);
DRAWSL(x>y and y>0 and ya=yb,ref(high,y),0,0,0);
DRAWNUMBER(x=0 and ya=yb,low,ref(low,x),2),COLORWHITE;
DRAWNUMBER(y>x and x>0 and ya=yb,low,low,2),COLORWHITE;
答(xxllxxll)
INPUT:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:=SMA(RSV,M1,1);
D:=SMA(K,M2,1);
a:=CROSS(k,d);
b:=CROSS(d,k);
x:=BARSLAST(a);
y:=BARSLAST(b);
ya:=sysparam(1);
yb:=barssince(c)+1;
金叉前低:if(x=0,ref(low,1),0),LINETHICK0 ;
金叉后低:if(ref(y,1)>ref(x,1) and y<>0,ref(low,x),0),LINETHICK0;
死叉前高:if(y=0,ref(high,1),0) LINETHICK0;
死叉后高:if(ref(x,1)>ref(y,1) and x<>0,ref(high,y),0),LINETHICK0;
DRAWSL(x=0 and ya=yb,ref(low,1),0,0,0);
DRAWSL(y>x and x>0 and ya=yb,ref(low,x),0,x,1);
DRAWSL(y=0 and ya=yb,ref(high,1),0,0,0);
DRAWSL(x>y and y>0 and ya=yb,ref(high,y),0,y,1);
QUOTE:
963.問:
每週或每月交易日的第一天或最後一天
答(peter109)
第一天的位置找到了
TM:month<>ref(month,1),linethick0;
mp:ref(barpos,Barslast(TM)),linethick0;
mp1:IF(MP>ref(MP,1),1,-1),linethick1;
答(bajatje):
這樣？
barslast(month<>ref(month,1))=0;
barslast(weekday<ref(weekday,1))=0;
QUOTE:
964.問:
K線陽吞陰公式如何寫?
答(peter109):
參考看看
ISUP AND L<ref(L,1) AND H>ref(H,1)
QUOTE:
965.問:
如果是現(xiàn)價大于昨天陰線的開盤價應(yīng)該如何改動?
答(peter109):
C>ref(O,1) AND ref(C,1)<ref(O,1);
QUOTE:
966.問:
求江恩下降線和江恩上升線— 一帆風順源碼
答(goldhill1965):
江恩下降線
VAR1:=peak(1,10,1);
VAR2:=peakBARS(1,10,1);
var3:=(hhv(h,0)-llv(l,0))/barscount(c);
m0:var1-(var2-1)*0.00000001;
ma010:VAR1-(VAR2-1)*var3;
ma01:VAR1-(VAR2-1)*2*var3;
m1:VAR1-(VAR2-1)*4*var3;
m2:VAR1-(VAR2-1)*6*var3;
m3:VAR1-(VAR2-1)*8*var3,colorwhite;
m4:VAR1-(VAR2-1)*10*var3,colorwhite;
m5:VAR1-(VAR2-1)*12*var3,coloryellow;
m6:VAR1-(VAR2-1)*16*var3,colorff00ff;
江恩上升線源碼—— 一帆風順
VAR1:=trough(2,15,1);
VAR2:=troughBARS(2,15,1);
var3:=(hhv(h,0)-llv(l,0))/barscount(c);
m0:var1+(var2-1)*0.000000001;
ma010:VAR1+(VAR2-1)*var3;
ma01:VAR1+(VAR2-1)*2*var3;
m1:VAR1+(VAR2-1)*4*var3;
m2:VAR1+(VAR2-1)*6*var3;
m3:VAR1+(VAR2-1)*8*var3;
m4:VAR1+(VAR2-1)*10*var3,color00ff00;
m5:VAR1+(VAR2-1)*12*var3,coloryellow;
m6:VAR1+(VAR2-1)*14*var3,colorff00ff;
m7:VAR1+(VAR2-1)*16*var3,colorff00ff;
m8:VAR1+(VAR2-1)*18*var3,colorff00ff;
m9:VAR1+(VAR2-1)*22*var3,colorff00ff;
QUOTE:
967.問:
本周一、二、三、四、五 與上周五的漲幅公式怎么寫
答(cwy):
(c/ref(c,WEEKDAY)-1)*100;
QUOTE:
968.問:
請問,該語句怎么描述
tj1:m1大于m2持續(xù)成立的周期數(shù)大于5
tj:上一次tj1成立到當前(計算日)的周期數(shù)小于5
答(bajatje):
tj1:=all(m1>m2,6);
tj:barslast(tj1)<5;
QUOTE:
969.問:
將成交量累積曲線變換成一種擺動指數(shù)，把成交量累積線的3天和10天移動平均線的數(shù)值之差描繪在零線的上下。
具體描述請看墨非的《期貨市場技術(shù)分析》第291頁圖
答(bajatje):
這樣？
LC:=REF(CLOSE,1);
vr:=SUM(IF(CLOSE>LC,VOL,0),N)/
SUM(IF(CLOSE<=LC,VOL,0),N)*100;
s3:=sma(vr,3,1);
s10:=sma(vr,10,1);
s3-s10,COLORSTICK;
0;
QUOTE:
970.問:
求今日X是在n日內(nèi)第m次金叉Y的公式.
答(股市騎兵00):
sum(金叉,n)=m;
或
n=60;
M5:=MA(C,5);
M10:=MA(c,10);
M510:=cross(M5,M10);
am:sum(m510,n)=2 and M510;
QUOTE:
971.問:
有個問題請幫忙:如圖:用下面公式能提出,但社保組合太多,其他組和就不行了能否找個其他辦法,只要是社保就能識別.請幫忙解決.
1.社保持股和咋寫。
2.供有幾幾家社保。
GD:=F10FIND('六、基金持股',0);
BS1:=F10FIND('社保103',GD)+10;
BS2:=F10FIND('社保102',GD)+10;
BS3:=F10FIND('社保101',GD)+10;
A:=F10FIND('合計│',GD);
STRTONUM(F10TEXT(if(bs1<a,bs1,0),0))
+STRTONUM(F10TEXT(if(bs2<a,bs2,0),0))
+STRTONUM(F10TEXT(if(bs3<a,bs3,0),0));
答(xxllxxll):
GD:=F10FIND('基金持股',0);
BS1:=F10FIND('社保',GD)+10;
BS2:=F10FIND('社保',bs1)+10;
BS3:=F10FIND('社保',bs2)+10;
A:=F10FIND('合計',GD);
社保1持股:STRTONUM(F10TEXT(if(bs1<a and bs1>gd,bs1,0),0)) LINETHICK0;
社保2持股:STRTONUM(F10TEXT(if(bs2<a and bs2>gd,bs2,0),0)) LINETHICK0;
社保3持股:STRTONUM(F10TEXT(if(bs3<a and bs3>gd,bs3,0),0)) LINETHICK0;
社保持股合計:社保1持股+社保2持股+社保3持股 LINETHICK0;//你要顯示圖形只需把LINETHICK0 去掉
這個公式要求資料庫1里相應(yīng)部分有‘基金持股'，'社保'等字樣
若你的資料庫1是別的，則需修改公式里的”基金持股“，”社保“等使之相同
不過看你圖示的資料庫1可能可以
這個公式能否正常與資料庫1的f10有關(guān)，
《維賽特財經(jīng)》和 ◇鵬搏資訊F10資料◇ 可以，
◇港澳資訊財經(jīng)信息◇不行。
具體用到哪個f10就要根據(jù)該f10的情況修改
主要是段標志 '基金持股' 和段內(nèi)標志 '社保'
QUOTE:
972.問:
怎樣計算滿足制定條件之間的天數(shù)，比如：2004年8月25日，k<5, 然后k一直小于5，在直到 返回到k>=5時之間的天數(shù)；
答(bajatje):
barslast(k>=5)+1
CODE:[Copy to clipboard]973.問:
當日收盤價在上市第一天最高及最低價之間公式怎么寫？
答(bajatje):
c>ref(L,barscount(c)-1) and c<ref(h,barscount(c));
答(hx817):
這樣也可以
fh:=h;
fl:=l;
between(c,fh[1],fl[1]);
QUOTE:
974.問:
日振幅大于7%，換手率大于3%該怎么寫？。
第二個就是MACD指標選股：
DIFF和DEA在零軸上粘合、金叉。
答(bajatje):
1.
(h-L)/ref(c,1)>1.07 and v/capital>0.03
2.
m:="macd.macd";
d:="macd.dea";
aLL(m>0 and m<0.03 and d>0,3);
QUOTE:
975.問:
如 KD的K
1:下20反轉(zhuǎn)往上才買, 要在50以上反轉(zhuǎn)往下才賣.
1:上80反轉(zhuǎn)往下才賣, 要在50以下反轉(zhuǎn)往上才買.
答(peter109):
B1:ref("KDJ.K",1)<20 AND ref("KDJ.K",1)<ref("KDJ.K",2) AND "KDJ.K">ref("KDJ.K",1);
S1:ref("KDJ.K",1)>50 AND ref("KDJ.K",1)>ref("KDJ.K",2) AND "KDJ.K"<ref("KDJ.K",1);
B2:ref("KDJ.K",1)<50 AND ref("KDJ.K",1)<ref("KDJ.K",2) AND "KDJ.K">ref("KDJ.K",1);
S2:ref("KDJ.K",1)>80 AND ref("KDJ.K",1)>ref("KDJ.K",2) AND "KDJ.K"<ref("KDJ.K",1);
QUOTE:
976.問:
求13日中最大量(A點)成立後的最大量(B點)兩點畫線
答(股市騎兵00):
h1:=hhvbars(v,13);h2:=hhvbars(v,h1);
p1:=BACKSET(ISLASTBAR,h1+1);
p2:=BACKSET(ISLASTBAR,h2+1);
DRAWLINE(p1>ref(p1,1),v,p2>ref(p2,1),v,1);
v,VOLSTICK;
CODE:[Copy to clipboard]977.問:
N週期中, 有重複數(shù)據(jù),應(yīng)該如何修改
//今日與昨日數(shù)據(jù)完全相同
Y:O=ref(O,1) AND H=ref(H,1) AND L=ref(L,1) AND C=ref(C,1),linethick0;
vertline(Y=1);
//N週期中, 有重複數(shù)據(jù)
N:=60;
Y1:ANY(O=ref(O,n) AND H=ref(H,n) AND L=ref(L,n) AND C=ref(C,n),N),linethick0;
vertline(Y1=1);
答(bajatje):
//今日與昨日數(shù)據(jù)完全相同
Y:O=ref(O,1) AND H=ref(H,1) AND L=ref(L,1) AND C=ref(C,1) and v=ref(v,1) and amount=ref(amount,1);//重復(fù)數(shù)據(jù)信號。僅是K線完全相同還不足以證明數(shù)據(jù)重復(fù)，還要成交量和成交額也相同才能完全證明。
count(y,N);//N個周期中的重復(fù)數(shù)據(jù)數(shù)量
問:
看看 N週期的公式部分嗎
咱這有重複數(shù)據(jù) (相差32天 姑且不論您說的量和額)
可是咱的公式卻無法標示出
所以 咱認為 該部分的公式有問題
答(xxllxxll):
x1:=0*c;x2:=x1;
Fc:=c; fh:=h;
fl:=l; fo:=o;
pc:=c;
q:=SORTPOS(pc,0,1,DATACOUNT);
for i=2 to datacount do
if fc[pc[i-1]]=fc[pc] then
begin
if fo[pc[i-1]]=fo[pc] then
begin
if fl[pc[i-1]]=fl[pc] then
begin
if fh[pc[i-1]]=fh[pc] then
begin
x1:=pc;
x2:=pc[i-1];
end;
end;
end;
end;
相等甲數(shù)位置:x1;
相等乙數(shù)位置:x2;
位置指針:BARSSINCE(c)+1 LINETHICK0;
(xxllxxll注:一般甲乙兩數(shù)都是0，有相同k線時，圖上有一脈沖，把光標移到
脈沖上,甲乙兩數(shù)都有數(shù)值，這便是兩個相等k線的位置，用光標分別按 ‘位置指針’
的指示查看即可。)
QUOTE:
978.問:
本次J轉(zhuǎn)折值大于上一J轉(zhuǎn)折值并且上一J轉(zhuǎn)折值等于20日最低值。
答(清揚):
供參考：
A:"KDJ.J";
B:=A<REF(A,1) AND A<REFX(A,1);
D:=B AND A=LLV(A,20);
E:=REF(BARSLAST(B),1)+1;
F:=B AND A>REF(A,E) AND REF(D,E);
CON:REF(F,1);
QUOTE:
979.問:
連續(xù)三天最低點抬高指示
答(peter109):
ALL(L>ref(L,1),3)
QUOTE:
980.問:
如何寫日均線第二次(15天內(nèi))上穿10日均線?
答(peter109):
A:=cross(MA(C,5),MA(C,10));
count(A,15)=2;
QUOTE:
981.問:
看到價量時空里移動的江恩角度線，看到黃金分割上下的移動線，
我想能否把二者結(jié)合制作成江恩箱
答(yhcheng):
用公式畫江恩箱在飛狐是有瓶頸的,若是固定的箱寬, 畫到過去或沒有K棒的未來都可以,
但是要畫到?jīng)]有K棒的未來,只能在255K棒內(nèi),聽一位高人說過正確的江恩箱是建立在前波
高低規(guī)畫出最佳的箱高低,然后依據(jù)最佳的波動率系數(shù)轉(zhuǎn)換出箱寬,所以箱寬不固定,而飛
狐的shift函數(shù)最多可右移255K棒到右邊去且參數(shù)固定,這就是瓶頸所在,若不必顯示每一
條角度線或水平線的值,可直接使用飛狐的畫線函數(shù),在過去模擬運算出全部箱子后,用shift
函數(shù)映射至光標的位置,與光標同步移動不受255的限制,但垂直分割線仍會受255的限制,
所以這做法只限于固定箱寬及箱寬在255以內(nèi),因為大部分參考價值是畫在未來,若要制做不固
定寬度的箱子,建議在搭配箱子的公式里直接算出箱寬,高,低值后,用工具箱隨便畫出再修改參數(shù)
QUOTE:
982.問:
能不能幫我編個無未來數(shù)據(jù)的月MA指標？
答(股市騎兵00):
INPUT:N(5);
x:=INTPART(date/100)<>ref(INTPART(date/100),1);
z:=refx(x,1);zq1:=sumbars(z,n-1); zq2:=sumbars(z,n);
均線:if(z,sum(z*c,zq2)/n,(sum(z*c,zq1)+c)/n);
答(joneslee):
XX:=datediff(ref(date,1),date)<>DAY-ref(DAY,1);
ZX:=refx(XX,1);
月30:=if(ZX,sum(ZX*c,sumbars(ZX,p11))/p11,(sum(ZX*c,sumbars(ZX,p11-1))+c)/p11),color00EEFF;
QUOTE:
983.問:
江恩角度線比原版提前7天顯示行嗎 fxj
答(goldhill1965):
在分析家里，角度線可以延伸到未來,參數(shù)：190001 1400 1700 17
把原B1=10改為b1＝3，所以會提前7天顯示。
s:=llv(c,500); m3:ma(c,3); m10:ma(c,10); m30:ma(c,30);
AA:=YEAR*100+MONTH>年月; BB:=(AA=0)+1;
p1:=(c-ref(c,1))/ref(c,1)*1000; p2:=sum(abs(p1),0); p3:=count(c>0,0); k1:=p2/p3;
a1:=ZIG(3 , n2); aa1:=a1>ref(a1,1); a2:=ZIG(2,n2); aa2:=a2<ref(a2,1); K2:=K1*0.8;
b1:=HHVBARS( a1, 30); b2:=LLVBARS(a2 ,30);
X1:DRAWLINE(c=A1*BB and aa1>0,c,B1=3 ,REF(c,B1)-s*K1/下降角度,1),COLOR33FFCC;
X2:DRAWLINE(c=A1*BB and aa1>0,c,B1=3 ,REF(c,B1)-s*2*K1/下降角度,1),COLOR6666FF,LINETHICK2;
X3:DRAWLINE(c=A1*BB and aa1>0,c,B1=3 ,REF(c,B1)-s*4*K1/下降角度,1),COLORFFFFCC;
X4:DRAWLINE(c=A1*BB and aa1>0,c,B1=3 ,REF(c,B1)-s*8*K1/下降角度,1),COLOR00CCFF;
X5:DRAWLINE(c=A1*BB and aa1>0,c,B1=3 ,REF(c,B1)-s*0.5*K1/下降角度,1),COLORgreen;
Y1:DRAWLINE(l=A2*AA and aa2>0,L,B2=3 ,REF(l,B2)+s*8*K1/上升角度*2,1),COLOR33FFCC;
Y2:DRAWLINE(l=A2*AA and aa2>0,L,B2=3 ,REF(l,B2)+s*K1/上升角度*2,1),COLOR00CCFF;
Y3:DRAWLINE(l=A2*AA and aa2>0,L,B2=3 ,REF(l,B2)+s*2*K1/上升角度*2,1),COLOR6666FF,LINETHICK2;
Y4:DRAWLINE(l=A2*AA and aa2>0,l,B2=3 ,REF(l,b2)+s*4*K1/上升角度*2,1),COLORFFFFCC;
Y5:DRAWLINE(l=A2*AA and aa2>0,l,B2=3 ,REF(l,b2)+s*0.5*K1/上升角度*2,1),COLORgreen;
ma3:ma(close,3);
QUOTE:
984.問:
請幫寫一公式:如公式和圖:
以式中zq1=0為起點(起點往左zq1天)寫一前zq1天換手公式.
b:=ma(c,20);
jc:=b>ref(b,2) and b<ref(b,1);
zq1:BARSLAST(jc=1);
0;
答(peter109):
N:=10;//參數(shù) 自行調(diào)整
b:=ma(c,20);
jc:=b>ref(b,2) and b<ref(b,1);
zq1:=BARSLAST(jc=1)+1;
//vertline(zq1=1);
HSL:=(V/capital)*100;
y:=sysparam(3)-zq1-n+1;
sxHSL:=SUM(HSL,zq1);
syHSL:=SUM(HSL,y);
sHSL:=SUM(HSL,0);
nHSL:sHSL-sxHSL-syHSL,precision4;
答(xxllxxll):
a:=ma(c,20);
b:=ref(a,1)>a and refx(a,1)>a;
n:=BARSLAST(b);
m:=if(n=0,ref(n,1),n);
右側(cè)換手率:sum(v,m)/CAPITAL*100 ;
左側(cè)換手率:(sum(v,2*m)-sum(v,m))/CAPITAL*100;
換手天數(shù):n LINETHICK0;
0;
QUOTE:
985.問:
圖中柱狀線的位置應(yīng)畫在QA的最后一天,現(xiàn)在是在起始一天.請把柱線往左移1天.公式:
b:=MA(C,10)>MA(C,30);
QA:BARSLAST(b);
tj:=QA=0 AND REF(QA,1)>0;
x:REF(QA,1)>ref(qa,sumbars(tj,2)),LINETHICK0;;
STICKLINE(tj and x=0,REF(QA,1),0,1,0),COLORGREEN,LINETHICK4;
STICKLINE(tj and x,REF(QA,1),0,1,0),COLORMAGENTA,LINETHICK4;
答(xxllxxll):
b:=MA(C,10)>MA(C,30);
QA:BARSLAST(b);
tj:=QA=0 AND REF(QA,1)>0;
x:REF(QA,1)>ref(qa,sumbars(tj,2)),LINETHICK0;;
STICKLINE(refx(tj and x=0,1),QA,0,1,0),COLORGREEN,LINETHICK4;
STICKLINE(refx(tj and x,1),QA,0,1,0),COLORMAGENTA,LINETHICK4;
QUOTE:
986.問:
如何使半年線在滿足條件時才顯示出來
答(peter109):
A:=MA(C,125);
B:=c>A*0.8;
partline(B,A);
QUOTE:
987.問:
誰有這樣的公式,連收三陽,且K線的實體陽線一根比一根長
答(hx817):
zf:=(c-o)/o;
tj:all(zf>ref(zf,1),3) and all(isup,3);
QUOTE:
988.問:
股價的波峰的位置確定了，求對應(yīng)的k值，再將臨近的兩個k值作比較
答(bajatje):
w1:=PEAKBARS(4,n,1);//波峰B位置
w2:=PEAKBARS(4,n,2);//波峰A位置
k:="kd.k";
Ak:ref(k,w1);
Bk:ref(k,w2);
Ak-Bk;
QUOTE:
989.問:
怎樣計算出高點連線的值
這是 rsi 里的高點連線指標，只有畫線，而他的數(shù)值怎樣計算出來，請高手用公式表示，萬分感謝！
input:n1(6,1,100),n2(12,1,100),n3(24,1,100),n(10,1,100),m1(10,1,100),m2(8,1,100);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,color00ff00;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100,coloryellow;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100,colorff00ff;
//北京陽光飛狐 恒悅制作http://www./Discuz/index.php
gz1:=PEAKBARSA(rsi1,n,m1);
gg1:=BACKSET(ISLASTBAR,gz1+1);
gz2:=PEAKBARSA(rsi1,n,m2);
gg2:=BACKSET(ISLASTBAR,gz2+1);
dz1:=TROUGHBARSA(rsi1,n,m1);
dg1:=BACKSET(ISLASTBAR,dz1+1);
dz2:=TROUGHBARSA(rsi1,n,m2);
dg2:=BACKSET(ISLASTBAR,dz2+1);
高點連線dRAWLINE(gg1<>ref(gg1,1),rsi1,gg2<>ref(gg2,1),rsi1,1),colorgreen,linethick2;
DRAWLINE(dg1<>ref(dg1,1),rsi1,dg2<>ref(dg2,1),rsi1,1),color5252ff,linethick2;
答(bajatje):
input:n1(6,1,100),n2(12,1,100),n3(24,1,100),n(10,1,100),m1(10,1,100),m2(8,1,100);
LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,color00ff00;
RSI2:SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100,coloryellow;
RSI3:SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100,colorff00ff;
//北京陽光飛狐 恒悅制作http://www./Discuz/index.php
gz1:=PEAKBARSA(rsi1,n,m1);
gg1:=BACKSET(ISLASTBAR,gz1+1);
gz2:=PEAKBARSA(rsi1,n,m2);
gg2:=BACKSET(ISLASTBAR,gz2+1);
dz1:=TROUGHBARSA(rsi1,n,m1);
dg1:=BACKSET(ISLASTBAR,dz1+1);
dz2:=TROUGHBARSA(rsi1,n,m2);
dg2:=BACKSET(ISLASTBAR,dz2+1);
高點連線:LINEVALUE(gg1<>ref(gg1,1),rsi1,gg2<>ref(gg2,1),rsi1,0,0),colorgreen,linethick2;
LINEVALUE(dg1<>ref(dg1,1),rsi1,dg2<>ref(dg2,1),rsi1,0,0),color5252ff,linethick2;
QUOTE:
990.問:
怎樣做到在光標移動時，顯示五日漲幅。
答(cwy):
zf:=(c/ref(c,4)-1)*100;
s:='五日漲幅:'+' \n '+NUMTOSTR(zf[SYSPARAM(1)],2);
DRAWTEXT(BARPOS=SYSPARAM(1),h,s) ALIGN4;
QUOTE:
991.問:
如漲停過年線，或大陽過年線，（包括ST）。
答(cwy):
a:=ROUND((c/ref(c,1)-1)*100)>=5;
a and c>ma(c,250) and ref(l,1)<ma(c,250);
QUOTE:
992.問:
要求是飛狐公式：
１自由畫矩行
２在矩行框中能自由調(diào)整等分線（橫線和縱線都能自由等分調(diào)整）
答(xxllxxll):
INPUT:n(30,1,100),n1(500,0,9999),n2(1.3,0,100),n3(0.1,0,100);
a:=BARSCOUNT(c);
DRAWLINE(a=n1-2*n,refx(c*n2,2*n),a=n1+2*n,ref(c*n2,2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2-2*n3),2*n),a=n1+2*n,ref(c*(n2-2*n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2-n3),2*n),a=n1+2*n,ref(c*(n2-n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2+n3),2*n),a=n1+2*n,ref(c*(n2+n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2+2*n3),2*n),a=n1+2*n,ref(c*(n2+2*n3),2*n),0) COLORYELLOW;
STICKLINE(a=n1,c*(n2+2*n3),c*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1-n,refx(c,n)*(n2+2*n3),refx(c,n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1-2*n,refx(c,2*n)*(n2+2*n3),refx(c,2*n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1+n,ref(c,n)*(n2+2*n3),ref(c,n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1+2*n,ref(c,2*n)*(n2+2*n3),ref(c,2*n)*(n2-2*n3),0.8,1) COLORYELLOW;
DRAWICON(a=n1,c*n2,10);
QUOTE:
993.問:
如何能夠快速的決定中心點(價/K線)位置
答(xxllxxll):
INPUT:n(30,1,100),n1(500,0,9999),n2(1.3,0,100),n3(0.1,0,100),m(5,0,100);
a:=BARSCOUNT(c) ;
DRAWLINE(a=n1-2*n,refx(c*n2,2*n),a=n1+2*n,ref(c*n2,2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2-2*n3),2*n),a=n1+2*n,ref(c*(n2-2*n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2-n3),2*n),a=n1+2*n,ref(c*(n2-n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2+n3),2*n),a=n1+2*n,ref(c*(n2+n3),2*n),0) COLORYELLOW;
DRAWLINE(a=n1-2*n,refx(c*(n2+2*n3),2*n),a=n1+2*n,ref(c*(n2+2*n3),2*n),0) COLORYELLOW;
STICKLINE(a=n1,c*(n2+2*n3),c*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1-n,refx(c,n)*(n2+2*n3),refx(c,n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1-2*n,refx(c,2*n)*(n2+2*n3),refx(c,2*n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1+n,ref(c,n)*(n2+2*n3),ref(c,n)*(n2-2*n3),0.8,1) COLORYELLOW;
STICKLINE(a=n1+2*n,ref(c,2*n)*(n2+2*n3),ref(c,2*n)*(n2-2*n3),0.8,1) COLORYELLOW;
DRAWICON(a=n1,c*n2,10);
X軸指針:a LINETHICK0;
Y軸指針:m/c LINETHICK0;
將光標移到盤面上任意你要定位的位置，讀x軸指針值，填在n1參數(shù)框
內(nèi)，
y軸定位麻煩一些，要先把你原點的高度，即盤面原點的價位填入m參數(shù)
框內(nèi)，確認后將光標移到x軸指針值處，讀y軸指針值，填入n2參數(shù)框內(nèi)
即可
如果只用參數(shù)定位，也可以試試這個，此時m就是y軸原點
INPUT:n(30,1,100),n1(500,0,9999),n3(0.3,0,100),m(5,0,100);
a:=BARSCOUNT(c) ;
DRAWLINE(a=n1-2*n,m,a=n1+2*n,m,0) COLORYELLOW;
DRAWLINE(a=n1-2*n,m-2*n3,a=n1+2*n,m-2*n3,0) COLORYELLOW;
DRAWLINE(a=n1-2*n,m-n3,a=n1+2*n,m-n3,0) COLORYELLOW;
DRAWLINE(a=n1-2*n,m+n3,a=n1+2*n,m+n3,0) COLORYELLOW;
DRAWLINE(a=n1-2*n,m+2*n3,a=n1+2*n,m+2*n3,0) COLORYELLOW;
STICKLINE(a=n1,m+2*n3,m-2*n3,0.8,1) COLORYELLOW;
STICKLINE(a=n1-n,m+2*n3,m-2*n3,0.8,1) COLORYELLOW;
STICKLINE(a=n1-2*n,m+2*n3,m-2*n3,0.8,1) COLORYELLOW;
STICKLINE(a=n1+n,m+2*n3,m-2*n3,0.8,1) COLORYELLOW;
STICKLINE(a=n1+2*n,m+2*n3,m-2*n3,0.8,1) COLORYELLOW;
DRAWICON(a=n1,m,10);
X軸指針:a LINETHICK0;
Y軸指針:m LINETHICK0;
答(peter109):
採用中心點定位,根據(jù)該公式完成了自己想要的 自由矩形+自由調(diào)整等分線+江恩重要角度線
//自由畫矩行並可在矩行框中能自由調(diào)整等分線
//無論向上或向下起點開始後須有8根k線以上才會畫出
//N,N4為K線縱向間隔 N1為低點K線位置 N3為為高點K線位置
//N2 為百分比
//將光標移到盤面上任意你要定位的位置(最高/低價)，讀光標所在位置的值，填在n3/n1參數(shù)框內(nèi)，
INPUT:n1(1724,30,99999),n2(0.03,0,100),n3(1786,0,99999);
a:=BARSCOUNT(c);
x:=sysparam(3)-N1+1;
N:IF(X<8,0,IF(X>40,10,round(x/5))),linethick0;//K線數(shù) 預(yù)設(shè)是10
AA:=ref(L,barslast(a=n1){縱最左}),linethick0;//定位點 L可變更為其他
//以下為橫線Y軸
DRAWLINE(a=n1{縱最左},AA,a=n1+4*n,AA,0),ColorBBFFDD;//橫最下1
DRAWLINE(a=n1,AA*(1+n2),a=n1+4*n,AA*(1+n2),0),ColorBBFFDD;//橫中下1.1
DRAWLINE(a=n1,AA*(1+2*n2),a=n1+4*n,AA*(1+2*n2),0),ColorBBFFDD;//橫中1.2
DRAWLINE(a=n1,AA*(1+3*N2),a=n1+4*n,AA*(1+3*N2),0),ColorBBFFDD;//橫中上1.3
DRAWLINE(a=n1,AA*(1+4*N2),a=n1+4*n,AA*(1+4*N2),0),ColorBBFFDD;//橫最上1.4
//以下為縱線X軸
STICKLINE(a=n1,AA,AA*(1+4*N2),0.8,1),ColorBBFFDD;//縱最左
STICKLINE(a=n1+n,AA,AA*(1+4*N2),0.8,1),ColorBBFFDD;//縱中左
STICKLINE(a=n1+2*n,AA,AA*(1+4*N2),0.8,1),colorRED;//縱中
STICKLINE(a=n1+3*n,AA,AA*(1+4*N2),0.8,1),ColorBBFFDD;//縱中右
STICKLINE(a=n1+4*n,AA,AA*(1+4*N2),0.8,1),ColorBBFFDD;//縱最右
x1125:linevalue(a=n1,AA,a=n1+intpart(0.125*(4*N)),AA*(1+4*N2),0,0),colorYELLOW;//0.125位置
x133:linevalue(a=n1,AA,a=n1+intpart(0.33*(4*N)),AA*(1+4*N2),0,0),colorYELLOW;//0.33位置
x1618:linevalue(a=n1,AA,a=n1+intpart(0.382*(4*N)),AA*(1+4*N2),0,0),colorYELLOW;//0.382位置取整 會有些許誤差
x1382:linevalue(a=n1,AA,a=n1+intpart(0.618*(4*N)),AA*(1+4*N2),0,0),colorYELLOW;//0.618位置取整 會有些許誤差
x13:linevalue(a=n1{縱最左},AA,a=n1+n,AA*(1+4*N2),0,0),colorBLUE;
x12:linevalue(a=n1,AA,a=n1+2*n,AA*(1+4*N2),0,0),colorBLUE;
x11:linevalue(a=n1,AA,a=n1+3*n,AA*(1+4*N2),0,0),colorBLUE;//大於45度
x1:linevalue(a=n1,AA,a=n1+4*n,AA*(1+4*N2),0,0),colorGREEN;//45度
x21:linevalue(a=n1,AA,a=n1+4*n,AA*(1+3*N2),0,0),colorBLUE;//小於45度
x22:linevalue(a=n1,AA,a=n1+4*n,AA*(1+2*N2),0,0),colorBLUE;
x23:linevalue(a=n1,AA,a=n1+4*n,AA*(1+N2),0,0),colorBLUE;
x2125:linevalue(a=n1,AA,a=n1+4*n,AA*(1+0.125*(4*N2)),0,0),colorYELLOW;//0.125位置
x2375:linevalue(a=n1,AA,a=n1+4*n,AA/(1-0.0375),0,0),colorYELLOW;//0.375位置
x2618:linevalue(a=n1,AA,a=n1+4*n,AA*(1+0.618*(4*N2)),0,0),colorYELLOW;//0.382位置
x2382:linevalue(a=n1,AA,a=n1+4*n,AA*(1+0.382*(4*N2)),0,0),colorYELLOW;//0.618位置
//以上為向上
//以下為向下
y:=sysparam(3)-N3+1;
N4:IF(y<8,0,IF(y>40,10,round(y/5))),linethick0;//K線數(shù) 預(yù)設(shè)是10
BB:ref(H,barslast(a=n3){縱最左}),linethick0;//定位點 最高價
DRAWLINE(a=n3{縱最右},BB,a=n3+4*n4,BB,0),colorMAGENTA;//橫最上
DRAWLINE(a=n3,BB*(1-n2),a=n3+4*n4,BB*(1-n2),0),colorMAGENTA;//橫中上
DRAWLINE(a=n3,BB*(1-2*n2),a=n3+4*n4,BB*(1-2*n2),0),colorMAGENTA;//橫中
DRAWLINE(a=n3,BB*(1-3*N2),a=n3+4*n4,BB*(1-3*N2),0),colorMAGENTA;//橫中下
DRAWLINE(a=n3,BB*(1-4*N2),a=n3+4*n4,BB*(1-4*N2),0),colorMAGENTA;//橫最下
//以下為縱線X軸
STICKLINE(a=n3,BB,BB*(1-4*N2),0.8,1),colorMAGENTA;//縱最右
STICKLINE(a=n3+n4,BB,BB*(1-4*N2),0.8,1),colorMAGENTA;//縱中右
STICKLINE(a=n3+2*n4,BB,BB*(1-4*N2),0.8,1),colorRED;//縱中
STICKLINE(a=n3+3*n4,BB,BB*(1-4*N2),0.8,1),colorMAGENTA;//縱中左
STICKLINE(a=n3+4*n4,BB,BB*(1-4*N2),0.8,1),colorMAGENTA;//縱最左
y1125:linevalue(a=n3,BB,a=n3+intpart(0.125*(4*N4)),BB*(1-4*N2),0,0),colorYELLOW;//0.125位置
y133:linevalue(a=n3,BB,a=n3+intpart(0.33*(4*N4)),BB*(1-4*N2),0,0),colorYELLOW;//0.33位置
y1382:linevalue(a=n3,BB,a=n3+intpart(0.382*(4*N4)),BB*(1-4*N2),0,0),colorYELLOW;//0.382位置
y1618:linevalue(a=n3,BB,a=n3+intpart(0.618*(4*N4)),BB*(1-4*N2),0,0),colorYELLOW;//0.618位置
y13:linevalue(a=n3{縱最左},BB,a=n3+n4,BB*(1-4*N2),0,0),Color56AAFF;
y12:linevalue(a=n3,BB,a=n3+2*n4,BB*(1-4*N2),0,0),Color56AAFF;
y11:linevalue(a=n3,BB,a=n3+3*n4,BB*(1-4*N2),0,0),Color56AAFF;//中心線下面
y1:linevalue(a=n3,BB,a=n3+4*n4,BB*(1-4*N2),0,0),colorGREEN;//中心線
y21:linevalue(a=n3,BB,a=n3+4*n4,BB*(1-3*N2),0,0),Color56AAFF;//中心線上面
y22:linevalue(a=n3,BB,a=n3+4*n4,BB*(1-2*N2),0,0),Color56AAFF;
y23:linevalue(a=n3,BB,a=n3+4*n4,BB*(1-N2),0,0),Color56AAFF;
y2125:linevalue(a=n3,BB,a=n3+4*n,BB*(1-0.125*(4*N2)),0,0),colorYELLOW;//0.125位置
y233:linevalue(a=n3,BB,a=n3+4*n,BB*(1-0.333*(4*N2)),0,0),colorYELLOW;//0.33位置
y2618:linevalue(a=n3,BB,a=n3+4*n,BB*(1-0.618*(4*N2)),0,0),colorYELLOW;//0.382位置
y2382:linevalue(a=n3,BB,a=n3+4*n,BB*(1-0.382*(4*N2)),0,0),colorYELLOW;//0.618位置
CODE:[Copy to clipboard]994.問:
由於畫出的線條太多 想要有目前CLOSE的確實位置
因此試著進行下列排序後直接在圖上標出數(shù)字公式
失敗了 難道只有用解盤文字才可以達到目的嗎
//排序 騎大解盤方式
收盤:=C;
gb:=SYSPARAM(1);
p[1]:=收盤[gb];p[2]:=x1[gb];
p[3]:=x11[gb];p[4]:=x12[gb];
p[5]:=x13[gb];p[6]:=x1382[gb];
p[7]:=x1618[gb];p[8]:=x21[gb];
p[9]:=x22[gb];p[10]:=x23[gb];
s[1]:=收盤[gb];s[2]:=x1[gb];
s[3]:=x11[gb];s[4]:=x12[gb];
s[5]:=x13[gb];s[6]:=x1382[gb];
s[7]:=x1618[gb];s[8]:=x21[gb];
s[9]:=x22[gb];s[10]:=x23[gb];
VARIABLE:ptr[10]='';
//列出排序後想要的部分 目前僅針對向上部分內(nèi)容排序
for i=1 to 10 do if ptr[p]='收盤' then break;//以 收盤 做解盤中心點
//以下為問題點
if i-1>0 then drawnumber(ISLASTBAR,s[p[i-1]],s[p[i-1]],0);//小數(shù)位數(shù)可修改 預(yù)設(shè)沒有小數(shù)位數(shù)
if i+1<11 then drawnumber(ISLASTBAR,s[p[i+1]],s[p[i+1]],0);
答(peter109):
drawnumber(islastbar AND (C>=x1125 OR (C<x1125 AND C>=x13)),x1125,x1125,0),colorRED;
drawnumber(islastbar AND ((C<x1125 AND C>=x13) OR (C<x13 AND C>=x133)),x13,x13,0),colorRED;
drawnumber(islastbar AND ((C<x13 AND C>=x133) OR (C<x133 AND C>=x1382)),x133,x133,0),colorRED;
drawnumber(islastbar AND ((C<x133 AND C>=x1382) OR (C<x1382 AND C>=x12)),x1382,x1382,0),colorRED;
drawnumber(islastbar AND ((C<x1382 AND C>=x12) OR (C<x12 AND C>=x1618)),x12,x12,0),colorRED;
drawnumber(islastbar AND ((C<x12 AND C>=x1618) OR (C<x1618 AND C>=x11)),x1618,x1618,0),colorRED;
drawnumber(islastbar AND ((C<x1618 AND C>=x11) OR (C<x11 AND C>=x1)),x11,x11,0),colorRED;
drawnumber(islastbar AND ((C<x11 AND C>=x1) OR (C<x1 AND C>=x21)),x1,x1,0),colorRED;
drawnumber(islastbar AND ((C<x1 AND C>=x21) OR (C<x21 AND C>=x2618)),x21,x21,0),colorRED;
drawnumber(islastbar AND ((C<x21 AND C>=x2618) AND (C<x2618 AND C>=x22)),x2618,x2618,0),colorRED;
drawnumber(islastbar AND ((C<x2618 AND C>=x22) OR (C<x22 AND C>=x2382)),x22,x22,0),colorRED;
drawnumber(islastbar AND ((C<x22 AND C>=x2382) OR (C<x2382 AND C>=x2375)),x2382,x2382,0),colorRED;
drawnumber(islastbar AND ((C<x2382 AND C>=x2375) OR (C<x2375 AND C>=x23)),x2375,x2375,0),colorRED;
drawnumber(islastbar AND ((C<x2375 AND C>=x23) OR (C<x23 AND C>=x2125)),x23,x23,0),colorRED;
drawnumber(islastbar AND ((C<x23 AND C>=x2125) OR C<x2125),x2125,x2125,0),colorRED;
drawnumber(islastbar AND (C<=y1125 OR (C>y1125 AND C<=y13)),y1125,y1125,0),colorWHITE;
drawnumber(islastbar AND ((C>y1125 AND C<=y13) OR (C>y13 AND C<=y133)),y13,y13,0),colorWHITE;
drawnumber(islastbar AND ((C>y13 AND C<=y133) OR (C>y133 AND C<=y1382)),y133,y133,0),colorWHITE;
drawnumber(islastbar AND ((C>y133 AND C<=y1382) OR (C>y1382 AND C<=y12)),y1382,y1382,0),colorWHITE;
drawnumber(islastbar AND ((C>y1382 AND C<=y12) OR (C>y12 AND C<=y1618)),y12,y12,0),colorWHITE;
drawnumber(islastbar AND ((C>y12 AND C<=y1618) OR (C>y1618 AND C<=y11)),y1618,y1618,0),colorWHITE;
drawnumber(islastbar AND ((C>y1618 AND C<=y11) OR (C>y11 AND C<=y1)),y11,y11,0),colorWHITE;
drawnumber(islastbar AND ((C>y11 AND C<=y1) OR (C>y1 AND C<=y21)),y1,y1,0),colorWHITE;
drawnumber(islastbar AND ((C>y1 AND C<=y21) OR (C>y21 AND C<=y2618)),y21,y21,0),colorWHITE;
drawnumber(islastbar AND ((C>y21 AND C<=y2618) OR (C>y2618 AND C<=y22)),y2618,y2618,0),colorWHITE;
drawnumber(islastbar AND ((C>y2618 AND C<=y22) OR (C>y22 AND C<=y2382)),y22,y22,0),colorWHITE;
drawnumber(islastbar AND ((C>y22 AND C<=y2382) OR (C>y2382 AND C<=y233)),y2382,y2382,0),colorWHITE;
drawnumber(islastbar AND ((C>y2382 AND C<=y233) OR (C>y233 AND C<=y23)),y233,y233,0),colorWHITE;
drawnumber(islastbar AND ((C>y233 AND C<=y23) OR (C>y23 AND C<=y2125)),y23,y23,0),colorWHITE;
drawnumber(islastbar AND ((C>y23 AND C<=y2125) OR C>=y2125),y2125,y2125,0),colorWHITE;
CODE:[Copy to clipboard]995.問:
以半年內(nèi)最高點作移動平均線（即該移動平均線通過半年內(nèi)最高點）
答(xxllxxll):
已知移動平均線通過半年內(nèi)最高點，求該均線參數(shù)
a:=hhv(h,120);
b:=a[DATACOUNT];
jl:=HHVBARS(h,120);
nz:=SUMBARS(c-b,0);
n:=ref(nz,jl);
均線參數(shù):n[DATACOUNT] LINETHICK0;
均線:ma(c,均線參數(shù));
半年內(nèi)高點:b LINETHICK0;
注：
1 可能有正負1的誤差
2 有些股票無解
3 以上代碼只能求最近120天的
問:
為何NZ這邊用C-B
答(xxllxxll):
’c-b'的用法是效仿南客老師的 'sumbars()的巧妙用法'
在本題中
均線過某一點是指均線在該處的值與該點的值相等
設(shè)該點值為H，另均線可表為（c1+c2+...+cn)/n
則 （c1+c2+...+cn)/n＝H
或 c1+c2+...+cn＝n*H
或 ?。╟1-H)+(c2-H)+...+(cn-H)=0
這樣，用sumbars()函數(shù)來對c1-H,c2-H,...等進行試加，直到>=0,
這時函數(shù)返回值便是N值
由于H是120天內(nèi)最高值，所以一般不擔心cn-H>=0
但有相等的可能，若c1=H，則此時會出錯，
答(南客):
加入一行判斷，可能顯示效果稍好些：
if lbound(nz)=0 then exit; //加到nz變量定義之后
試試
fh:=high;
jl:=HHVBARS(h,120);
k:=0*c;
fc:=if(barpos=1,99999,c);
for i=lbound(jl) to datacount do tj[i-jl]:=1;//“半年內(nèi)最高點”的位置
for i=datacount downto 120 do begin
if tj then begin
tmp:=0;
for j=i downto 1 do begin //以下循環(huán)，等價于sumbars()運算
tmp:=tmp+fc[j];
if tmp>=(i-j+1)*fh then break;
end;
k:=if(j=1,0,i-j+1); //計算到第1根K線的話，則視為無效，此處可另行斟酌
end;
end;
k; //均線參數(shù)
QUOTE:
996.問:
能在高低點處畫一小段水平線嗎？
答(股市騎兵00):
大概這樣。
X:=FLATZIG(4,10);Y:=BARSLAST(X=1 OR X=0);
PARTLINE(Y,IF(REF(X,Y)=1,REF(H,Y),REF(L,Y)));
想畫長點
//都畫5跟K線長度，
X:=FLATZIG(4,10);Y:=BARSLAST(X=1 OR X=0);
PARTLINE(Y<5 AND Y>0,IF(REF(X,Y)=1,REF(H,Y),REF(L,Y)));
最后一個有效的拐點
X:=FLATZIG(4,10);Y:=BARSLAST(X=1 OR X=0 AND ISLASTBAR=0);
Z:=IF(REF(X,Y)=1,REF(H,Y),REF(L,Y));
PARTLINE(Y<5 AND Y>0,Z);
PARTLINE(BACKSET(ISLASTBAR,Y),Z);//畫最后跟線
還可這樣
X:=FLATZIG(4,10);Y:=BARSLAST((X=1 OR X=0) AND ISLASTBAR=0);
Z:=IF(REF(X,Y)=1,REF(H,Y),REF(L,Y));
PARTLINE(Y<5 AND Y>0,Z);
P:=BACKSET(ISLASTBAR,Y+1);
DRAWSL(P>REF(P,1),Z,0,0,0);
答(cwy):
試試
N是ZIG轉(zhuǎn)向幅度,T是水平線長短。
INPUT:N(10,0,100),t(3,0,10);
a:ZIG(4,n);
X:=FLATZIG(4,n);
DRAWSL(X=0,a,0,t,0);
DRAWSL(X=1,a,0,t,0);
(http://bbs./t-22621-f23.html)
CODE:[Copy to clipboard]997.問:
如何畫游標所在處高低兩條水平線,並在其線上下顯示其值
答(股市騎兵00):
fl:=l;fh:=h;gb:=SYSPARAM(1);
PARTLINE(barpos>gb,fl[gb]);
PARTLINE(barpos>gb,fh[gb]);
DRAWNUMBER(barpos=datacount,fl[gb],fl[gb],2);
DRAWNUMBER(barpos=datacount,fh[gb],fh[gb],2);
顯示數(shù)值
DD:datacount-sysparam(1),linethick;
QUOTE:
998.問:
如何統(tǒng)計畫面可見k線第一根到最后一根k線的周期數(shù)？
這個統(tǒng)計的k線數(shù)量應(yīng)該是隨畫面大小的變化，而變化。畫面縮小，k線數(shù)增多，畫面可見k線第一根到最后一根的數(shù)目也相應(yīng)增多，故統(tǒng)計二者之間的k線數(shù)目也應(yīng)該相應(yīng)增加。
答(股市騎兵00):
SYSPARAM(3)-SYSPARAM(2)+1;
QUOTE:
999.問:
這是OBV的公式VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0);
MAOBV:MA(OBV,M);
如何在五分鐘中做這樣的公式;
OBV大于MAOBV并且OBV大于零,還有在30個單位內(nèi)OBV和MAOBV是向上運行的
答(股市騎兵00):
OBV>MAOBV AND MAOBV>0;//OBV大于MAOBV并且OBV大于零
ALL(OBV>REF(OBV,1),30) AND ALL(MAOBV>REF(MAOBV,1),30);//30個單位內(nèi)OBV和MAOBV是向上運行
問:
用于5分鐘選股,本應(yīng)是沒問題的,為什么選出的個股MAOBV還是有小于零
答(xxllxxll):
為什么會選出小于零的個股呢？
問題出在調(diào)入內(nèi)存用于選股的五分鐘K線數(shù)上,
把調(diào)入值設(shè)為最大值5000.
用OBV>0選股時，obv的參數(shù)最大值只能是4999
用maobv>0選股，obv的參數(shù)最大值只能為4999－m.
糟糕的是，當參數(shù)大等于5000或取0，
而硬盤中的五分鐘k線數(shù)大于5000時，
在盤面上看指標是不錯的，但用于選股就會出錯，
這恐怕是軟件需要改進的地方
否則在不知情的情況下，會得出錯誤結(jié)論
QUOTE:
1000.問:
幫我編個日換手率的指標,用柱狀表示,上面加根10日平均線.
答(hx817):
日換手{％}:100*VOL/CAPITAL,VOLSTICK;
ma(日換手{％},10);
[ 本帖最后由 AHFYXL1 于 2005-12-1 14:10 編輯 ]
|
| 快速免費注冊，并郵件激活，贈送高級會員內(nèi)參、千元課程、8枚金幣，享受純凈看帖與交流。 |
變色卡 提升卡 加粗卡  |
四級MACD會員 
UID 788344
閱讀權(quán)限 40
注冊 2004-4-8
- 積分 126
- 帖子 1
- 精華 7
- 獎勵 97
- 熱心 0
- 金幣 0
-
-
|
發(fā)表于 2005-9-14 17:53 只看該作者
|
|
1001.問:
顯示的節(jié)氣字符不能隨光標的移動變化
請教各位，如何才能正確顯示（輸出方式不能變）
jqfc:=if(date>=LSOLARTERMDATE(1) and date<LSOLARTERMDATE(2),'小寒',
if(date>=LSOLARTERMDATE(2) and date<LSOLARTERMDATE(3),'大寒',
if(date>=LSOLARTERMDATE(3) and date<LSOLARTERMDATE(4),'立春',
if(date>=LSOLARTERMDATE(4) and date<LSOLARTERMDATE(5),'雨水',
if(date>=LSOLARTERMDATE(5) and date<LSOLARTERMDATE(6),'驚蟄',
if(date>=LSOLARTERMDATE(6) and date<LSOLARTERMDATE(7),'春分',
if(date>=LSOLARTERMDATE(7) and date<LSOLARTERMDATE(8),'清明',
if(date>=LSOLARTERMDATE(8) and date<LSOLARTERMDATE(9),'谷雨',
if(date>=LSOLARTERMDATE(9) and date<LSOLARTERMDATE(10),'立夏',
if(date>=LSOLARTERMDATE(10) and date<LSOLARTERMDATE(11),'小滿',
if(date>=LSOLARTERMDATE(11) and date<LSOLARTERMDATE(12),'芒種',
if(date>=LSOLARTERMDATE(12) and date<LSOLARTERMDATE(13),'夏至',
if(date>=LSOLARTERMDATE(13) and date<LSOLARTERMDATE(14),'小暑',
if(date>=LSOLARTERMDATE(14) and date<LSOLARTERMDATE(15),'大暑',
if(date>=LSOLARTERMDATE(15) and date<LSOLARTERMDATE(16),'立秋',
if(date>=LSOLARTERMDATE(16) and date<LSOLARTERMDATE(17),'處暑',
if(date>=LSOLARTERMDATE(17) and date<LSOLARTERMDATE(18),'白露',
if(date>=LSOLARTERMDATE(18) and date<LSOLARTERMDATE(19),'秋分',
if(date>=LSOLARTERMDATE(19) and date<LSOLARTERMDATE(20),'寒露',
if(date>=LSOLARTERMDATE(20) and date<LSOLARTERMDATE(21),'霜降',
if(date>=LSOLARTERMDATE(21) and date<LSOLARTERMDATE(22),'立冬',
if(date>=LSOLARTERMDATE(22) and date<LSOLARTERMDATE(23),'小雪',
if(date>=LSOLARTERMDATE(23) and date<LSOLARTERMDATE(24),'大雪',
if(date>=LSOLARTERMDATE(24) and date<LSOLARTERMDATE(1),'冬至',''))))))))))))))))))))))));
yuri:=LSOLARTERMDAY(date);
EXPLAIN(SYSPARAM(1)=BARPOS,'今日●'+jqfc + '節(jié)后第 '+NUMTOSTR(yuri[SYSPARAM(1)],0)+'天'),COLORGREEN ;
答(林漢明):
非常簡單
N:=SYSPARAM(1);
DAT:=DATE;
jqfc:=if(LSOLARTERMDATE(1)<dat[N] and dat[N]<LSOLARTERMDATE(2),'小寒',
if(LSOLARTERMDATE(2)<dat[N] and dat[N]<LSOLARTERMDATE(3),'大寒',
if(LSOLARTERMDATE(3)<dat[N] and dat[N]<LSOLARTERMDATE(4),'立春',
if(LSOLARTERMDATE(4)<dat[N] and dat[N]<LSOLARTERMDATE(5),'雨水',
if(LSOLARTERMDATE(5)<dat[N] and dat[N]<LSOLARTERMDATE(6),'驚蟄',
if(LSOLARTERMDATE(6)<dat[N] and dat[N]<LSOLARTERMDATE(7),'春分',
if(LSOLARTERMDATE(7)<dat[N] and dat[N]<LSOLARTERMDATE(8),'清明',
if(LSOLARTERMDATE(8)<dat[N] and dat[N]<LSOLARTERMDATE(9),'谷雨',
if(LSOLARTERMDATE(9)<dat[N] and dat[N]<LSOLARTERMDATE(10),'立夏',
if(LSOLARTERMDATE(10)<dat[N] and dat[N]<LSOLARTERMDATE(11),'小滿',
if(LSOLARTERMDATE(11)<dat[N] and dat[N]<LSOLARTERMDATE(12),'芒種',
if(LSOLARTERMDATE(12)<dat[N] and dat[N]<LSOLARTERMDATE(13),'夏至',
if(LSOLARTERMDATE(13)<dat[N] and dat[N]<LSOLARTERMDATE(14),'小暑',
if(LSOLARTERMDATE(14)<dat[N] and dat[N]<LSOLARTERMDATE(15),'大暑',
if(LSOLARTERMDATE(15)<dat[N] and dat[N]<LSOLARTERMDATE(16),'立秋',
if(LSOLARTERMDATE(16)<dat[N] and dat[N]<LSOLARTERMDATE(17),'處暑',
if(LSOLARTERMDATE(17)<dat[N] and dat[N]<LSOLARTERMDATE(18),'白露',
if(LSOLARTERMDATE(18)<dat[N] and dat[N]<LSOLARTERMDATE(19),'秋分',
if(LSOLARTERMDATE(19)<dat[N] and dat[N]<LSOLARTERMDATE(20),'寒露',
if(LSOLARTERMDATE(20)<dat[N] and dat[N]<LSOLARTERMDATE(21),'霜降',
if(LSOLARTERMDATE(21)<dat[N] and dat[N]<LSOLARTERMDATE(22),'立冬',
if(LSOLARTERMDATE(22)<dat[N] and dat[N]<LSOLARTERMDATE(23),'小雪',
if(LSOLARTERMDATE(23)<dat[N] and dat[N]<LSOLARTERMDATE(24),'大雪',
if(LSOLARTERMDATE(24)<dat[N] and dat[N]<LSOLARTERMDATE(1),'冬至',''))))))))))))))))))))))));
yuri:=LSOLARTERMDAY(date);
YURI2:=yuri[N];
EXPLAIN(SYSPARAM(1)=BARPOS,'今日●'+jqfc+ '節(jié)后第 '+NUMTOSTR(YURI2,0)+'天'),COLORGREEN;
QUOTE:
1002.問:
如何畫一個十字把沒有任何指標的主圖畫面分成相等的四個長方形
答(goldhill1965):
b1:=sysparam(1);
b2:=sysparam(2);
b3:=sysparam(3);
b4:=sysparam(4);
b5:=sysparam(5);
a1:=b3-b2+1;//可視畫面k線總數(shù)
a2:=round(a1/3);//可視畫面分成三份
a3:=b3-a2;//右區(qū)塊
a4:=a3-a2;//中區(qū)塊
a5:=a4-a2;//左區(qū)塊=b2
a6:=a4+a2;//左區(qū)塊=b2
VERTLINE(BARPOS=a3 or BARPOS=a4 or BARPOS=a5 or BARPOS=a6);
三分線:(b4+b5)/3;
中線:(b4+b5)/2;
六六線:2*(b4+b5)/3;
畫面放大縮小后，需要按動箭頭鍵
QUOTE:
1003.問:
1.光標移動時，日k線和5，10，20，30，60，120，250均線跟隨光標移動顯示出來。
附圖周k線 5 10 20 30周均線跟隨光標移動顯示出來。光標所在位置及其左邊
的都顯示，光標右邊的都部顯示
2.能把k線也做成這樣的嗎
答(bajatje):
1.舉例
uu:=barpos<=SYSPARAM(1);//顯示條件
m:ma(c,5),linethick,COLORWHITE;//只顯示數(shù)值
PARTLINE(uu,m),COLORWHITE;//畫線。注意顏色與Ｍ配對；
2. 當然！
f:=c>o or (c=o and c>ref(c,1));//原有條件
STICKLINE(f and uu,c,o,6,1);
QUOTE:
1004.問:
1:因畫面是30分鐘週期 而引用60分鐘KD時(60KD) 其60KD線會產(chǎn)生階梯狀
2:希望 產(chǎn)生階梯狀部份用曲線幾乎直線將其連線 使成為一條很平順的線條
答(peter109):
範例
K:"KDJ.K#MIN60";
D:"KDJ.D#MIN60";
J:"KDJ.J#MIN60";
EMA(K,2);
QUOTE:
1005.問:
五天內(nèi)有一天的成交量是三十日內(nèi)最小成交量應(yīng)怎么寫,
答(欣兒):
llv(v,5)=llv(v,30);
QUOTE:
1006.問:
求教，怎樣找出某一時段內(nèi)高低點值的公式方法，例如：想找出某一股票2002年至今的時段內(nèi)，
高點和低點的值，
答(bajatje):
w:=barslast(date<=1020101)+1;
hh:hhv(h,w)
LL:LLV(L,w);
CODE:[Copy to clipboard]1007.問:
如何使用字符型數(shù)組？非VBS語句，最好有實例
VARIABLE:varname1=initvalue1,varname2=initvalue2...;
例如:
VARIABLE:x=1,y=CLOSE,ARR[10]=0,SARR[5]='str';
表示定義常數(shù)變量x并初始化為1,
申明序列變量y并初始化為收盤價,
申明含10個浮點數(shù)的數(shù)組并全部初始化為0
申明含5個字符串的數(shù)組并都初始化為'str'
答(bajatje):
F10TEXT(F10FIND('{想輸出的資料起始字符組。如：發(fā) 行 價}',{開始查找的位置。如：１－從Ｆ１０的第一個字符開始}),{輸出的字符數(shù)。為０則只輸出起始字符組的第一個字符所在行});
F10TEXT(F10FIND('發(fā) 行 價',１),０);
注意：空格也算字符。中文一個字為兩個字符
別名: F10資料查找
所屬類別: 字符串函數(shù) 參數(shù)數(shù)量: 2
當前證券的F10資料中查找字符串
用法:
F10FIND(S,N),將從當前股票的F10資料的第N個字符開始查找字符串S，返回找到的位置，返回-1表示未找到
例如:
F10FIND('發(fā)行價',1),將從F10資料的第1個字符開始查找字符串'發(fā)行價'，返回找到的位置。
別名: F10資料子字符串
所屬類別: 字符串函數(shù) 參數(shù)數(shù)量: 2
取得當前證券的F10資料中指定范圍的子字符串
用法:
F10TEXT(N,M),將得到當前股票的F10資料中從第N個字符開使的M個字節(jié)長的字符串，M=0表示一直取到行尾
例如:
EXPLAIN(1,F10TEXT(F10FIND('發(fā)行價',1),0));
輸出F10資料中'發(fā)行價'所在行
CODE:[Copy to clipboard]1008.問:
想選出與指定股票同行業(yè)的所有股票！
答(股市騎兵00):
//◇鵬搏資訊F10資料◇
INPUT:n(1,1,100);
VARIABLE:hytr[100]='',ptr='';
hytr[1]:='港口';//把選股行業(yè)都寫好，按1，2，3......數(shù)組方式寫完
hytr[2]:='銀行';
hytr[3]:='汽車';
str:=F10TEXT(F10FIND('行業(yè)類別',1)+16,0);//F10公式提出行業(yè)字符串
for i=1 to 100 do if hytr<>'' then ptr:=ptr+NUMTOSTR(i,0)+hytr+'\n';
行業(yè)選股:STRFIND(str,hytr[n],1);
EXPLAIN(1,'該股行業(yè)：'+str+'\n'+'選股行業(yè)：'+hytr[n]);
EXPLAIN(1,ptr);//查看解盤中"數(shù)字"所對應(yīng)的行業(yè)，來調(diào) N 參數(shù)選股
QUOTE:
1009.問:
如何求某一具體日期后100天的日期？謝謝！
如求1050908后100天的日期。這個日期是還未到的日期
答(hx817):
d1:=1050908;
d2:D1970TODATE(DATETOD1970(d1)+100);
QUOTE:
1010.問:
去年今天的 期貨持倉量 怎么寫?
答(cwy):
a:=date-10000;
a1:=a[datacount];
b:=date-20000;
b1:=b[datacount];
d:=date-30000;
d1:=d[datacount];
去年:ref((date=a1)*v,BARSLAST(date=a1));
⒉年前:ref((date=b1)*v,BARSLAST(date=b1));
⒊年前:ref((date=d1)*v,BARSLAST(date=d1));
| |
|
