saveTruss.m

function saveTruss(truss, filename)
% speichert eine Fachwerkstruktur
% Parameter:
%    truss     Fachwerk-Struktur
%    filename  Name der Datei (ohne Endung .truss)

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

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

fclose(fid);