wiki.davidhaberthuer.ch - acinarsize
https://wiki.xn--davidhaberthr-7ob.ch/
2026-04-21T10:13:18+00:00wiki.davidhaberthuer.ch
https://wiki.xn--davidhaberthr-7ob.ch/
https://wiki.xn--davidhaberthr-7ob.ch/_media/wiki/dokuwiki.svgtext/html2020-06-10T19:42:22+00:00Anonymous (anonymous@undisclosed.example.com)dicomreader
https://wiki.xn--davidhaberthr-7ob.ch/acinarsize/dicomreader?rev=1591818142&do=diff
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Reads DICOM-Files exported with
% p:\doc\MeVisLab-Networks\2011\ExtractAcinusAndExport.mlab and save them
% as JPG image sequences to further peruse with the STEPanizer.com
% First version: 20.06.2011, reading and displaying the DICOM-file
% 28.07.2011: Now reads ALL the DICOM-Files in the directory selected on
% Line 16 and converts them in one batch.
clc
clear all
close all
%% 60A -
%% 60B - 2010c
% 60C - 2010a
% 60D …text/html2020-06-10T19:42:22+00:00Anonymous (anonymous@undisclosed.example.com)disectorerklaerung
https://wiki.xn--davidhaberthr-7ob.ch/acinarsize/disectorerklaerung?rev=1591818142&do=diff
\documentclass{article}
\usepackage{tikz,pgfplots}
\usepackage[pdftex,active,tightpage]{preview}
\usepackage{underscore}
\begin{document}
\begin{preview}
%%%%%%%%%%%%
\LARGE
\def\x{5}
\def\spacer{0.25}
\def\disector{2}
\def\slicedistance{8}
\begin{tikzpicture}
\clip (-3,0) rectangle (\x+7,28.25);
\foreach \y in {1,...,28}
{\draw [ultra thick] (0,\y) -- (\x,\y);}
\foreach \y in {1,...,25}
{\node at (-1,\y) {Slice \y};}
\draw [ultra thick,dotted] (-1,25.5) -- (-1,29);
\foreach \y in {1,2…text/html2020-06-10T19:42:22+00:00Anonymous (anonymous@undisclosed.example.com)volumentabellierer
https://wiki.xn--davidhaberthr-7ob.ch/acinarsize/volumentabellierer?rev=1591818142&do=diff
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Reads DICOM-Files of the acini from each day 60-sample and extracts their
% volume to an XLS-File
clc
clear all
close all
SamplePath{1} = 'd:\SLS\2010c\R108C60B_B1_mrg\';
SamplePath{2} = 'd:\SLS\2010a\mrg\R108C60C_B1-mrg\';
SamplePath{3} = 'd:\SLS\2009f\mrg\R108C60Dt-mrg\';
SamplePath{4} = 'd:\SLS\2009f\mrg\R108C60Et-mrg\';
%% Iterate through Samples
for SampleCounter=1:size(SamplePath,2)
disp([ 'Counting DICOM-File…