26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
## elementts to ## default unity output. ## ## Revision 1.2
## 1996/09/10 11:29:47 peter ## Removed causality & port info when no
## constitutive relationship. ## ## Revision 1.1 1996/09/10 11:11:11peter
## ## Initial revision ##
## ###############################################################
inbonds
incauses
nports = length(inbonds)
## Check some arguments
if length(incauses) ~= nports
error("equation.m: incauses inconsistent with inbonds");
endif
|
<
<
<
|
|
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
## elementts to ## default unity output. ## ## Revision 1.2
## 1996/09/10 11:29:47 peter ## Removed causality & port info when no
## constitutive relationship. ## ## Revision 1.1 1996/09/10 11:11:11peter
## ## Initial revision ##
## ###############################################################
## Find the number of inports
nports = length(inbonds);
## Check some arguments
if length(incauses) ~= nports
error("equation.m: incauses inconsistent with inbonds");
endif
|