︙ | | |
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
+
+
+
+
+
+
+
+
+
+
|
# Copyright (C) 2000 by Peter J. Gawthrop
###############################################################
## Version control history
###############################################################
## $Header$
## $Log$
## Revision 1.293.2.2 2001/02/23 03:53:53 geraint
## Minor revisions. (ode2odes.exe works on GNU/Linux and ~GNU/Irix)
##
## Revision 1.293.2.1 2001/02/22 06:41:40 geraint
## Initial merge of ode2odes.exe into main mtt.
## standalone_rep.make deleted: rules moved to mtt, variables to mttrc.
##
## Revision 1.293 2001/02/06 04:39:08 geraint
## Added _standalone.exe representation.
##
## Revision 1.292 2001/02/05 17:27:40 gawthrop
## Make sure _def.r exists before creating _state.txt
##
## Revision 1.291 2000/12/27 14:50:40 peterg
## This is the first CVS version (4.9).
## Commented out code now deleted
##
|
︙ | | |
1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
|
1800
1801
1802
1803
1804
1805
1806
1807
1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
|
+
+
+
+
+
+
+
-
-
-
+
+
-
+
+
+
+
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
fi
if [ -n "$sensitivity" ]; then
sys=`echo $1 | cut -c 2-`
sys_abg=$sys"_abg"
fi
## Check octave version
if [ `octave --version | awk -F\. '{print $2}'` ]; then
define_octave_dev="-DOCTAVE_DEV"
else
define_octave_dev=""
fi
################################
# This is the main mtt programme
################################
##echo Target is $target, Subsystem is $Subsystem, options are $mtt_switches
$MAKE -S $verbose -f - $target << EOF
# Cancel implicit rules I don't want
%.dvi: %.tex
# MTT implicit rules
## .oct files
ifneq ($2,ode2odes)
%.oct: %.cc $1_def.h $1_sympar.h $1_cr.h
echo Creating $1_$2.oct; $MKOCTFILE $<
$1_%.oct: $1_%.cc $1_def.h $1_sympar.h $1_cr.h
echo Creating $1_\$*.oct; $MKOCTFILE $1_\$*.cc
endif
.PRECIOUS: mtt_%.oct
mtt_%.oct:: mtt_%.cc
echo Compiling \$<
${MKOCTFILE} $define_octave_dev \$<
## .cc files
.PRECIOUS: %.cc # Don't let mtt delete them
ifneq ($2,ode2odes)
%.cc: %.m
mtt_m2cc.sh $1 $2 cat
endif
$1_%.cc: $1_%.m
mtt_m2cc.sh $1 \$* cat
mtt_%.cc: ${MTT_LIB}/cc/mtt_%.cc
cp ${MTT_LIB}/cc/mtt_\$*.cc mtt_\$*.cc
## .o files
.PRECIOUS: $1_%.o
$1_%.o: $1_%.cc $1_def.h $1_sympar.h $1_cr.h
echo Compiling $1_\$*.cc
${MTT_CXX} ${MTT_CXXFLAGS} ${MTT_CXXINCS} -c $< -DSTANDALONE
mtt_%.o: mtt_%.cc
echo Compiling mtt_\$*.cc
${MTT_CXX} ${MTT_CXXFLAGS} ${MTT_CXXINCS} -c $< -DSTANDALONE $define_octave_dev
# Generates code to write reduce code
$1_ode_write.r: $1_def.m
def2write_r $1 $2
ifeq ("$sensitivity","sensitivity")
ifeq ("$level","0")
|
︙ | | |
2008
2009
2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
|
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
|
-
+
-
-
-
+
-
-
-
-
+
-
-
-
+
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#SUMMARY simpar simulation information (m)
$1_simpar.m: $1_simpar.txt $1_def.r $1_sympar.txt
mtt_txt2m $1 simpar
#SUMMARY numpar numerical parameter declaration -- default (txt)
$1_numpar.txt : FORCE
$1_numpar.txt : $1_sympar.txt $1_def.r
mtt -q $1 sympar txt
mtt -q $1 def r
ifeq ($target,$1_numpar.txt)
mtt_update $1 numpar update
else
mtt_update $1 numpar
endif
#SUMMARY state numerical state declaration -- default (txt)
$1_state.txt : FORCE
$1_state.txt : $1_struc.txt $1_sympar.txt $1_def.r
mtt -q $1 struc txt
mtt -q $1 sympar txt
mtt -q $1 def r
ifeq ($target,$1_state.txt)
mtt_update $1 state update
else
mtt_update $1 state
endif
#SUMMARY input numerical state declaration -- default (txt)
$1_input.txt : FORCE
$1_input.txt : $1_struc.txt $1_sympar.txt
mtt -q $1 struc txt
mtt -q $1 sympar txt
ifeq ($target,$1_input.txt)
mtt_update $1 input update
else
mtt_update $1 input
endif
#SUMMARY logic Dynamic switch logic (txt)
$1_logic.txt : FORCE
$1_logic.txt : $1_def.r $1_struc.txt $1_sympar.txt
mtt -q $1 def r
mtt -q $1 struc txt
mtt -q $1 sympar txt
ifeq ($target,$1_logic.txt)
mtt_update $1 logic update
else
mtt_update $1 logic
endif
# Dummy target
FORCE:
ode2odes_common.m : $1_input.m $1_logic.m $1_numpar.m $1_simpar.m $1_state.m
@echo > /dev/null
ode2odes_common.cc : $1_input.cc $1_logic.cc $1_numpar.cc $1_simpar.cc $1_state.cc
@echo > /dev/null
ode2odes_common.o : $1_input.o $1_logic.o $1_numpar.o $1_simpar.o $1_state.o mtt_euler.o mtt_implicit.o
@echo > /dev/null
ode2odes_common.oct : $1_input.oct $1_logic.oct $1_numpar.oct $1_simpar.oct $1_state.oct mtt_euler.oct mtt_implicit.oct
@echo > /dev/null
ode2odes_euler.m : $1_ode.m $1_odeo.m
@echo > /dev/null
ode2odes_euler.cc : $1_ode.cc $1_odeo.cc
@echo > /dev/null
ode2odes_euler.o : $1_ode.o $1_odeo.o
@echo > /dev/null
ode2odes_euler.oct : $1_ode.oct $1_odeo.oct
@echo > /dev/null
ode2odes_implicit.m : $1_cseo.m $1_csex.m $1_smxa.m $1_smxax.m
@echo > /dev/null
ode2odes_implicit.cc : $1_cseo.cc $1_csex.cc $1_smxa.cc $1_smxax.cc
@echo > /dev/null
ode2odes_implicit.o : $1_cseo.o $1_csex.o $1_smxa.o $1_smxax.o
@echo > /dev/null
ode2odes_implicit.oct: $1_cseo.oct $1_csex.oct $1_smxa.oct $1_smxax.oct
@echo > /dev/null
#SUMMARY numpar numerical parameter declaration (m)
$1_numpar.m: $1_numpar.txt $1_sympars.txt
mtt_txt2m $1 numpar
#SUMMARY numpar numerical parameter declaration (c)
#SUMMARY numpar numerical parameter declaration (view)
|
︙ | | |
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205
2206
2207
2208
2209
2210
|
2242
2243
2244
2245
2246
2247
2248
2249
2250
2251
2252
2253
2254
2255
2256
|
-
+
|
touch $1_aliased.txt
$1_struc.tex: $1_struc.txt
struc_txt2tex $1
$1_struc.m: $1_struc.txt
struc_txt2m $1
$1_def.m: $1_def.r
def_r2m $1; matlab_tidy $1_def.m;
$1_def.h: $1_def.m
$1_def.h: $1_def.m $1_sympar.txt
def_m2h.sh $1
#SUMMARY rdae raw differential-algebraic equations (r)
#SUMMARY dae differential-algebraic equations (r)
#SUMMARY dae* differential-algebraic equations (m)
#SUMMARY dae differential-algebraic equations (tex)
#SUMMARY dae* differential-algebraic equations (view)
|
︙ | | |
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
|
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
2427
2428
2429
2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
|
-
-
-
-
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
# The main simulation programme
ifeq ($integration_method,implicit)
$1_ode2odes.m : $1_def.r $1_sympars.txt \
$1_smxa.m $1_smxax.m\
$1_simpar.m $1_numpar.m $1_state.m $1_input.m \
$1_csex.m $1_cseo.m $1_logic.m
ifeq ($using_oct,yes)
mtt $mtt_switches -q -u $1 smxa oct
mtt $mtt_switches -q -u $1 smxax oct
mtt $mtt_switches -q -u $1 simpar oct
mtt $mtt_switches -q -u $1 numpar oct
mtt $mtt_switches -q -u $1 state oct
mtt $mtt_switches -q -u $1 input oct
mtt $mtt_switches -q -u $1 csex oct
mtt $mtt_switches -q -u $1 cseo oct
mtt $mtt_switches -q -u $1 logic oct
make_ode2odes $1 cc $integration_method
echo Creating $1_ode2odes.oct
mkoctfile $1_ode2odes.cc
touch $1_ode2odes.m # Create a dummy which wont' be used
mtt $mtt_switches -q -u $1 ode2odes oct
else
make_ode2odes $1 m $integration_method
endif
endif
ifeq ($integration_method,euler)
$1_ode2odes.m : $1_def.r $1_sympars.txt\
$1_simpar.m $1_numpar.m $1_state.m $1_input.m \
$1_ode.m $1_odeo.m $1_logic.m
ifeq ($using_oct,yes)
mtt $mtt_switches -q -u $1 simpar oct
mtt $mtt_switches -q -u $1 numpar oct
mtt $mtt_switches -q -u $1 state oct
mtt $mtt_switches -q -u $1 input oct
mtt $mtt_switches -q -u $1 ode oct
mtt $mtt_switches -q -u $1 odeo oct
mtt $mtt_switches -q -u $1 logic oct
make_ode2odes $1 cc $integration_method
echo Creating $1_ode2odes.oct
mkoctfile $1_ode2odes.cc
echo "*** Warning: Shouldn't be here! Creating dummy $1_ode2odes.m"
touch $1_ode2odes.m # Create a dummy which wont' be used
mtt $mtt_switches -q -u $1 ode2odes oct
else
make_ode2odes $1 m $integration_method
endif
endif
$1_ode2odes.exe: $1_def.h $1_sympar.h\
$1_ode2odes.o ode2odes_common.o ode2odes_${integration_method}.o
echo Creating $1_ode2odes.exe
${MTT_CXX} ${MTT_CXXFLAGS} ${MTT_LDFLAGS} *.o ${MTT_CXXLIBS} -o $1_ode2odes.exe
$1_ode2odes.o: $1_ode2odes.cc ode2odes_common.o ode2odes_${integration_method}.o
echo Creating $1_ode2odes.o
${MTT_CXX} ${MTT_CXXFLAGS} ${MTT_CXXINCS} -c $1_ode2odes.cc -DSTANDALONE
$1_ode2odes.oct: $1_ode2odes.cc ode2odes_common.oct ode2odes_${integration_method}.oct
touch $1_ode2odes.m
echo Creating $1_ode2odes.oct
$MKOCTFILE $1_ode2odes.cc
$1_ode2odes.cc: $1_def.r $1_sympars.txt\
ode2odes_common.m ode2odes_common.cc\
ode2odes_${integration_method}.m ode2odes_${integration_method}.cc
touch $1_ode2odes.m
make_ode2odes $1 cc $integration_method
#Conversion of m to p to c
#SUMMARY ode ordinary differential equations (c)
#SUMMARY ode ordinary differential equations (p)
#SUMMARY state state declaration (c)
#SUMMARY state state declaration (p)
$1_simpar.p : $1_def.r $1_simpar.m
|
︙ | | |
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
|
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
|
+
+
+
+
+
|
m2dat $1_sro
1_odes.c: $1_ode.c $1_def.r $1_sympar.r
ode2odes_r2c $1
$1_sms.c: $1_sm.c $1_def.r $1_sympar.r
sm2sms_r2c $1
ifeq ($computation,octave)
ifeq ($using_oct,yes)
$1_odes.dat2: $1_ode2odes.oct
time octave_ode2odes $1
else
$1_odes.dat2: $1_ode2odes.m
time octave_ode2odes $1
endif
endif
ifeq ($computation,c)
$1_ode2odes.out: $1_ode2odes.c
echo Creating $1_odes.out
$CC $1_ode2odes.c -lp2c -lm -o $1_ode2odes.out
|
︙ | | |