Overview
Comment:Now writes to standard output
Write the name, not the array
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 75e41f24ea5de5f453dde0ede9ccbb6692fd100edcf613be8d77f8d0a5f4ab0d
User & Date: gawthrop@users.sourceforge.net on 2000-10-17 09:55:55.000
Other Links: branch diff | manifest | tags
Context
2000-10-17
11:07:59
*** empty log message *** check-in: 03b31bcedc user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:55:55
Now writes to standard output
Write the name, not the array check-in: 75e41f24ea user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:55:21
Added logic rep check-in: 38c020f604 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Modified mttroot/mtt/bin/trans/switch_txt2m from [f9c4ead64c] to [64a1d69398].
︙
12
13
14
15
16
17
18



19
20
21
22
23
24
25

12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28








+
+
+










###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.10  2000/10/17 09:04:12  peterg
## *** empty log message ***
##
## Revision 1.9  1999/08/02 12:44:21  peterg
## zero_vector --> zero_state.
##
## Revision 1.8  1999/04/20 00:55:40  peterg
## Changed <= to < in switchopen.m
## Removed switch.m generation - redundant
##
︙
35
36
37
38
39
40
41
42

43
44
45

46
47
48
49
50
51
52

38
39
40
41
42
43
44

45
46
47

48
49
50
51
52
53
54
55








-
+


-
+








## Revision 1.5  1998/10/01 16:05:34  peterg
## Separate switch.m file for euler and implicit integration
##
###############################################################


# Find system constants
Nx=`grep "MTTNx " <$1_def.r | awk '{print $3}' | sed 's/;//'`
Nx=`mtt_getsize $1 x` # States

#Write some file headers
lang_header $1 switch m 'mttx' '[mttx]' > $1_switch.m
#lang_header $1 switch m 'mttx' '[mttx]' > $1_switch.m

#echo Creating  $1_switch.m
# Set states to zero
# awk '{
#   if ($1=="#"){
#     printf("#== Switches set element of state vector to zero ==#\n")
#   }
︙
61
62
63
64
65
66
67
68

69
70
71

72
73
74

75
76
77
78
79


80
81
82
83
84
85
86
87
88
89
90

91
92
93
94


95
96
97
98
99
100

101
102
103
104
105
106
107

64
65
66
67
68
69
70

71
72
73

74
75
76

77
78
79
80


81
82
83
84
85
86
87
88
89
90
91
92

93
94
95


96
97
98
99
100
101
102

103
104
105
106
107
108
109
110








-
+


-
+


-
+



-
-
+
+










-
+


-
-
+
+





-
+








#   printf("  end;\n");
#   printf("end;\n");

#   }
# }' Nx=$Nx < $1_switch.txt >> $1_switch.m

## Set index version
echo Creating  $1_switchopen.m
#echo Creating  $1_switchopen.m

#Write some file headers
lang_header $1 switchopen m 'mttx' '[open]' > $1_switchopen.m
#lang_header $1 switchopen m 'mttx' '[open]' > $1_switchopen.m

## Add the switching logic
cat  >> $1_switchopen.m <<EOF
#cat  >> $1_switchopen.m <<EOF

## User defined logic (from $1_logic.m)

EOF
cat $1_logic.txt >> $1_switchopen.m
#EOF
#cat $1_logic.txt >> $1_switchopen.m

# Set states to zero
awk '{
  if ($1=="#"){
    printf("#== open - boolean vector of open switches ==#\n")
    printf("[open] = zero_state(%i); # Default to not open\n", Nx);
    
  }
  else{
  printf("\n#== Switch: %s ==#\n",$1)
  printf("if (%s==0.0) \n", $1);
  printf("if (%s_logic==0.0) \n", $1);
  printf("  open(%s) = 1;\n", $2);
  printf("end;\n");
  printf("if (%s<0.0)\n",$1);
  printf("  if (mttx(%s)<0.0)\n",$2);
  printf("if (%s_logic<0.0)\n",$1);
  printf("  if (%s<0.0)\n",$1);
  printf("    open(%s) = 1;\n", $2);
  printf("  end;\n");
  printf("end;\n");

  }
}' Nx=$Nx < $1_switch.txt >> $1_switchopen.m
}' Nx=$Nx < $1_switch.txt #>> $1_switchopen.m

#echo Creating  $1_switcha.m

# Implicit integration version
#Write some file headers
# lang_header $1 switcha m 'mttAA,mttx' '[mttAA]' > $1_switcha.m
# awk '{
︙
MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]