path: root/Master/texmf-dist/doc/latex/pstricks-examples/36-00-51.ltx

%% 
%%  Ein Beispiel der DANTE-Edition
%% 
%% 
%%  Copyright (C) 2010 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{352.81416pt}
\setlength\parindent{0pt}
\StartShownPreambleCommands
\usepackage{pst-plot}
\begin{filecontents*}{data1.dat}
 0.000   60.00
 0.005   60.45
 0.010    69.32
 0.015    80.69
 0.020    92.08
 0.025    101.43
 0.030    108.21
 0.035    114.24
 0.040    121.51
 0.045    128.15
 0.050    132.03
 0.055    133.89
 0.060    134.52
 0.065    134.19
 0.070    133.37
 0.075    132.32
 0.080    131.01
 0.085    129.56
 0.090    128.41
 0.095    127.85
 0.100    127.83
 0.105    128.11
 0.110    128.54
 0.115    129.06
 0.120    129.45
 0.125    129.52
 0.130    129.33
 0.135    129.00
 0.140    128.57
 0.145    128.20
 0.150    128.14
 0.155    128.52
 0.160    129.27
 0.165    130.16
 0.170    130.95
 0.175    131.55
 0.180    132.09
 0.185    132.69
 0.190    133.41
 0.195    134.25
 0.200    135.20
 0.205    136.21
 0.210    137.29
 0.215    138.43
 0.220    139.62
 0.225    140.83
 0.230    142.09
 0.235    143.37
 0.240    144.61
 0.245    145.77
 0.250    146.92
 0.255    148.09
 0.260    149.21
 0.265    150.20
 0.270    151.12
 0.275    152.02
 0.280    152.93
 0.285    153.83
 0.290    154.63
 0.295    155.04
 0.300    154.51
 0.305    152.27
 0.310    147.56
 0.315    140.13
 0.320    130.49
 0.325    119.68
 0.330    108.74
 0.335    98.50
 0.340    89.38
 0.345    81.49
 0.350    74.74
 0.355    69.10
 0.360    65.40
 0.365    65.27
 0.370    67.47
 0.375    69.10
 0.380    71.80
 0.385    79.17
 0.390    90.26
 0.395    101.19
 0.400    109.08
 0.405    113.10
 0.410    113.81
 0.415    112.47
 0.420    110.24
 0.425    107.98
 0.430    106.14
 0.435    104.89
 0.440    104.21
 0.445    103.89
 0.450    103.71
 0.455    103.50
 0.460    103.18
 0.465    102.74
 0.470    102.15
 0.475    101.44
 0.480    100.67
 0.485    99.91
 0.490    99.23
 0.495    98.63
 0.500    98.06
 0.505    97.50
 0.510    96.98
 0.515    96.50
 0.520    96.02
 0.525    95.48
 0.530    94.84
 0.535    94.16
 0.540    93.51
 0.545    92.97
 0.550    92.53
 0.555    92.11
 0.560    91.63
 0.565    91.08
 0.570    90.49
 0.575    89.90
 0.580    89.34
 0.585    88.79
 0.590    88.24
 0.595    87.70
 0.600    87.18
 0.605    86.66
 0.610    86.14
 0.615    85.63
 0.620    85.12
 0.625    84.64
 0.630    84.18
 0.635    83.73
 0.640    83.27
 0.645    82.76
 0.650    82.20
 0.655    81.62
 0.660    81.04
 0.665    80.48
 0.670    79.96
 0.675    79.48
 0.680    79.03
 0.685    78.61
 0.690    78.20
 0.695    77.76
 0.700    77.30
 0.705    76.81
 0.710    76.31
 0.715    75.83
 0.720    75.35
 0.725    74.86
 0.730    74.38
 0.735    73.90
 0.740    73.43
 0.745    72.98
 0.750    72.54
 0.755    72.13
 0.760    71.72
 0.765    71.30
 0.770    70.88
 0.775    70.44
 0.780    69.98
 0.785    69.48
 0.790    68.98
 0.795    68.50
 0.800    68.03
 0.805    67.60
 0.810    67.21
 0.815    66.82
 0.820    66.42
 0.825    66.00
 0.830    65.56
 0.835    65.12
 0.840    64.70
 0.845    64.29
 0.850    63.90
 0.855    63.52
 0.860    63.15
 0.865    62.77
 0.870    62.37
 0.875    61.96
 0.880    61.55
 0.885    61.16
 0.890    60.78
 0.895    60.41
 0.900    60.01
 0.905    59.62
 0.910    59.22
 0.915    59.00
 0.920    58.63
 0.925    58.26
 0.930    57.91
 0.935    57.55
 0.940    57.17
 0.945    56.76
 0.950    56.36
 0.955    55.97
 0.960    55.60
 0.965    55.23
 0.970    54.87
 0.975    54.52
 0.980    54.17
 0.985    53.84
 0.990    53.55
 0.995    53.67
 1.000    55.42
\end{filecontents*}
\begin{filecontents*}{data22.dat}
 0.000   47.00
 0.005   54.97
 0.010   65.26
 0.015   78.15
 0.020   92.81
 0.025   108.47
 0.030   124.72
 0.035   141.19
 0.040   156.96
 0.045   170.75
 0.050   181.33
 0.055   187.89
 0.060   190.21
 0.065   188.68
 0.070   184.12
 0.075   177.62
 0.080   170.31
 0.085   163.16
 0.090   156.91
 0.095   152.00
 0.100   148.64
 0.105   146.79
 0.110   146.21
 0.115   146.54
 0.120   147.39
 0.125   148.41
 0.130   149.38
 0.135   150.17
 0.140   150.76
 0.145   151.16
 0.150   151.40
 0.155   151.52
 0.160   151.54
 0.165   151.46
 0.170   151.28
 0.175   151.07
 0.180   150.90
 0.185   150.87
 0.190   151.04
 0.195   151.47
 0.200   152.18
 0.205   153.14
 0.210   154.31
 0.215   155.65
 0.220   157.12
 0.225   158.71
 0.230   160.40
 0.235   162.15
 0.240   163.94
 0.245   165.70
 0.250   167.33
 0.255   168.75
 0.260   169.93
 0.265   170.88
 0.270   171.64
 0.275   172.26
 0.280   172.81
 0.285   173.26
 0.290   173.47
 0.295   173.06
 0.300   171.43
 0.305   167.86
 0.310   161.74
 0.315   152.82
 0.320   141.27
 0.325   127.66
 0.330   112.85
 0.335   97.77
 0.340   83.30
 0.345   70.10
 0.350   58.53
 0.355   48.48
 0.360   39.37
 0.365   30.49
 0.370   21.56
 0.375   12.99
 0.380   5.61
 0.385   0.19
 0.390   -3.07
 0.395   -4.45
 0.400   -4.46
 0.405   -3.47
 0.410   -1.71
 0.415   0.58
 0.420   3.14
 0.425   5.67
 0.430   7.97
 0.435   10.01
 0.440   11.83
 0.445   13.41
 0.450   14.66
 0.455   15.56
 0.460   16.16
 0.465   16.57
 0.470   16.90
 0.475   17.21
 0.480   17.52
 0.485   17.87
 0.490   18.32
 0.495   18.90
 0.500   19.61
 0.505   20.34
 0.510   21.04
 0.515   21.66
 0.520   22.22
 0.525   22.73
 0.530   23.16
 0.535   23.48
 0.540   23.69
 0.545   23.82
 0.550   23.91
 0.555   23.99
 0.560   24.05
 0.565   24.08
 0.570   24.10
 0.575   24.13
 0.580   24.18
 0.585   24.26
 0.590   24.38
 0.595   24.58
 0.600   24.90
 0.605   25.34
 0.610   25.92
 0.615   26.60
 0.620   27.36
 0.625   28.18
 0.630   29.01
 0.635   29.85
 0.640   30.71
 0.645   31.58
 0.650   32.45
 0.655   33.30
 0.660   34.11
 0.665   34.82
 0.670   35.37
 0.675   35.74
 0.680   35.90
 0.685   35.88
 0.690   35.72
 0.695   35.47
 0.700   35.17
 0.705   34.85
 0.710   34.54
 0.715   34.29
 0.720   34.13
 0.725   34.09
 0.730   34.15
 0.735   34.31
 0.740   34.56
 0.745   34.88
 0.750   35.24
 0.755   35.60
 0.760   35.95
 0.765   36.28
 0.770   36.60
 0.775   36.91
 0.780   37.22
 0.785   37.51
 0.790   37.74
 0.795   37.90
 0.800   37.97
 0.805   37.96
 0.810   37.90
 0.815   37.79
 0.820   37.66
 0.825   37.51
 0.830   37.36
 0.835   37.23
 0.840   37.13
 0.845   37.08
 0.850   37.09
 0.855   37.18
 0.860   37.35
 0.865   37.58
 0.870   37.84
 0.875   38.11
 0.880   38.38
 0.885   38.63
 0.890   38.86
 0.895   39.07
 0.900   39.26
 0.905   39.45
 0.910   39.62
 0.915   39.75
 0.920   39.86
 0.925   39.93
 0.930   39.95
 0.935   39.93
 0.940   39.86
 0.945   39.78
 0.950   39.67
 0.955   39.55
 0.960   39.45
 0.965   39.39
 0.970   39.37
 0.975   39.41
 0.980   39.54
 0.985   39.91
 0.990   40.91
 0.995   43.22
 1.000   47.68
 \end{filecontents*}
\begin{filecontents*}{data3.dat}
 0.000  -2.50
 0.005  -1.99
 0.010  -0.30
 0.015  4.13
 0.020  13.38
 0.025  28.98
 0.030  50.90
 0.035  77.54
 0.040  107.38
 0.045  140.64
 0.050  178.40
 0.055  219.83
 0.060  261.04
 0.065  296.91
 0.070  324.44
 0.075  343.62
 0.080  355.50
 0.085  361.69
 0.090  365.03
 0.095  368.62
 0.100  373.63
 0.105  378.46
 0.110  380.61
 0.115  379.02
 0.120  373.82
 0.125  365.64
 0.130  356.65
 0.135  350.11
 0.140  346.68
 0.145  342.68
 0.150  333.46
 0.155  318.08
 0.160  300.16
 0.165  284.50
 0.170  274.03
 0.175  269.79
 0.180  271.15
 0.185  275.29
 0.190  278.41
 0.195  278.36
 0.200  276.25
 0.205  274.57
 0.210  273.76
 0.215  271.64
 0.220  266.67
 0.225  259.84
 0.230  253.63
 0.235  249.81
 0.240  248.42
 0.245  248.77
 0.250  250.60
 0.255  254.21
 0.260  259.40
 0.265  264.37
 0.270  266.65
 0.275  265.49
 0.280  262.59
 0.285  260.82
 0.290  261.87
 0.295  264.55
 0.300  265.84
 0.305  263.56
 0.310  257.47
 0.315  248.74
 0.320  238.67
 0.325  227.49
 0.330  214.46
 0.335  198.64
 0.340  179.05
 0.345  154.73
 0.350  125.23
 0.355  91.14
 0.360  53.95
 0.365  15.45
 0.370  -21.37
 0.375  -49.99
 0.380  -62.54
 0.385  -56.58
 0.390  -37.83
 0.395  -15.76
 0.400  1.86
 0.405  11.54
 0.410  13.66
 0.415  10.78
 0.420  5.87
 0.425  1.24
 0.430  -1.95
 0.435  -3.54
 0.440  -3.98
 0.445  -3.80
 0.450  -3.43
 0.455  -3.16
 0.460  -3.09
 0.465  -3.21
 0.470  -3.44
 0.475  -3.76
 0.480  -4.13
 0.485  -4.46
 0.490  -4.74
 0.495  -4.99
 0.500  -5.30
 0.505  -5.66
 0.510  -6.05
 0.515  -6.44
 0.520  -6.73
 0.525  -6.81
 0.530  -6.67
 0.535  -6.38
 0.540  -6.08
 0.545  -5.83
 0.550  -5.66
 0.555  -5.56
 0.560  -5.49
 0.565  -5.45
 0.570  -5.46
 0.575  -5.51
 0.580  -5.61
 0.585  -5.73
 0.590  -5.81
 0.595  -5.84
 0.600  -5.83
 0.605  -5.82
 0.610  -5.84
 0.615  -5.87
 0.620  -5.91
 0.625  -5.98
 0.630  -6.07
 0.635  -6.17
 0.640  -6.30
 0.645  -6.41
 0.650  -6.43
 0.655  -6.30
 0.660  -6.01
 0.665  -5.55
 0.670  -4.96
 0.675  -4.37
 0.680  -3.94
 0.685  -3.79
 0.690  -3.94
 0.695  -4.33
 0.700  -4.83
 0.705  -5.31
 0.710  -5.65
 0.715  -5.85
 0.720  -5.95
 0.725  -6.02
 0.730  -6.10
 0.735  -6.19
 0.740  -6.29
 0.745  -6.37
 0.750  -6.40
 0.755  -6.32
 0.760  -6.07
 0.765  -5.64
 0.770  -5.08
 0.775  -4.47
 0.780  -3.84
 0.785  -3.19
 0.790  -2.58
 0.795  -2.11
 0.800  -1.84
 0.805  -1.78
 0.810  -1.90
 0.815  -2.15
 0.820  -2.45
 0.825  -2.71
 0.830  -2.86
 0.835  -2.91
 0.840  -2.96
 0.845  -3.02
 0.850  -3.10
 0.855  -3.20
 0.860  -3.36
 0.865  -3.52
 0.870  -3.63
 0.875  -3.64
 0.880  -3.52
 0.885  -3.30
 0.890  -3.04
 0.895  -2.80
 0.900  -2.59
 0.905  -2.42
 0.910  -2.27
 0.915  -0.53
 0.920  -0.16
 0.925  0.08
 0.930  0.13
 0.935  -0.05
 0.940  -0.41
 0.945  -0.90
 0.950  -1.44
 0.955  -1.99
 0.960  -2.46
 0.965  -2.79
 0.970  -2.98
 0.975  -3.08
 0.980  -3.13
 0.985  -3.13
 0.990  -3.05
 0.995  -2.86
 1.000  -2.57
\end{filecontents*}
\begin{filecontents*}{data4.dat}
 0.760   461.86
 0.765   346.36
 0.770   235.89
 0.775   150.02
 0.780   112.39
 0.785   130.25
 0.790   186.50
 0.795   252.71
 0.800   305.59
 0.805   334.62
 0.810   340.98
 0.815   332.33
 0.820   317.61
 0.825   303.71
 0.830   294.15
 0.835   289.37
 0.840   288.06
 0.845   288.59
 0.850   289.70
 0.855   290.53
 0.860   290.72
 0.865   290.37
 0.870   289.68
 0.875   288.71
 0.880   287.61
 0.885   286.61
 0.890   285.79
 0.895   285.02
 0.900   284.11
 0.905   283.03
 0.910   281.84
 0.915   280.68
 0.920   279.81
 0.925   279.56
 0.930   279.99
 0.935   280.85
 0.940   281.77
 0.945   282.52
 0.950   283.02
 0.955   283.33
 0.960   283.54
 0.965   283.65
 0.970   283.63
 0.975   283.46
 0.980   283.17
 0.985   282.82
 0.990   282.56
 0.995   282.47
 1.000   282.51
 1.005   282.53
 1.010   282.48
 1.015   282.40
 1.020   282.26
 1.025   282.05
 1.030   281.78
 1.035   281.48
 1.040   281.10
 1.045   280.77
 1.050   280.71
 1.055   281.10
 1.060   281.97
 1.065   283.35
 1.070   285.12
 1.075   286.88
 1.080   288.17
 1.085   288.63
 1.090   288.18
 1.095   287.02
 1.100   285.51
 1.105   284.08
 1.110   283.05
 1.115   282.46
 1.120   282.16
 1.125   281.94
 1.130   281.71
 1.135   281.44
 1.140   281.14
 1.145   280.88
 1.150   280.79
 1.155   281.04
 1.160   281.80
 1.165   283.09
 1.170   284.75
 1.175   286.59
 1.180   288.49
 1.185   290.42
 1.190   292.25
 1.195   293.67
 1.200   294.48
\end{filecontents*}

\StopShownPreambleCommands
\begin{document}
\def\pshlabel#1{\scriptsize\sffamily #1}
\def\psvlabel#1{\scriptsize\sffamily #1}
\psset{xunit=7.5cm, yunit=0.03cm}
\begin{pspicture}[](-0.1,-40)(1.5,240.0)
    \psaxes[Dx=0.25,Dy=40,tickstyle=bottom]{->}(0,0)(0,-20)(1.4,220)
    \rput(-0.1,90){\psrotateleft{\small\sffamily pressure [mmHg]}}
    \psline[linestyle=dashed,linewidth=1.5pt,linecolor=red](0.6,120)(0.8,120)
    \rput[l](0.85,120){\small\sffamily Aorta}
    \psline[linewidth=1.5pt,linecolor=blue](0.6,145)(0.8,145)
    \rput[l](0.85,145){\small\sffamily LV}
    \uput[0](1.4,0){\textsf{t [s]}}
    \psdot*(0.4,0.04)
    \uput[90](0.4,0){$t_0$}
    \psdot*(1.307,0.04)
    \uput[90](1.307,0){$0.37\cdot T_p+t_0$}
    \uput[90](0,220){\footnotesize{\textsf{v [m/s]}}}
    \fileplot[linewidth=1.5pt,linestyle=dashed,linecolor=red]{data1.dat}
    \fileplot[linewidth=1.5pt,linecolor=blue]{data22.dat}
\end{pspicture}

\psset{xunit=7.5cm,yunit=0.01cm}
\begin{pspicture}[](-0.1,-100)(1.5,550.0)
    \psaxes[Dx=0.25,Dy=100,tickstyle=bottom]{->}(0,0)(0,-100)(1.4,520)
    \uput[0](1.4,0){\textsf{t [s]}}
    \rput(-0.1,200){\psrotateleft{\small\sffamily flow [ml/s]}}
    \psline[linestyle=dashed,linewidth=.01](0.02,-100.0)(0.02,1300)
    \psline[linestyle=dashed,linewidth=.01](0.3625,-100.0)(0.3625,1300)
    \psline[linestyle=dashed,linewidth=.01]{<->}(0.02,1290)(0.3625,1290)
    \rput(0.19,1320){\footnotesize\sffamily forward flow}
    \rput(0.19,1260){\footnotesize\sffamily (systole)}
    \psline[linestyle=dashed,linewidth=.01]{<->}(0.3625,1290)(1,1290)
    \rput(0.68,1320){\footnotesize\sffamily regurgitation}
    \rput(0.68,1260){\footnotesize\sffamily (diastole)}
    \fileplot[linewidth=1.5pt,linecolor=blue]{data3.dat}
    \pscustom[linewidth=1pt,linecolor=blue,liftpen=1]{%
            \fileplot{data4.dat}
            \pscurve(1.20,300)(1,300)(0.760,300)
            \fill[fillstyle=hlines,fillcolor=gray,hatchwidth=0.4pt,hatchsep=1.5pt]
    }
    \psline[linewidth=0.5pt]{<-}(0.4,20)(0.7,300)
    \pscurve[linewidth=0.5pt](1.20,300)(1,300)(0.760,300)
    \psline[linewidth=.01]{->}(1,290)(1.1,440)
    \rput(1.1,470){\footnotesize\sffamily leak volume}
        \psline[linewidth=.01]{->}(0.78,200)(1,100)
    \rput[l](1.02,100){\footnotesize\sffamily closing volume}
\end{pspicture}
\end{document}