Kinematic and Dynamic Analysis of Spatial Six Degree of Freedom ...

A.1.1 CASSoM Source Code
Like all visual programming languages, Delphi creates very long codes. Due to this,
only the engine of CASSoM is presented here.
procedure TSynInpForm.DoSynthesis;
var
code : integer;
Cc : real;
J,Jb,JbExtra,P,Lambda,B,Bv,C,Np:integer;
ResultMessage : string;
begin
Lambda := UpDownLambda.Position;
P := UpDownN.Position;
Bv := UpDownW.Position;
Np := UpDownTri.Position * 3 +
UpDownQuad.Position * 4 +
UpDownPenta.Position * 5 +
UpDownHexa.Position * 6;
If 3*P>Np then
begin
showmessage('Invalid platform specification! (Condition 1)');
exit;
end;
If Np > Lambda*P then
begin
showmessage('Invalid platform specification! (Condition 1)');
exit;
end;
Cc := 0.5*(Np - Bv);
If Cc - trunc (Cc) 0 then
begin
showmessage('Invalid platform specification! (Condition 7)');
exit;
end;
C := Trunc (Cc); {# of connections between basic(plat.) links}
B := Np - C; {# of branches}
J := Lambda * (Np - C - P); {total # of pairs}
Jb := J div B; {number of pairs in a branch}
JbExtra := J - Jb * B; {total additional # of pairs to be put on}
ResultMessage := 'J='+strs(J)+
' | B= '+strs(B)+
' | Jb='+strs(Jb)+
' | Jb Add.='+strs(JbExtra)+
' | C='+strs(C);
Label9.Caption :=ResultMessage;
end;
function TSynInpForm.Strs(I: Longint): string;
{ Convert any integer type to a string }
var
S: string[11];
begin
Str(I, S);
Result:= S;
end;
71