奇狐社區論壇 - [問題] 請教有關"函數"

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題] 請教有關"函數" (http://www.chiefox.com.tw/bbs/showthread.php?threadid=2303)

由 joanne115244 在 2005-01-07 15:29 發表:

[問題] 請教有關"函數"

請教各位前輩

p:=if(SYSPARAM(1)<datacount-t-n2,SYSPARAM(1),datacount-t-n2);
Ax:=p=BARPOS;
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;
......

////上面式子中的"datacount"無法在低版本3.5版使用.該用那個函數取代或是其他替代編寫方法//

謝謝

由 cgjj 在 2005-01-07 16:32 發表:

DataCountN:c;
<%
nn=FFL.VarData("DataCountN")
endno=ubound(nn)
for i = lbound(nn) to endno
nn(i)=endno+1
next
FFL.VarData("DataCountN")=nn
%>

由 joanne115244 在 2005-01-07 20:56 發表:

引用:
最初由 cgjj 發表
DataCountN:c;
<%
nn=FFL.VarData("DataCountN")
endno=ubound(nn)
for i = lbound(nn) to endno
nn(i)=endno+1
next
FFL.VarData("DataCountN")=nn
%>

謝謝總板主指點

再請您看看 BARPOS 相同問題該如何處理

由 cgjj 在 2005-01-07 21:25 發表:

BARPOS 可用下列敘述取代
BarsCount(c)

由 joanne115244 在 2005-01-07 21:39 發表:

真的很感謝總板主那麼迅速又熱心的指導
晚輩實在是很不好意思.一個式子居然問題這麼多
以下是完整式子.雖然解決了"datacount"及"BARPOS"函數
可是在上軌:LINEVALUE(Ax,Ay+js[p+t],Bx,By+js[p+t],0,0),COLORRED;
依然無法通過.請您再費心指導
感恩

p:=if(SYSPARAM(1)<datacount-t-n2,SYSPARAM(1),datacount-t-n2);
Ax:=p=BARPOS;
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;
js:=hhv(h-中值,t+1);
jq:=hhv(中值-L,t+1);
上軌:LINEVALUE(Ax,Ay+js[p+t],Bx,By+js[p+t],0,0),COLORRED;
下軌:LINEVALUE(Ax,Ay-jq[p+t],Bx,By-jq[p+t],0,0),COLORGREEN;
STICKLINE(Ax or Bx,上軌,下軌,0.01,0)COLORGRAY,POINTDOT;

由 cgjj 在 2005-01-07 21:48 發表:

你把完整的程式和要設的參數都貼出來吧
一半的程式很難處理, 無法考慮到所有情況

由 joanne115244 在 2005-01-07 22:01 發表:

{參數:T(20.1.100) N2(7.1.100)
p:=if(SYSPARAM(1)<datacount-t-n2,SYSPARAM(1),datacount-t-n2);
Ax:=p=BARPOS;
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;
js:=hhv(h-中值,t+1);
jq:=hhv(中值-L,t+1);
上軌:LINEVALUE(Ax,Ay+js[p+t],Bx,By+js[p+t],0,0),COLORRED;
下軌:LINEVALUE(Ax,Ay-jq[p+t],Bx,By-jq[p+t],0,0),COLORGREEN;
STICKLINE(Ax or Bx,上軌,下軌,0.01,0)COLORGRAY,POINTDOT;
-------------------------------------------------------------------------------------END-----------------

在4.0版的圖形

由 cgjj 在 2005-01-07 23:15 發表:

原碼:


DataCountN:=c*0;

<%

nn=FFL.VarData("DataCountN")

setnn=ubound(nn)+1

for i = lbound(nn) to ubound(nn)

  nn(i)=setnn

next

FFL.VarData("DataCountN")=nn

%>

p:=if(SYSPARAM(1)<DataCountN-t-n2,SYSPARAM(1),DataCountN-t-n2);

Ax:=p=BarsCount(c);

Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;

Bx:=ref(Ax,t);

By:=forcast(c,t);

中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;

js:=hhv(h-中值,t+1);

jq:=hhv(中值-L,t+1);

upos:=p+t;

<%

upos=FFL.VarData("upos")

js=FFL.VarData("js")

jq=FFL.VarData("jq")

for i = lbound(js) to ubound(js)

  js(i)=js(upos(i)-1)

  jq(i)=jq(upos(i)-1)

next

FFL.VarData("js")=js

FFL.VarData("jq")=jq

%>

上軌:LINEVALUE(Ax,Ay+js,Bx,By+js,0,0),COLORRED;

下軌:LINEVALUE(Ax,Ay-jq,Bx,By-jq,0,0),COLORGREEN;

STICKLINE(Ax or Bx,上軌,下軌,0.01,0)COLORGRAY,POINTDOT;

由 joanne115244 在 2005-01-07 23:39 發表:

謝謝總板主的大力協助

感恩

由 p0068 在 2005-01-08 00:22 發表:

請教總版主

請教總版主
3.5版那裡出錯謝謝

T 20 1 100
N1 7 1 60
N2 3 1 60

DataCountN:c;
<%
nn=FFL.VarData("DataCountN")
endno=ubound(nn)
for i = lbound(nn) to endno
nn(i)=endno+1
next
FFL.VarData("DataCountN")=nn
%>
p:=if(SYSPARAM(1)<DataCountN-t-n2,SYSPARAM(1),DataCountN-t-n2);
Ax:=p=BarsCount(c);
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;
js:=hhv(h-中值,t+1);
jq:=hhv(中值-L,t+1);
upos:=p+t;
<%
upos=FFL.VarData("upos")
js=FFL.VarData("js")
jq=FFL.VarData("jq")
for i = lbound(js) to ubound(js)
js(i)=js(upos(i)-1)
jq(i)=jq(upos(i)-1)
next
FFL.VarData("js")=js
FFL.VarData("jq")=jq
%>
上軌:LINEVALUE(Ax,Ay+js,Bx,By+js,0,0),COLORRED;
下軌:LINEVALUE(Ax,Ay-jq,Bx,By-jq,0,0),COLORGREEN;
STICKLINE(Ax or Bx,上軌,下軌,0.01,0)COLORGRAY,POINTDOT;

__________________
shujenwen

由 fugoal 在 2005-01-08 10:20 發表:

好公式謝謝提供

好公式謝謝提供

請版主修正 (兩段式 )

T=7 T1=14 N=20 N1=100

DataCountN:=c*0;
<%
nn=FFL.VarData("DataCountN")
setnn=ubound(nn)+1
for i = lbound(nn) to ubound(nn)
nn(i)=setnn
next
FFL.VarData("DataCountN")=nn
%>
p:=if(SYSPARAM(1)<DataCountN-t-n,SYSPARAM(1),DataCountN-t-n);
Ax:=p=BarsCount(c);
Ay:=refx(forcast(c,t),t)-refx(slope(c,t),t)*t;
Bx:=ref(Ax,t);
By:=forcast(c,t);
中值:LINEVALUE(Ax,Ay,Bx,By,0,0),COLORCYAN;
js:=hhv(h-中值,t+1);
jq:=hhv(中值-L,t+1);
upos:=p+t;
<%
upos=FFL.VarData("upos")
js=FFL.VarData("js")
jq=FFL.VarData("jq")
for i = lbound(js) to ubound(js)
js(i)=js(upos(i)-1)
jq(i)=jq(upos(i)-1)
next
FFL.VarData("js")=js
FFL.VarData("jq")=jq
%>
上軌:LINEVALUE(Ax,Ay+js,Bx,By+js,0,0),COLORRED;
下軌:LINEVALUE(Ax,Ay-jq,Bx,By-jq,0,0),COLORGREEN;
STICKLINE(Ax or Bx,上軌,下軌,0.01,0)COLORGRAY,POINTDOT;

DataCountN1:=c*0;
<%
nn=FFL.VarData("DataCountN1")
setnn=ubound(nn)+1
for i = lbound(nn) to ubound(nn)
nn(i)=setnn
next
FFL.VarData("DataCountN1")=nn
%>
p1:=if(SYSPARAM(1)<DataCountN1-t1-n1,SYSPARAM(1),DataCountN1-t1-n1);
Ax1:=p1=BarsCount(c);
Ay1:=refx(forcast(c,t1),t1)-refx(slope(c,t1),t1)*t1;
Bx1:=ref(Ax1,t1);
By1:=forcast(c,t1);
中值1:LINEVALUE(Ax1,Ay1,Bx1,By1,0,0),COLORCYAN;
js1:=hhv(h-中值1,t1+1);
jq1:=hhv(中值1-L,t1+1);
upos1:=p1+t1;
<%
upos1=FFL.VarData("upos1")
js1=FFL.VarData("js1")
jq1=FFL.VarData("jq1")
for i = lbound(js1) to ubound(js1)
js1(i)=js1(upos1(i)-1)
jq1(i)=jq1(upos1(i)-1)
next
FFL.VarData("js1")=js1
FFL.VarData("jq1")=jq1
%>
上軌1:LINEVALUE(Ax1,Ay1+js1,Bx1,By1+js1,0,0),COLORRED;
下軌1:LINEVALUE(Ax1,Ay1-jq1,Bx1,By1-jq1,0,0),COLORGREEN;
STICKLINE(Ax1 or Bx1,上軌1,下軌1,0.01,0)COLORGRAY,POINTDOT;

由 p0068 在 2005-01-08 10:28 發表:

THANKS

3 Q !
謝謝 fugoal 兄修正 BAG

也謝謝joanne115244兄提供公式原架構

有緣快下載 3.5 版的加料的均線粉紅買藍賣

__________________
shujenwen

由 p0068 在 2005-01-08 10:56 發表:

qwe

qwe附圖

__________________
shujenwen

由 joanne115244 在 2005-01-08 12:26 發表:

[圖片交流]

由 fugoal 在 2005-01-08 15:37 發表:

好東西但使用小心

好東西但使用小心

(未來函數) 隨每天 K棒改變角度

敬請版主及高手們改為固定或近期高低點
這樣短期上下趨勢線就出來嘞
狐友們有福ㄋ

由 joanne115244 在 2005-01-08 16:45 發表:

回覆: 好東西但使用小心

引用:
最初由 fugoal 發表
好東西但使用小心

(未來函數) 隨每天 K棒改變角度

敬請版主及高手們改為固定或近期高低點
這樣短期上下趨勢線就出來嘞
狐友們有福ㄋ

其實(未來函數)不是洪水猛獸只要善用它.就可以達到"輔助參考" 的意義
您買賣股票不也是預期它未來會漲會跌ㄇ
.......呵呵

以下是另外一種範例提供您參考~~

AA:=REF(H,5)=HHV(H,2*5+1);
BB:=BACKSET(AA,5+1);
CC:=FILTER(BB,5) AND H=HHV(H,5+1);
DRAWICON(CC and ISLASTBAR=1,H*1.01,10);
AA2:=REF(L,5)=LLV(L,2*5+1);
BB2:=BACKSET(AA2,5+1);
CC2:=FILTER(BB2,5) AND L=LLV(L,5+1);
DRAWICON(CC2 and ISLASTBAR=1,L*0.998,11);
GG:=ISLASTBAR=1 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,H,II,H,1),LINETHICK1,COLORWHITE,POINTDOT;
GG2:=ISLASTBAR=1 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,L,II2,L,1),LINETHICK1,COLORWHITE,POINTDOT;

由 fugoal 在 2005-01-08 20:15 發表:

好公式

好公式

收到ㄋ

謝謝!

由 p0068 在 2005-01-08 23:46 發表:

好公式

好公式

收到了

謝謝!

__________________
shujenwen

由 fugoal 在 2005-01-09 09:42 發表:

回覆: 回覆: 好東西但使用小心

引用:
最初由 joanne115244 發表
其實(未來函數)不是洪水猛獸只要善用它.就可以達到"輔助參考" 的意義
您買賣股票不也是預期它未來會漲會跌ㄇ
.......呵呵

以下是另外一種範例提供您參考~~

AA:=REF(H,5)=HHV(H,2*5+1);
BB:=BACKSET(AA,5+1);
CC:=FILTER(BB,5) AND H=HHV(H,5+1);
DRAWICON(CC and ISLASTBAR=1,H*1.01,10);
AA2:=REF(L,5)=LLV(L,2*5+1);
BB2:=BACKSET(AA2,5+1);
CC2:=FILTER(BB2,5) AND L=LLV(L,5+1);
DRAWICON(CC2 and ISLASTBAR=1,L*0.998,11);
GG:=ISLASTBAR=1 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,H,II,H,1),LINETHICK1,COLORWHITE,POINTDOT;
GG2:=ISLASTBAR=1 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,L,II2,L,1),LINETHICK1,COLORWHITE,POINTDOT;

不盡理想須請版主及高手選寫

N=4 N1=8 N2=12

AA:=REF(H,N)=HHV(H,2*N+1);
BB:=BACKSET(AA,N+1);
CC:=FILTER(BB,N) AND H=HHV(H,N+1);
DRAWICON(CC and ISLASTBAR=1,H*1.01,10);

GG:=ISLASTBAR=1 AND REF(CC,BARSLAST(CC));
HH:=BACKSET(GG,BARSLAST(CC)+1);
II:=HH>REF(HH,1);
JJ:=REF(BARSLAST(CC),1);
KK:=BACKSET(II,JJ+2);
LL:=KK>REF(KK,1);
DRAWLINE(LL,H,II,H,1),LINETHICK1,COLORWHITE,POINTDOT;

AA2:=REF(L,N)=LLV(L,2*N+1);
BB2:=BACKSET(AA2,N+1);
CC2:=FILTER(BB2,N) AND L=LLV(L,N+1);
DRAWICON(CC2 and ISLASTBAR=1,L*0.998,11);

GG2:=ISLASTBAR=1 AND REF(CC2,BARSLAST(CC2));
HH2:=BACKSET(GG2,BARSLAST(CC2)+1);
II2:=HH2>REF(HH2,1);
JJ2:=REF(BARSLAST(CC2),1);
KK2:=BACKSET(II2,JJ2+2);
LL2:=KK2>REF(KK2,1);
DRAWLINE(LL2,L,II2,L,1),LINETHICK1,COLORWHITE,POINTDOT;

ZA:=REF(H,N1)=HHV(H,2*N1+1);
ZB:=BACKSET(ZA,N1+1);
ZC:=FILTER(ZB,N1) AND H=HHV(H,N1+1);
DRAWICON(ZC and ISLASTBAR=1,H*1.01,10);

ZG:=ISLASTBAR=1 AND REF(ZC,BARSLAST(ZC));
ZH:=BACKSET(ZG,BARSLAST(ZC)+1);
ZI:=ZH>REF(ZH,1);
ZJ:=REF(BARSLAST(ZC),1);
ZK:=BACKSET(ZI,ZJ+2);
ZL:=ZK>REF(ZK,1);
DRAWLINE(ZL,H,ZI,H,1),LINETHICK1,COLORYELLOW,POINTDOT;

ZA2:=REF(L,N1)=LLV(L,2*N1+1);
ZB2:=BACKSET(ZA2,N1+1);
ZC2:=FILTER(ZB2,N1) AND L=LLV(L,N1+1);
DRAWICON(ZC2 and ISLASTBAR=1,L*0.998,11);

ZG2:=ISLASTBAR=1 AND REF(ZC2,BARSLAST(ZC2));
ZH2:=BACKSET(ZG2,BARSLAST(ZC2)+1);
ZI2:=ZH2>REF(ZH2,1);
ZJ2:=REF(BARSLAST(ZC2),1);
ZK2:=BACKSET(ZI2,ZJ2+2);
ZL2:=ZK2>REF(ZK2,1);
DRAWLINE(ZL2,L,ZI2,L,1),LINETHICK1,COLORYELLOW,POINTDOT;

Z1A:=REF(H,N2)=HHV(H,2*N2+1);
Z1B:=BACKSET(Z1A,N2+1);
Z1C:=FILTER(Z1B,N2) AND H=HHV(H,N2+1);
DRAWICON(Z1C and ISLASTBAR=1,H*1.01,10);

Z1G:=ISLASTBAR=1 AND REF(Z1C,BARSLAST(Z1C));
Z1H:=BACKSET(Z1G,BARSLAST(Z1C)+1);
Z1I:=Z1H>REF(Z1H,1);
Z1J:=REF(BARSLAST(Z1C),1);
Z1K:=BACKSET(Z1I,Z1J+2);
Z1L:=Z1K>REF(Z1K,1);
DRAWLINE(Z1L,H,Z1I,H,1),LINETHICK1,COLORFF9933,POINTDOT;

Z1A2:=REF(L,N2)=LLV(L,2*N2+1);
Z1B2:=BACKSET(Z1A2,N2+1);
Z1C2:=FILTER(Z1B2,N2) AND L=LLV(L,N2+1);
DRAWICON(Z1C2 and ISLASTBAR=1,L*0.998,11);

Z1G2:=ISLASTBAR=1 AND REF(Z1C2,BARSLAST(Z1C2));
Z1H2:=BACKSET(Z1G2,BARSLAST(Z1C2)+1);
Z1I2:=Z1H2>REF(Z1H2,1);
Z1J2:=REF(BARSLAST(Z1C2),1);
Z1K2:=BACKSET(Z1I2,Z1J2+2);
Z1L2:=Z1K2>REF(Z1K2,1);
DRAWLINE(Z1L2,L,Z1I2,L,1),LINETHICK1,COLORFF9933,POINTDOT;

全部時間均為台灣時間, 現在時間為11:59

在這個頁面顯示本主題全部的 19 個文章