1#!./mcsh
2
3### ##########################################################################
4### MC = < Manifold Code >
5### Copyright (C) 1994-- Michael Holst
6###
7### This library is free software; you can redistribute it and/or
8### modify it under the terms of the GNU Lesser General Public
9### License as published by the Free Software Foundation; either
10### version 2.1 of the License, or (at your option) any later version.
11###
12### This library is distributed in the hope that it will be useful,
13### but WITHOUT ANY WARRANTY; without even the implied warranty of
14### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15### Lesser General Public License for more details.
16###
17### You should have received a copy of the GNU Lesser General Public
18### License along with this library; if not, write to the Free Software
19### Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20###
21### rcsid="$Id: runme-graphics,v 1.3 2010/08/12 05:16:38 fetk Exp $"
22### ##########################################################################
23
24##############################################################################
25# File:     runexample (interactive)
26# Purpose:  Backward Euler time-stepping
27# Authors:  Kaihsu Tai, Stephen Bond, Michael Holst
28# rcsid="$Id: runme-graphics,v 1.3 2010/08/12 05:16:38 fetk Exp $"
29##############################################################################
30
31set ISKEY file
32set IFNAM mcin.m
33set ISNAM 0
34set IHVAL unix
35
36set LMAX 1000
37set LTOL 1e-10
38
39# write/plot
40set FKEY 0
41set GVAL 1.0
42
43#sockm # SOCKET #
44
45qread
46qinit
47mark
48refine
49qinit
50
51mark
52refine
53qinit
54
55mark
56refine
57qinit
58
59mark
60refine
61qinit
62
63mark
64refine
65qinit
66
67mark
68refine
69qinit
70
71mark
72refine
73qinit
74
75mark
76refine
77qinit
78
79set TMETH 0
80set TSTEP 0.04
81set NSTEP 1000
82set PTYPE 1         # SOCKET # 1=GV
83set PFREQ 25
84set EFREQ 5
85set PDETY 1
86set EKEYT 2
87
88set OSKEY inet      # SOCKET #
89set OSFMT xdr       # SOCKET #
90set OHVAL localhost # SOCKET #
91
92set OSNAM 0         # SOCKET #
93writeoff            # SOCKET #
94pause               # SOCKET #
95
96set OSNAM 1         # SOCKET #
97
98qstep
99