Overview
Comment: | Make a dummy function when no parameters (MTTNVar=0). |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
48861643d3006853d267c210926e145c |
User & Date: | gawthrop@users.sourceforge.net on 1996-08-16 14:27:25 |
Other Links: | branch diff | manifest | tags |
Context
1996-08-16
| ||
14:28:45 | Some debugging lines removed. check-in: 428cd92a4a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:27:25 | Make a dummy function when no parameters (MTTNVar=0). check-in: 48861643d3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:26:37 | Check and fix size of u0. check-in: 153cb373e2 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/sympar2numpar_r2m from [ec9f22fd41] to [187b2808c4].
︙ | ︙ | |||
10 11 12 13 14 15 16 17 18 19 20 21 22 23 | # Copyright (c) P.J.Gawthrop 1996 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.3 1996/08/12 20:20:59 peter ## Explicit parameters via out put list. ## Parameter conversion stuff deleted. ## ## Revision 1.2 1996/08/11 10:41:52 peter ## Fixed various bugs. ## | > > > | 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | # Copyright (c) P.J.Gawthrop 1996 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.4 1996/08/15 12:46:59 peter ## Removed a spuriuos echo. ## ## Revision 1.3 1996/08/12 20:20:59 peter ## Explicit parameters via out put list. ## Parameter conversion stuff deleted. ## ## Revision 1.2 1996/08/11 10:41:52 peter ## Fixed various bugs. ## |
︙ | ︙ | |||
46 47 48 49 50 51 52 | IF MTTNvar>0 THEN BEGIN write "function [ ...;;"; FOR i := 1:MTTNvar DO BEGIN IF i<MTTNvar THEN write MTTVar(i,1), ",..." | | | | > > > > > > > | 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | IF MTTNvar>0 THEN BEGIN write "function [ ...;;"; FOR i := 1:MTTNvar DO BEGIN IF i<MTTNvar THEN write MTTVar(i,1), ",..." ELSE write MTTVar(i,1), "] = $1_numpar;;"; END END; if MTTNVar=0 THEN write "function foo=$1_numpar;;"; write "% function [par_list] = $1_numpar;"; write "% Created by MTT"; IF MTTNvar>0 THEN BEGIN FOR i := 1:MTTNvar DO BEGIN write MTTVar(i,1), " = 1; % Default value"; END; END; if MTTNVar=0 THEN write "foo=0"; SHUT "$1_numpar.m"; |