請教各位前輩

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版使用.該用那個函數取代或是其他替代編寫方法//

謝謝

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

引用:

---

最初由 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 可用下列敘述取代
BarsCount(c)

真的很感謝總板主那麼迅速又熱心的指導
晚輩實在是很不好意思.一個式子居然問題這麼多
以下是完整式子.雖然解決了"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;

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

{參數: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版的圖形

原碼:


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;

謝謝總板主的大力協助

感恩

請教總版主
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;

p0068 附帶上了此圖片:

__________________
shujenwen

好公式 謝謝提供

請 版主 修正 (兩段式 )

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;

附件: 上下軌.alg
此文件已被下載 101 次。

3 Q !
謝謝 fugoal 兄修正 BAG

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

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

附件: QWE(上下軌).alg
此文件已被下載 132 次。

__________________
shujenwen

qwe附圖

p0068 附帶上了此圖片:

__________________
shujenwen

[圖片交流]

好東西 但 使用小心

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

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