求指标!!! [博易POBO]
咨询内容:
求四度空间的指标
input:m(2,2,9999);//参数M定位,第1根TBL柱线对应K线的序号
ifm<2thenexit;
up:=c>ref(c,1);
down:=c
fc:=close;
fo:=open;
a:=setlbound(up,1);
up:=fc>fo;
n:=m-1;
ifupthenbegin
B4:=fc;
B1:=fo;
b3:=B1;
B2:=B1;
tbl:=1;
endelsebegin
B4:=fo;
B1:=fc;
B2:=B4;
B3:=B4;
tbl:=0;
end;
tblcount:=1;
////////////////////////////////////
fori=n+1todatacountdobegin
iftbl=1thenbegin
ifupthenbegin
iffc>B4thenbegin
tblcount:=tblcount+1;
tblc:=fc;
tblo:=B4;
iftblcount>2thenbegin
tblcount:=3;
B1:=B2;
B2:=B3;
end;
B3:=B4;
B4:=fc;
end;
end
elseifdownthenbegin
iffc
tblcount:=1;
tblc:=fc;
tblo:=B3;
B1:=fc;
B2:=B3;
tbl:=0;
end;
end;
endelsebegin
ifdownthenbegin
iffc
tblcount:=tblcount+1;
tblc:=fc;
tblo:=B1;
iftblcount>2thenbegin
tblcount:=3;
B4:=B3;
b3:=B2;
end;
B2:=B1;
B1:=fc;
end;
end
elseifupthenbegin
iffc>B4thenbegin
tblcount:=1;
tblc:=fc;
tblo:=B2;
B4:=fc;
B3:=B2;
tbl:=1;
end;
end;
end;
end;
stickline(tblc<>0andup,tblc,tblo,7,1)colorred;
stickline(tblc<>0anddown,tblc,tblo,7,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0andref(up,ts),ref(tblc,ts),ref(tblc,ts),3,1),colormagenta;
stickline(tblc=0andref(down,ts),ref(tblc,ts),ref(tblc,ts),3,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;
求指标!!!
求新三值的指标,又名:三线反转图 我找到了公式但是添加不进去 函数括号等等的问题求四度空间的指标
博易技术人员: 您好,您可以先把您的目前的公式提供一下吗?
input:m(2,2,9999);//参数M定位,第1根TBL柱线对应K线的序号
ifm<2thenexit;
up:=c>ref(c,1);
down:=c
fc:=close;
fo:=open;
a:=setlbound(up,1);
up:=fc>fo;
n:=m-1;
ifupthenbegin
B4:=fc;
B1:=fo;
b3:=B1;
B2:=B1;
tbl:=1;
endelsebegin
B4:=fo;
B1:=fc;
B2:=B4;
B3:=B4;
tbl:=0;
end;
tblcount:=1;
////////////////////////////////////
fori=n+1todatacountdobegin
iftbl=1thenbegin
ifupthenbegin
iffc>B4thenbegin
tblcount:=tblcount+1;
tblc:=fc;
tblo:=B4;
iftblcount>2thenbegin
tblcount:=3;
B1:=B2;
B2:=B3;
end;
B3:=B4;
B4:=fc;
end;
end
elseifdownthenbegin
iffc
tblcount:=1;
tblc:=fc;
tblo:=B3;
B1:=fc;
B2:=B3;
tbl:=0;
end;
end;
endelsebegin
ifdownthenbegin
iffc
tblcount:=tblcount+1;
tblc:=fc;
tblo:=B1;
iftblcount>2thenbegin
tblcount:=3;
B4:=B3;
b3:=B2;
end;
B2:=B1;
B1:=fc;
end;
end
elseifupthenbegin
iffc>B4thenbegin
tblcount:=1;
tblc:=fc;
tblo:=B2;
B4:=fc;
B3:=B2;
tbl:=1;
end;
end;
end;
end;
stickline(tblc<>0andup,tblc,tblo,7,1)colorred;
stickline(tblc<>0anddown,tblc,tblo,7,0),colorcyan;
ts:=barslast(tblc);
stickline(tblc=0andref(up,ts),ref(tblc,ts),ref(tblc,ts),3,1),colormagenta;
stickline(tblc=0andref(down,ts),ref(tblc,ts),ref(tblc,ts),3,1),colorblue;
cc:tblc,linethick0;
oo:tblo,linethick0;
有思路,想编写各种指标公式,程序化交易模型,选股公式,预警公式的朋友
可联系技术人员 QQ: 511411198 进行 有偿 编写!(不贵!点击查看价格!)
相关文章
-
没有相关内容