Ensuite nous déclarons deux bornes du type electrical: t1 et t2, et une branch quantity v avec deux courants i1 et i2 allant de t1 à t2.
Le t1 est considéré comme borne plus le t2 comme borne minus
subtype
voltage is real tolerance
- " tol_voltage" ;
subtype
current is real tolerance
- " tol_current" ;
nature
electrical is voltage across
current through;
terminal
t1, t2: electrical;
quantity
v across i through
t1 to t2;
|
nature
electrical_vector is array(natural range
<>) of electrical;
subnature
el_vect4 is electrical_vector(0 to
3);
terminal
t3, t4: el_vect4;
quantity
vpp across ipp through
t3 to t4;
quantity
vps across ips through
t1 to t4;
|
subnature
low_voltage is electrical
tolerance "tol_lowvoltage" across
"tol_lowcurrent" through; terminal
tx, ty: low_voltage;
quantity
vlow1 across ilow1 through
tx to ty:
|
entity
simple is
port
(terminal terin, terout:electrical);
end
simple;
|