Changeset 295
- Timestamp:
- 12/16/2005 12:36:17 PM (3 years ago)
- Location:
- Modelica/trunk
- Files:
-
- 2 modified
-
Math/package.mo (modified) (5 diffs)
-
Mechanics/MultiBody/parts.mo (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
Modelica/trunk/Math/package.mo
r289 r295 1133 1133 Integer j=1; 1134 1134 Integer k=0; 1135 Boolean break=false;1135 Boolean done=false; 1136 1136 Real Anorm; 1137 1137 Real Tscaled=1; … … 1171 1171 M := identity(na); 1172 1172 D := M; 1173 while j < nmax and not breakloop1173 while j < nmax and not done loop 1174 1174 M := Atransf*M*Tscaled/j; 1175 1175 //stop if the new element of the series is small 1176 1176 if columnNorm((D + M) - D) == 0 then 1177 break:= true;1177 done := true; 1178 1178 else 1179 1179 D := M + D; … … 1210 1210 Integer j=2; 1211 1211 Integer k=0; 1212 Boolean break=false;1212 Boolean done=false; 1213 1213 Real Anorm; 1214 1214 Real Tscaled=1; … … 1327 1327 M := identity(na)*Tscaled; 1328 1328 Psi := M; 1329 while j < nmax and not breakloop1329 while j < nmax and not done loop 1330 1330 M := Atransf*M*Tscaled/j; 1331 1331 //stop if the new element of the series is small 1332 1332 if norm((Psi + M) - Psi, 1) == 0 then 1333 break:= true;1333 done := true; 1334 1334 else 1335 1335 Psi := M + Psi; … … 1370 1370 parameter Integer nb=size(B, 2); 1371 1371 Integer j=1; 1372 Boolean break=false;1372 Boolean done=false; 1373 1373 Real F[na + 2*nb, na + 2*nb]; 1374 1374 annotation ( -
Modelica/trunk/Mechanics/MultiBody/parts.mo
r291 r295 1 package Parts 1 package Parts 2 2 "Rigid components such as bodies with mass and inertia and massless rods" 3 3
