Script error

[Stefano Milani]

Dear all,

I'm new user of octave and I need an help with this script.

%script per definizione passo fori lamiera

d=6; %Diametro dei fori
p=15; %Passo (da iterare)
p1=p*cos(pi/3); %Passo in direzione assiale (affinchè il pattern sia triangolare equilatero)
r2=622.5; % Diametro Max cono
r1=36; % Diametro Min cono
L=2610; % Lunghezza Lamiera
alpha=atan((r2-r1)/L); %Angolo di semiapertura Cono
rm=(r2+r1)/2; %Raggio medio cono
S=2*pi*rm*L; %Superficie Lamiera
Sforata=0.362*S; %Superficie forata
Nfori=Sforata/(pi*d^2/4); %Numero di fori
n=(L-2*p1)/p1+1;
r(1)=r2-p1*tan(alpha);
for i=1:n
 r(i+1) = r(i) - p1*tan(alpha);
 f(i) = 2*pi*r(i)/p;
end

When I run it I receive this message:

error: r(347): subscripts must be either integers 1 to (2^31)-1 or logicals
error: called from
    pattern at line 17 column 10

But I however obtain series number.

How can I solve this problem? Where I'm wrong?

Best regards

_______________

Stefano Milani

Structural Design Specialist

Ener Consulting S.r.l.