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

總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 19 個文章

奇狐社區論壇 (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棒改變角度

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

全部時間均為台灣時間, 現在時間為03:47

總頁數 (2): [1] 2 »
在這個頁面顯示本主題全部的 19 個文章