引用:
751.問:
某年某月某日收市價的公式怎樣寫？
答(bajatje):
w:=barslast(date=日期);2004/10/26寫成1041026
ref(c,w);
引用:
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ù)第三天
引用:
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)
引用:
754.問:
我想從F10搜索出易方達基金管理公司旗下的8只基金，04年第三季的所有持倉品種，公式怎么設計
答(hx817):
{基于鵬搏資訊，因為F10資料經(jī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個重復代碼161101、161102、161103、161104要設進去。這樣范圍擴大到65個，這基本差不多了。
順便告訴你們一下，長出來的東西，正在強勢的可以短線跟做。已經(jīng)弱勢并且行業(yè)受宏觀調(diào)控引起估值紊亂的，應該剔除，剩下來的再按選股程序選擇第三季是增倉的品種（怎么設這個我還沒想明白，不過樣本少，靠肉眼看看也可以了）。這些品種理論上，未來半年是一定有較大的利潤，并且不套人的。
易方達現(xiàn)在是市場最強者，其選股思路及波段策略，遠遠走在其他機構(gòu)之前。所以，研究其持倉股指數(shù)和持倉品種，比較容易把握市場步調(diào)。不過這段時間，基金人才也在流動，湘合及廣發(fā)的部分基金也延續(xù)了強悍基金的風格，可以順便列入研究。
引用:
755.問:
主圖如何顯示股票的發(fā)行日期？
答(南客):
n:=F10FIND('發(fā)行日期：',1)+10;
str1:=F10TEXT(n,10);
drawtext(islastbar,close,'發(fā)行日期：\n'+str1),align2;
引用:
756.問:
HHV和LLV功能是從當前時間到一定的時間取得最高最低價，如今天是10月1日，
HHV（C，60）它是從今天到前60天內(nèi)取得最高價，但是如果我需要從二天前開始取
60個交易日內(nèi)取得最高價，應該如何實現(xiàn)呢？
答(bajatje):
ref(hhv(h,60),2);
[Copy to clipboard]CODE:
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[i] TO HH[i] do
ARR[I]:=ARR[I]+1;
a:arr[X]; // 為什么算出來的數(shù)值不對?
答(hx817):
計算什么？
從表達式來看，計算出的結(jié)果全部是1個值 [/color]
問:
那是算, 價x 在歷史日線上出現(xiàn)過多少次
比如
x=631時, 6.31元歷史出見多少次
[color=Red] 答(hx817):
那么
for I=LL[i] TO HH[i] do
ARR[I]:=ARR[I]+1;
這個循環(huán)做什么呢？
是否要改為
for I=LL[j] TO HH[j] do
引用:
758.問:
想請教一下你,
ARR[X] 能不能不用循環(huán) 把 他所有的值每天* (1-v/ CAPITAL) ?
比如 ARR[600] 第1天的值為1 , 第二的初值為 1*(1-v/ CAPITAL)
答(hx817):
那開始時計算一個
fhs:=1*(1-v/ CAPITAL);
就可以得到每個的值了
[Copy to clipboard]CODE:
759.問:
現(xiàn)在可以用基本函數(shù)來模仿 cost 和 WINNER 這兩個函數(shù),
但還是有點出入,應是和我的算法不同,
還有就是我編的公式可能用的循環(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;
[color=Red] 答(hx817):
這不好再優(yōu)化，因為這取決于算法
引用:
760.問:
描述：
網(wǎng)上有專門有追漲停的指標，但那個存在一定的值后性。
我的思路是當股票在盤中漲幅超過2%-3.5%左右是即發(fā)出信號等于10--20數(shù)值，
并且利用飛狐的預警功能實現(xiàn)時時提醒。怎么用飛狐的預警功能實現(xiàn)時時提醒
答(bajatje):
w:=barslast(hour<ref(hour,1));< p="">
LL:=LLv(L,w);
(c/LL>1.02 and c/LL<1.035)*10;
引用:
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);
引用:
762.問:
如何自動計算30日最高價格,遞減0.382元,至低于30日最低價格之間的所有位置,
答(yngs):
30日最高價格
hhv(h,30);
遞減0.382元
0.382*hhv(h,30);
"至低于30日最低價格之間的所有位置"不理解
引用:
763.問:
期貨持倉量現(xiàn)在飛狐提供的是柱狀的圖,我很不習慣.怎么能給它變成一根線的圖?
原來的公式是:
OPENINT,VOLSTICK;
//MA1:MA(OPENINT,N1);
//MA2:MA(OPENINT,N2)
答(hx817):
是的，將 ,VOLSTICK 去掉
[Copy to clipboard]CODE:
764.問:
第一部分：實現(xiàn)2日平均價
fc:=close;
for i=2 to datacount do
ma2[i]:(fc[i-1]+fc[i])/2;
這個容易實現(xiàn)
第二部分：實現(xiàn)第2天到第5天的平均價；
fc:=close;
for i=i+1 to i=i+4 do
ma5[i]:(fc[i+1]+fc[i+4])/4;
則不顯示，錯在哪里？
答(hx817):
i 的循環(huán)范圍不對
fc:=close;
for i=5 to datacount do begin
//方法一，輸出 ma2 為 5日平均值
ma2[i]:(fc[i-4]+fc[i-3]+fc[i-2]+fc[i-1]+fc[i])/5;
//方法二，輸出 ma3 為 5日平均值
s:=0;
for j=0 to 4 do s:=s+fc[i-j];//循環(huán)疊加 5 個 fc 值
ma3[i]: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[i]:(fc[i-4]+fc[i-3]+fc[i-2]+fc[i-1]+fc[i])/5;
end;
如果我的i要取50天的，那么后面的ma2不很麻煩
fc:=close;
for i=50 to datacount do begin
ma2[i]:(fc[i-49]+fc[i-48]+fc[i-47]......+fc[i-1]+fc[i])/49;
end;
這時又應該如何寫？
答(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[i]: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)，這樣的話公式就很精練了，否則按上面的我覺得還是重復運算很多的。
答(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ù))的愿意，這些基本的代碼要搞清楚，基礎不扎實，接下去會越搞越亂。
1、代碼的縮格要清楚，這樣程序代碼才層次分明。否則別說是初學者，就算我來看代碼，也是頭大。
2、里面的 j1 循環(huán)，還有 j2 循環(huán)，起點、終點對嗎？
[Copy to clipboard]CODE:
765.問:
{fv:=v;ma2:=0*c;
x:=SETLBOUND(ma2,2);
for i=datacount downto 2 do {i終點已經(jīng)是2了，干嗎還用SETLBOUND來控制呢？}
ma2[i]:(fv[i-1]+fv[i])/2;
Fc:=close;}
{ll:=l;x:=ll[1];
For i=1 to datacount do
if x>=ll[i] then
x:ll[i];{用這種解法怎么出來是單值？把X變成序列變量怎么寫？}
For i=2 to datacount do
LL[I]:MIN(LL[I],LL[I-1]);}
答(hx817):
1、去掉 x:=SETLBOUND(ma2,2); 看看輸出是什么結(jié)果就知道了
2、因為前面你定義了 x: 為單值
[Copy to clipboard]CODE:
766.問:
好象沒有
if then elseif這個函數(shù)吧，假如有，那么會更加簡單的
答(hx817):
試試爬臺階
fc:=0*c;
for i=1 to DATACOUNT do begin
if i<25 then fc[i]:=1 else if i<50 then fc[i]:=2 else if i<100 then fc[i]:=3 else fc[i]:=4;;
end;
fc;
所屬類別: 控制語句 參數(shù)數(shù)量: 0
IF條件語句
語法:IF cond THEN expr1 ELSE expr2
當滿足 cond 條件的時候，執(zhí)行語句 expr1，否則執(zhí)行 expr2 語句
[Copy to clipboard]CODE:
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[i]:=fc/2;
else
if i<50 then
ma2[i]:=fc/5;
else
if i<80 then
ma3[i]:=fc/8;
else
ma4[i]:=fc/10;
end;
ma4[i];
答(南客):
這里，出錯在 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[i]:=fc/2;
else if i<50 then
ma2[i]:=fc/5;
else if i<80 then
ma3[i]:=fc/8;
else
ma4[i]:=fc/10;
end;
ma4[i];
[Copy to clipboard]CODE:
768.問:
循環(huán)、判斷等控制語句作個類似薛師通道
[color=Red] 答(老實和尚):
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;
引用:
769.問:
fm:ma(c,50)，為什么起始下標不是從1開始，而是從5開始？
我想知道K線圖上倒數(shù)第2根K線對應的5日均價怎么寫公式代碼
答(lhl311):
fm:ma(c,50)，第50天才有,當然第50天才開始 ；
fm:ma(c,5)，第5天才有；當然第5天才開始 因為MA5：=（第1天收盤假+第2天收盤假+第3天收盤假+第4天收盤假+第5天收盤假)/5;
引用:
770.問:
主圖有解盤、副圖有解盤，“一個不能少”，但是太多了，顯示不下，
后面的因吃在屏幕下方而看不到。解盤的顯示框能否分屏顯示（PAGE-UP 、PAGE-DOWN）？
答(hx817):
目前不行
可拖動左右的顯示寬度查看
引用:
771.問:
飛狐有個大手筆之差選股條件,就是100手以上主動買之和減100手以上主動賣之和,
我想把它變成副圖指標,用柱狀表示,正值在0軸之上紅色,負值在0軸之下藍色,如果可以的話,
k線是陰(陽),大手筆差是正(負),柱狀用白色.
答(kjyhao):
你說的公式是可以的,但重要的是要用到"分筆數(shù)據(jù)",這就要:
一;保持有足夠的"分筆數(shù)據(jù)",以保證數(shù)據(jù)的準確性;(這是比較麻煩的事);
二;建立擴展數(shù)據(jù)庫,以保存數(shù)據(jù)被隨時調(diào)用;
以上兩個條件滿足了,就可做你說的公式了;
引用:
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;
引用:
773.問:
能把dll的代碼發(fā)給我學習一下嗎
答(股市騎兵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))="" if(zdz<w3(i))="" if(zdz<m1(i))="" if(zdzw2(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) { hwv+=w2v(j); for(k=i; k>j; j--) { if(w2(j)zdz) { hwv+=w3v(j); for(k=i; k>j; j--) { if(w3(j)=0; j--) { if(m1(j)j; j--) { if(m1(j)>zxz[k]) { hmv-=m1v(j); break;}}} if(m2(j)j; j--) { if(m2(j)>zxz[k]) { hmv-=m2v(j); break;}}} if(m3(j)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; }
引用:
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;< p="">
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;< p="">
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;< p="">
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;< p="">
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;< p="">
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;< p="">
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*** 來選股
引用:
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);
引用:
776.問:
sin(x)；cos(x)；tan(x)；asin(x)；acos(x)；atan(x)；
這些函數(shù)沒有示例，請給個簡單的示例；學習一下
答(hx817):
數(shù)學標準函數(shù),高中數(shù)學
如
第四章 三角函數(shù) 一、角的概念的推廣
一、目的要求
1．理解任意角的概念。
2．學會建立直角坐標系討論任意角，判斷象限角，掌握終邊相同角的集合的書寫。
二、內(nèi)容分析
1．初中階段角的范圍的研究僅局限于0度到360度的角，本節(jié)將在此基礎上把角的概念擴展到任意角，有正角、負角及零角之分。這在數(shù)學認識上是一個飛躍。
實際上正與負是相對的，而零則介于它們之間。以實數(shù)軸為例，原點為零，原點向左數(shù)的數(shù)是負數(shù)，而原點向右數(shù)的數(shù)是正數(shù)。一般地，負數(shù)所表示的代數(shù)意義或幾何意義與正數(shù)所表示的代數(shù)意義或幾何意義恰好相反，因此在本節(jié)教學中，可以運用與上相似的對比法，講解正角、負角以及零角的定義，并指出它們在日常生產(chǎn)、生活中的實際幾何意義，有助于加深對正角、負角以及零角的理解。
2．象限角是本節(jié)的重要概念之一，關于象限的劃分在初中已學習過，在這里有必要再強調(diào)一下。研究象限角的關鍵是平面直角坐標系的建立方法——角的頂點與坐標原點重合，角的始邊與X軸的非負半軸重合，不能說成是與x軸的正半軸重合，不能說成是與x軸的正半軸重合，因為正半軸不包括原點，就不完全包括角的始邊，角的始邊是以角的頂點為其端點的射線。
3．終邊相同角的集合的書寫是本節(jié)的難點，也是學好三角函數(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．終邊相同角的集合的書寫，應當包括兩種基本情況：
①象限角；
②非象限角，也就是終邊落在x軸和y軸上的角，其詳細研究寫在下課時。
三、教學過程
1、提出問題
（為了更好地表現(xiàn)如下問題，有條件的學?？梢允褂枚嗝襟w輔助教學，讓角β集合實際化、形象化。）
①初中所學角的范圍。
②花樣游泳中，運動員旋轉(zhuǎn)的周數(shù)如何用角度計算來表示？
③汽車在前進和倒車中，車輪轉(zhuǎn)動的角度如何表示才比較合理？
④工人師傅在擰緊或擰松螺絲時，轉(zhuǎn)動的角度如何表示比較合適？
2．組織討論，發(fā)表己見，得出角的概念的推廣等有關概念
在這里把正角與汽車前進、螺絲擰緊等相聯(lián)系；負角與汽車倒車，螺絲擰松等相聯(lián)系；零角與汽車靜止、螺絲不動等相聯(lián)系，還可讓學生舉出更多日常生活中的實際例子。
3．象限角的產(chǎn)生
（可采用多媒體輔助教學）
①復習提問直角坐標系中的象限是如何劃分？
②按規(guī)定，使角的頂點與直角坐標系原點重合，角的始邊與x軸的非負半軸重合，那么角的終邊落在第幾象限，就叫做第幾象限角。
③可問：當角的終邊不落在象限內(nèi)，這樣的角叫做什么角？
4．終邊相同角的集合的書寫
遵守由特殊到一般的思維規(guī)律，讓學生觀察、聯(lián)想，得出規(guī)律后，歸納集合書寫，
①用多媒體投影（應具有動感）課本圖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）}
引用:
777.問:
每月第N個交易日
答(南客):
參考如下：
tj:=month<>ref(month,1);
ts:barslast(tj)+1;
引用:
778.問:
不知每一周的第幾天如何編寫？
答(hx817):
tj:=WEEKDAY<ref(weekday,1);< p="">
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;
引用:
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月的某天）開始復牌
這類問題，可以不用循環(huán)，參考sumbars()函數(shù)的用法。
if yy1=yy[j] then
這行語句，你推敲一下，循環(huán)的時候，最小 i 等于多少？假如 i 最小的時候是i=1,那么yy1[1]是否可以？為什么？
前面你實際上已經(jīng)考慮到了 j 應該從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]不存在的。
飛狐公式寫法要求嚴謹功能強，分析家要求馬虎功能也弱。
平時馬虎貫了，到了飛狐里就出錯了 )
引用:
780.問:
我這個公式怎么不過關啊?
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);
CODE:
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[i]:=(fc[i]+fo[i])/2;
if i>1 then x[i]:=(x[i-1]+fc[i])/2;
end;
x;
[Copy to clipboard]CODE:
782.問:
能否把您的源碼仔細地解釋一下
fc:=CLOSE;fo:=OPEN;
for i=1 to DATACOUNT do begin
if i=1 then x[i]:=(fc[i]+fo[i])/2;
if i>1 then x[i]:=(x[i-1]+fc[i])/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[i]:=(fc[i]+fo[i])/2; //判斷是否第一根 K 線，如果是，處理第一個數(shù)據(jù)，即 x[1]=(fc[1]+fo[1])/2=第一個收盤價＋開票價除2
if i>1 then x[i]:=(x[i-1]+fc[i])/2;//除了第一根 K 線以后的算法
end;
x;//所有數(shù)據(jù)計算后在 x[i] 的數(shù)組，就是 x 的序列變量
[Copy to clipboard]CODE:
783.問:
請教,[i-1]中的-1是表示什么意思？(是減去第一根K線嗎？)
答(hx817):
當 i=2 時
if i>1 then x[i]:=(x[i-1]+fc[i])/2;
就是 x[2]=(x(1)+fc[2])/2
i-1 就是取前一個數(shù)據(jù)
引用:
784.問:
申明２５０天線不存在，怎么編寫
答(股市騎兵00):
不知這樣可以嗎？
BARPOS<250;
引用:
785.問:
能否將每天的分時均價編成曰k線的形式連接起來
答(bajatje):
分時相當于1分鐘。。。
要分兩步
1、建名為 fj 的公式
w:=barslast(hour<ref(hour,1));< p="">
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;
引用:
786.問:
我想將如圖中的分時均價線編制成日k線形態(tài)，因為一天中的均價有開盤.最高.最低.收盤。將圖中綠色均天變成分析中的曰k線。
答(bajatje):
均價K線需要有足夠的1分鐘數(shù)據(jù)(天數(shù))
K線.ALG
引用:
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);
引用:
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ù)，每天保存，第二個公式就要作相應修改。
2、
均線走平或向上：
A:=MA(C,30);
A>=REF(A,1);
至于前面拐頭在前幾天等情況，要視具體而定。
引用:
789.問:
怎樣在以下公式內(nèi)加入可條件選股的內(nèi)容（或改寫成可以預警的指標公式）。
要求：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)="" 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)
引用:
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;
引用:
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
%>
引用:
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;< p="">
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);
引用:
793.問:
請你看看以下一段文字,能不能按它的意思做一個指標
%B 布林極限
－－判斷原則
是由布林線所衍生出來的指標，主要的作用在于輔助布林線辨別買賣點的真?zhèn)巍?/p>
％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%。
主要作用：
一、捕捉盤整行情中高拋低吸的機會；
二、突破行情中防止在莊家震倉、整理時提前下車。
使用要領：
一、在盤整行情中CY%BB指標黃線達－100以下，并上穿CY%BB指標白線形成金叉時買入；
二、CY%BB指標黃線達+100以上，并下穿CY%BB指標白線形成死叉時賣出；
三、突破行情中CY%BB指標黃線可以在較長時間內(nèi)保持在+100以上運行，此時應持股，等其下穿+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;
引用:
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;
引用:
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));//取證券對應年月第 N 個交易日的收盤價
引用:
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);
引用:
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));
引用:
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
[Copy to clipboard]CODE:
799.問:
波動性----N的含意
海龜用一個理查德.丹尼斯和比爾.埃克哈特稱之為N的概念來表示某個特定市場根本的波動性。N就是TR（True Range，實際范圍）的20日指數(shù)移動平均，現(xiàn)在更普遍地稱之為ATR。從概念上來看，N表示單個交易日某個特定市場所造成的價格波動的平均范圍，它說明了開盤價的缺口。N同樣用構(gòu)成合約基礎的點（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應該怎么表達的請版主指點一下:
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;
[Copy to clipboard]CODE:
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[i]-ll[p])/dd+1;
sl:=(fl[i]-ll[p])/dd+1;
dj:=fv[i]/(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
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;
