DJ30 HISTORICAL ANALYSYS

L100=size(A);
I=L100(1,1);
B1=A(1:I,1);
C1=;
D1=(B1(C1));
B2=A(1:I,2);
C2=;
D2=(B2(C2));
B3=A(1:I,3);
C3=;
D3=(B3(C3));
B4=A(1:I,4);
C4=;
D4=(B4(C4));
D=;
for i=2:I
E_1(i-1,1)=D(i,1);
E_2(i-1,1)=D(i,2);
E_3(i-1,1)=D(i,3);
E_4(i-1,1)=D(i,4);
end
for i=1:I-1
P(i,1)=(D(i,2)+D(i,3)+D(i,4))/3;
end
for i=1:I-1
RS1(i,1)=P(i,1)*2-D(i,3);
RS1(i,2)=P(i,1)*2-D(i,2);
end
for i=1:I-1
F45(i,1)=(RS1(i,1)+RS1(i,2))/2;
end
for i=1:I-1
if F45(i,1)<=E_1(i,1)
F46(i,1)=1;
else
F46(i,1)=2;
end
end
/*
F50=zeros(I-1,1);
F51=zeros(I-1,1);
for i=1:I-2
if F46(i,1)==1&&F46(i+1,1)==1
F50(i,1)=sum(E_4(i+1,1)-E_4(i,1));
elseif F46(i,1)==1&&F46(i+1,1)==2
F51(i,1)=F50(i,1)+(E_4(i+1,1)-E_4(i,1));
end
end
*/
B10=zeros(I-1,1);
S10=zeros(I-1,1);
F51=zeros(I-1,1);
F50=zeros(I-1,1);
for i=2:I-1
if F46(i,1)==1&&F46(i-1,1)==2
B10(i,1)=E_4(i,1);
elseif F46(i-1,1)==1&&F46(i,1)==2
S10(i,1)=E_4(i,1);
end
F51(i,1)=S10(i,1)-B10(i,1);
end
for i=2:I-1
if B10(i,1)==0
F50(i,1)=S10(i,1)-B10(i,1);
elseif S10(i,1)==0
F50(i,1)=B10(i,1)-S10(i,1);
end
end

F100=zeros(I-1,1);
F200=zeros(I-1,1);
for i=2:I-2
if F46(i,1)==2&&F50(i,1)!=0
F100(i,1)=F50(i,1);
end
if F50(i,1)==0&&F46(i,1)==2
F100(i,1)=F100(i-1,1);
end
if F46(i,1)==1&&F50(i,1)!=0
F100(i,1)=F50(i,1);
end
if F50(i,1)==0&&F46(i,1)==1
F100(i,1)=F100(i-1,1);
end
end
for i=2:I-2
if F46(i,1)==2&&F46(i+1,1)==1
F200(i+1,1)=F100(i,1)-F100(i+1,1);
end
if F46(i,1)==1&&F46(i+1,1)==2
F200(i+1,1)=F100(i+1,1)-F100(i,1);
end
end

V1=;
printf("\n");
//printf("\tO\t\tH\t\tL\t\tC\t\tP\t\tC<>O\t\tP<>O\t\tP-RES\t\tHL\t\tHL RES\t\tPP-RES\t\tPP++");
printf("\n");
for i=1:I-2
for e=1:9
V2(i,e)=V1(i,e);
printf("\t%g:%.4f",i,V2(i,e));
if (9==e)
printf("\t\n");
end
end
end
/*
printf("\n");
Z=input('Enter trading list: ');
V=size(Z);
i4=V(1,1);
for i=1:i4
if F46(Z(i,1),1)==1
M(i,1)=E_4(Z(i,2),1)-E_1(Z(i,1),1);
elseif F46(Z(i,1),1)==2
M(i,1)=E_1(Z(i,1),1)-E_4(Z(i,2),1);
end
end
*/