15.03.10 13:12
1
function
lsg = schleife( epsilon, schrittweite, m, h, l, l1, l2 , Astat, Bstat,
Cstat, Dstat, g, Mzug, M2, my_a, my_b, my_c, my_d )
2
3 j=0;
4
5
for
i=0:schrittweite:360
6
j=j+1;
7
phi=i/180*pi;
8
9
% Schleife Näherung maximal mögliche Beschleunigung
10
11
annaeherung=[1.0 0.1 0.01 0.001];
12
abbruchwert=20;
13
start=annaeherung(1);
14
for
appr=1:1:size(annaeherung,2)
15
for
a = start:annaeherung(appr):abbruchwert
16
schleifeninhalt
17
end
18
abbruchwert=a;
19
if
appr<size(annaeherung,2)
20
start=a-annaeherung(appr)+annaeherung(appr+1);
21
end
22
end
23
24
25
%Ergebnisse speichern
26
lsg(j,1)=i;
27
lsg(j,2)=Ar;
28
lsg(j,3)=Br;
29
lsg(j,4)=Cr;
30
lsg(j,5)=Dr;
31
lsg(j,6)=Astat;
32
lsg(j,7)=Cstat;
33
lsg(j, 8)=radkraft(1);
34
lsg(j, 9)=radkraft(2);
35
lsg(j,10)=radkraft(3);
36
lsg(j,11)=radkraft(4);
37
38
lsg(j,16)=a;
39
40
41
end
42
43
44
end
L:\schleife.m
%maximal mögliche Beschleunigung in diese Richtung
Page 1
A34