#!./mcsh ### ########################################################################## ### 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: runme-graphics,v 1.3 2010/08/12 05:16:38 fetk Exp $" ### ########################################################################## ############################################################################## # File: runexample (interactive) # Purpose: Backward Euler time-stepping # Authors: Kaihsu Tai, Stephen Bond, Michael Holst # rcsid="$Id: runme-graphics,v 1.3 2010/08/12 05:16:38 fetk Exp $" ############################################################################## set ISKEY file set IFNAM mcin.m set ISNAM 0 set IHVAL unix set LMAX 1000 set LTOL 1e-10 # write/plot set FKEY 0 set GVAL 1.0 #sockm # SOCKET # qread qinit mark refine qinit mark refine qinit mark refine qinit mark refine qinit mark refine qinit mark refine qinit mark refine qinit mark refine qinit set TMETH 0 set TSTEP 0.04 set NSTEP 1000 set PTYPE 1 # SOCKET # 1=GV set PFREQ 25 set EFREQ 5 set PDETY 1 set EKEYT 2 set OSKEY inet # SOCKET # set OSFMT xdr # SOCKET # set OHVAL localhost # SOCKET # set OSNAM 0 # SOCKET # writeoff # SOCKET # pause # SOCKET # set OSNAM 1 # SOCKET # qstep