커뮤니티
문의드립니다
2013-10-21 17:10:36
141
글번호 68632
수고하십니다
문의1: 사용자함수만
문의2: 변환
부탁드립니다
답변 1
예스스탁 예스스탁 답변
2013-10-21 16:43:47
안녕하세요
예스스탁입니다.
1 사용자함수 : DZBuy
Input: Indictor(NUMERICSERIES), InitVal(NUMERIC), N(NUMERIC);
Vars: Left(-10000), Right(10000),count(0),j(0),j1(0),Prob(0),eps(0.001),yval(0),k(0),delt(0),
BNumb(35775),BNumb1(30208);
array: return[750](0);
value5=Indictor;
If index>N then
begin
For k=0 to N-2
begin
return[k]=return[k+1];
end;
return[N-1]=value5;
end
else
begin
j=index-1;
return[j]=value5;
end;
If index>=N then
begin
yval=(left+right)/2;
delt=yval-left;
while delt>0.005 and value1<50
begin
value1=value1+1;
For j1=0 to N-1
begin
IF return[j1]<yval then
begin
count=count+1;
end;
end;
Prob=count/N;
IF Prob>InitVal+eps then
begin
right=yval;
yval=(yval+left)/2;
end;
IF Prob<InitVal-eps then
begin
left=yval;
yval=(yval+right)/2;
end;
IF Prob<InitVal+eps and Prob>InitVal-eps then
begin
right=yval;
yval=(yval+left)/2;
end;
delt=yval-left;
count=0;
end;
If value1<>500 then
value1=0;
DZBuy=yval;
Right=10000;
Left=-10000;
Prob=0;
end;
2. 사용자함수 : DZSell
Input: Indictor(NUMERICSERIES), InitVal(NUMERIC), N(NUMERIC);
Vars: Left(-10000), Right(10000),count(0),j(0),j1(0),Prob(0),eps(0.001),yval(0),k(0),delt(0),
BNumb(35775),BNumb1(30208);
array: return[750](0);
value5=Indictor;
If index>N then
begin
For k=0 to N-2
begin
return[k]=return[k+1];
end;
return[N-1]=value5;
end
else
begin
j=index-1;
return[j]=value5;
end;
If index>=N then
begin
yval=(right+left)/2;
delt=right-yval;
while delt>0.005 and value1<50
begin
value1=value1+1;
For j1=0 to N-1
begin
IF return[j1]>yval then
begin
count=count+1;
end;
end;
Prob=count/N;
IF Prob>InitVal+eps then
begin
left=yval;
yval=(yval+right)/2;
end;
IF Prob<InitVal-eps then
begin
right=yval;
yval=(yval+left)/2;
end;
IF Prob<InitVal+eps and Prob>InitVal-eps then
begin
left=yval; #{if we want to maximize high}
yval=(yval+right)/2;
end;
count=0;
delt=right-yval;
end;
If value1<>500 then
value1=0;
DZSell=yval;
Right=10000;
Left=-10000;
Prob=0;
end;
3.
input : Len(30);
var : count(0),sm(0),cw(0),ca(0),ss(0);
sm = (Open+2*Low[1]+2*high[2])/4;
cw = 0;
ca = 0;
for count = 0 to len-1 Begin
if sm[count] > sm[count+1] then cw = cw + sm[count]-sm[count+1];
if sm[count] < sm[count+1] then ca = ca + sm[count]-sm[count+1];
end;
if cw+ca <> 0 then ss = cw/(cw+ca);
plot1(ss,"ss");
즐거운 하루되세요
> 뉴스타트 님이 쓴 글입니다.
> 제목 : 문의드립니다
> 수고하십니다
문의1: 사용자함수만
문의2: 변환
부탁드립니다
다음글
이전글