read_file.m

Go to the documentation of this file.

#include "DynLinTimoshenkoModel.m"
namespace models{
namespace beam{


/* (Autoinserted by mtoc++)
 * This source code has been filtered by the mtoc++ executable,
 * which generates code that can be processed by the doxygen documentation tool.
 *
 * On the other hand, it can neither be interpreted by MATLAB, nor can it be compiled with a C++ compiler.
 * Except for the comments, the function bodies of your M-file functions are untouched.
 * Consequently, the FILTER_SOURCE_FILES doxygen switch (default in our Doxyfile.template) will produce
 * attached source files that are highly readable by humans.
 *
 * Additionally, links in the doxygen generated documentation to the source code of functions and class members refer to
 * the correct locations in the source code browser.
 * However, the line numbers most likely do not correspond to the line numbers in the original MATLAB source files.
 */

function [points , RO , KR , FH , mat , lager , lasten ] = models.beam.DynLinTimoshenkoModel.read_file(file) {

/*  clc; */

/*  %-----------------------------------------------------------
 * %Read Materialparameter
 * %-----------------------------------------------------------
 * mat = read_in3('MAT',4,file);
 *
 * %-----------------------------------------------------------
 * %Read Points
 * %-----------------------------------------------------------
 * points = read_in3('Knoten','Elemente',4,file);
 *
 *
 * %-----------------------------------------------------------
 * %Read Rohre
 * %-----------------------------------------------------------
 * %-----------------------------------------------------------
 * %Read RO Rohre
 * %-----------------------------------------------------------
 * RO = read_in('Elemente','Lager','RO',3,file);
 * %-----------------------------------------------------------
 * %Read KR Rohre
 * %-----------------------------------------------------------
 * KR = read_in('Elemente','Lager','KR',4,file);
 *
 *
 * %-----------------------------------------------------------
 * %Read DIR Lager
 * %-----------------------------------------------------------
 * lager = read_in('Lager','Lasten','DIR',13,file);
 *
 *
 * %-----------------------------------------------------------
 * %Read NEU Lasten
 * %-----------------------------------------------------------
 * lasten = read_in('Lasten','Ende','NEU',7,file); */

/* -----------------------------------------------------------
 *Read Materialparameter
 *----------------------------------------------------------- */
mat = read_in3(" MAT ",12,file);
mat = mat(:,2:12);

/* -----------------------------------------------------------
 *Read Points
 *----------------------------------------------------------- */
points = read_in3(" KNO ",4,file);
points = points(:,2:4);

/* ----------------------------------------------------------- */

/* Read RO Rohre
 *----------------------------------------------------------- */
RO = read_in3(" RO ",4,file);
/* ----------------------------------------------------------- */

/* Read KR Rohre
 *----------------------------------------------------------- */
KR = read_in3(" KR ",5,file);
/* ----------------------------------------------------------- */

/* Read FH Federhänger
 *----------------------------------------------------------- */
FH = read_in3(" FH ",3,file);

/* -----------------------------------------------------------
 *Read DIR Lager
 *----------------------------------------------------------- */
lager = read_in3(" DIR ",15,file);

/* -----------------------------------------------------------
 *Read NEU Lasten
 *----------------------------------------------------------- */
lasten = read_in3(" NEU ",8,file);

    function output = read_in3(keyword,count,file)

        /* -----------------------------------------------------------
         *Read_in mit Keyword über gesamtes File
         *----------------------------------------------------------- */

        fid = fopen(file);
        k = 1;

        while ~feof(fid)


            str = fscanf(fid, " %s ", 1);


            if (strcmp(str," # "))
                str_temp = fscanf(fid, " %s ", 1);
                continue;
            end


            if (strcmp(str,keyword))

                for i=1:count
                    val = fscanf(fid, " %g ", 1);

                    if isempty(val)

                        output(k) = 0;
                        k=k+1;

                        continue;
                    end

                    output(k) = val;
                    k=k+1;

                end
            end

        end


        /* output */

        fclose(fid);

        if exist(" output ")

            fprintf(" Read_in: \t Anzahl: %g \t Keyword: %s \n ",length(output)/count,keyword);
            output =  reshape(output,count,length(output)/count)^t;

        else
            output = [];
            fprintf(" Keyword %s does not exist\n ",keyword);
        end


    end
end


}
};
};