#
# AUTO-07p commands for solving TW with BE 
# (refer to Appendix F.2)
#
@cl
@dl be
#
# set f=1, Re=2.0667 and Ka=3375 in be.f
# compute gamma_1 family from HP:
@r be
@sv g2
#
# set f=2 in be.f and compute the first harmonic from HP2:
@r be HP2
@sv be
#
# compute gamma_2 family from the PD (IRS=2)
@r be PD
@sv g1
#
# put the two curves together
@dl g12
@ap g1 g12
@ap g2 g12
#
# for the blow-up boundary:
# set f = 1, Ka = 2950 and Re = 3 in be.f
@dl be
@r be
@sv be
#
#prepare the fold solution (LAB=6)
@r be TP0
@ap be
@r be TP
