Overview
Comment: | Removed redundant final column |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
9509f928eb290ca3d44e36ed1e0e3b71 |
User & Date: | gawthrop@users.sourceforge.net on 2003-03-13 15:10:26 |
Other Links: | branch diff | manifest | tags |
Context
2003-03-13
| ||
15:19:04 | Now uses __ to delimit subsystems in names. check-in: 2cf0c97f97 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
15:10:26 | Removed redundant final column check-in: 9509f928eb user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
14:56:45 | Equation generatation for sorted equations check-in: 74b9225cb0 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/m/cbg2ese.m from [ee9337ddf4] to [e931fd8820].
︙ | ︙ | |||
19 20 21 22 23 24 25 26 27 28 29 30 31 32 | ## Structure matrix [states,nonstates,inputs,outputs,zero_outputs] ## ############################################################### ## ## Version control history ## ############################################################### ## ## $Id$ ## ## $Log$ ## ## Revision 1.46 2002/08/20 15:51:17 gawthrop ## ## Update to work with ident DIY rep ## ## ## ## Revision 1.45 2002/05/22 09:15:03 gawthrop ## ## Non-repetitive components no longer use _1 in names ## ## ## ## Revision 1.44 2001/11/11 18:12:30 geraint | > > > | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | ## Structure matrix [states,nonstates,inputs,outputs,zero_outputs] ## ############################################################### ## ## Version control history ## ############################################################### ## ## $Id$ ## ## $Log$ ## ## Revision 1.47 2003/02/28 09:12:17 gawthrop ## ## Two more columns in _stuc.txt: causality and subsystem name ## ## ## ## Revision 1.46 2002/08/20 15:51:17 gawthrop ## ## Update to work with ident DIY rep ## ## ## ## Revision 1.45 2002/05/22 09:15:03 gawthrop ## ## Non-repetitive components no longer use _1 in names ## ## ## ## Revision 1.44 2001/11/11 18:12:30 geraint |
︙ | ︙ | |||
176 177 178 179 180 181 182 183 184 185 186 187 188 189 | ## ## ## ############################################################# ## disp("cbg2ese"); ## system_name, system_type, full_name, repetition pc = "%"; unit_error = "Component %s connects inconsistent ports with units %s and %s" unit_info = "Component %s connects ports with units %s and %s" ## Set up the names corresponding to the structure matrix. structure_name = [ "state ", "nonstate ", | > > | 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 | ## ## ## ############################################################# ## disp("cbg2ese"); ## system_name, system_type, full_name, repetition pc = "%"; sub_delim = "__"; # Subsystem delimiter unit_error = "Component %s connects inconsistent ports with units %s and %s" unit_info = "Component %s connects ports with units %s and %s" ## Set up the names corresponding to the structure matrix. structure_name = [ "state ", "nonstate ", |
︙ | ︙ | |||
198 199 200 201 202 203 204 | ## Create the (full) system name if at_top_level full_name = system_name; full_name_repetition = system_name; system_type = system_name; else | | | | | 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 | ## Create the (full) system name if at_top_level full_name = system_name; full_name_repetition = system_name; system_type = system_name; else full_name = [full_name, sub_delim, system_name]; if (repetition>1) full_name_repetition = [full_name_repetition, \ sub_delim, system_name, sub_delim, \ num2str(repetition)]; else full_name_repetition = [full_name_repetition, \ sub_delim, system_name]; endif end; cbg_name = [full_name, "_cbg"]; |
︙ | ︙ | |||
388 389 390 391 392 393 394 | ## Link up the bonds for this compound component fprintf(ese_file, ... "\n\t%s Equations linking up subsystem %s (%s)\n\n", ... pc, comp_name, subsystem.type); if (k>1) | | | | | | 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 | ## Link up the bonds for this compound component fprintf(ese_file, ... "\n\t%s Equations linking up subsystem %s (%s)\n\n", ... pc, comp_name, subsystem.type); if (k>1) name_comp_name = sprintf("%s%s%s_%d", ... full_name_repetition, sub_delim, \ comp_name, k); else name_comp_name = sprintf("%s%s%s", ... full_name_repetition, sub_delim, \ comp_name); endif printf("\n\t%s Equations linking up subsystem %s (%s)\n\n",\ pc, comp_name, subsystem.type); |
︙ | ︙ | |||
528 529 530 531 532 533 534 | which_indices = getindex(structure_change,1); which_indices = which_indices(:,2)'; for which_index=which_indices value = structure(which_index); value_change=value-old_structure(which_index); for k=1:value_change fprintf(structure_file, ... | | | | | 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 | which_indices = getindex(structure_change,1); which_indices = which_indices(:,2)'; for which_index=which_indices value = structure(which_index); value_change=value-old_structure(which_index); for k=1:value_change fprintf(structure_file, ... "%s\t%i\t%s\t%s%s%s\t%i\t%s\n", ... structure_name(which_index,:), value-k+1, ... comp_name, full_name_repetition, sub_delim, comp_name, \ repetition, cause2name(-comp_bonds(1))); endfor; endfor; endif; endif endfor fflush (structure_file); |
︙ | ︙ |