### ##########################################################################
### MC = < Manifold Code >
### Copyright (C) 1994-- Michael Holst
###
### This library is free software; you can redistribute it and/or
### modify it under the terms of the GNU Lesser General Public
### License as published by the Free Software Foundation; either
### version 2.1 of the License, or (at your option) any later version.
###
### This library is distributed in the hope that it will be useful,
### but WITHOUT ANY WARRANTY; without even the implied warranty of
### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
### Lesser General Public License for more details.
###
### You should have received a copy of the GNU Lesser General Public
### License along with this library; if not, write to the Free Software
### Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
###
### rcsid="$Id: x,v 1.9 2010/08/12 05:17:47 fetk Exp $"
### ##########################################################################

##############################################################################
# File:     r.mcsh (interactive)
#
# Purpose:  Adaptive refinement test MC script (deformation).
#
# rcsid="$Id: x,v 1.9 2010/08/12 05:17:47 fetk Exp $"
##############################################################################

io

# basic setup
set FKEY 0
set GVAL 1.0

# adaptivity
set ETOL 5.0e-2
set EKEY 1
set AKEY 2
set RKEY 0
set RCOL -1

# solver
set NKEY 0
set LKEY 2
set PREC 2
set GUES 0
set LMAX 50
set NMAX 20
set LTOL 1.0e-7

# write/plot
set FKEY 0
set GVAL 1.0

##############################################################################
# initialization
##############################################################################

# read-plotmesh-solve-plotsol-pause
read
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

##############################################################################
# the rest is "estimate-refine-plotmesh-solve-plotsol-pause"
##############################################################################

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

# estimate-refine-plotmesh-solve-plotsol-pause
estimate
refine
set OSNAM 0
writeoff
lsolve
set OSNAM 1
writeoffdef
pause

