saveTruss1.m

function saveTruss1(x0, A, N, m, c, filename)
% speichert Daten eines Fachwerks
% Parameter:
%    x0        Gleichgewichtskoordinaten aller Punkte
%    A         Verbindungsmatrix (symmetrisch, auf der Diagonalen 0)
%    N         Zahl der beweglichen Massen
%    m         Größe einer Masse
%    c         Steifigkeit eines Balkens
%    filename  Name der Datei (ohne Endung .truss)

fid = fopen(filename + ".truss", "w");

fprintf(fid, "%% x0\n");
fprintf(fid, "%d %d\n", size(x0));
fprintf(fid, " %7.4f", x0);
fprintf(fid, "\n%% A\n");
fprintf(fid, "%d %d\n", size(A));
fprintf(fid, " %1d", A);
fprintf(fid, "\n%% N\n");
fprintf(fid, "%d", N);
fprintf(fid, "\n%% m\n");
fprintf(fid, "%f", m);
fprintf(fid, "\n%% c\n");
fprintf(fid, "%f\n", c);

fclose(fid);