0

1

2

3

Manometer

p [bar]

Volumen

Kurve darstellen

p * V = const

j = 0.8 (slider from 0.8 to 6, step 0.0010)
V: 6.8 - j
p: 5.0 / V
v = 2.3
P: (2.0 * cos(-(p + v)), 2.0 * sin(-(p + v)))
A = Intersect(xAxis, yAxis)
u = Vector(A, P)
Q = (-4, 0.2)
R = (-4, -0.2)
C = (-2.65, -0.2)
a = Segment(R, C)
B = (-2.65, 0.2)
b = Segment(Q, B)
S: (-(4.0 + V), 3.0)
T: (-(4.0 + V), -(3.0))
U: (-(3.5 + V), 3.0)
W: (-(3.5 + V), -(3.0))
Vieleck1, s, u_1, w, t = Polygon(S, U, W, T)
X = (-11, 3)
Y = (-10.98, -3)
Z = (-4, 3)
O = (-3.98, -3)
c = Segment(X, Z)
d = Segment(Z, Q)
e = Segment(R, O)
f = Segment(Y, O)
Vieleck2, u_2, z, o, w_1 = Polygon(U, Z, O, W)
Vieleck3, q, b_1, c_1, r = Polygon(Q, B, C, R)
D: (6.0 + V * 1.5, p)
E = Point(xAxis)
F = (6, 8)
G = Point(xAxis)
g = Vector(E, F)
h = Vector(E, G)
i = false
H: -(V) + 6.8
Text6: "Gasvolumen V =  " + V