# 3.13.damping4.draw # # Praat script that creates figure 3.13 of # Boersma (1998): Functional Phonology. # http://fonsg3.hum.uva.nl/paul/ # Erase all Times 10 right = 5 Viewport... 0 2.9 0 3 Create Sound... curve 0 right 100 0 # Exact: Formula... exp(-x) Draw... 0 right -1.5 1 no # Implicit: Formula... 1/(1+x) Draw... 0 right -1.5 1 no # Explicit: Draw line... 0 1 2.5 -1.5 # 2nd-order: Formula... (1-1/2*x) / (1+1/2*x) Draw... 0 right -1.5 1 no Draw inner box Marks left every... 1 1 yes yes yes Marks bottom every... 1 1 yes yes no Text bottom... yes %R\De%t (damping per sample) One mark right... 0 no yes no exact One mark right... 0.16667 no yes no implicit One mark right... -0.42857 no yes no 2nd-order Text special... 1.5 Centre -0.5 Bottom Times 10 1;-1 explicit Viewport... 0.2 2.9 0 3 Text left... yes Multiplication constant Viewport... 3.1 5.8 0 3 Text left... yes Decay time (samples) Viewport... 2.9 5.8 0 3 Remove Create Sound... curve 0.2 5 1000 0 # Exact: Formula... 1/x Draw clipped... 0 5 -4 4 no # Implicit: Formula... 1/ln(1+x) Draw clipped... 0 5 -4 4 no # 2nd-order: Formula... 1/ln(abs((1+1/2*x)/(1-1/2*x))) Draw clipped... 0 5 -4 4 no Remove # Explicit: Create Sound... expl1 0.2 1.95 1000 0 Formula... -1/ln(abs(1-x)) Create Sound... expl2 2.05 5 1000 0 Formula... -1/ln(abs(1-x)) plus Sound expl1 Draw clipped... 0 5 -4 4 no Draw line... 1 0 1 0.1 Draw line... 2 0 2 0.1 Draw inner box Marks left every... 1 4 yes yes yes Marks bottom every... 1 1 yes yes no Text bottom... yes %R\De%t (damping per sample) One mark right... 0.2 no yes no exact One mark right... 0.55811 no yes no implicit One mark right... 1.18022 no yes no 2nd-order One mark right... -0.72135 no yes no explicit Text special... 1.7 Centre 2.8 Top Times 10 83 explicit Viewport... 0.2 6 0.3 3