Fasekompensering og dimensionering
Author: Henrik Dam, FMS 2010

Indsæt S effekter i kVA. Induktive vinkler indsættes uden fortegn. Hvis der er kapacitive effekter, skal disses vinkler indsættes med negativt fortegn.
Hvis det ønskes, kan samtidighedsfaktoren indsættes (brug punktum som decimaltegn).
Den ønskede vinkel ved fasekompensering undsættes unnder feltet fasekomp.

Programmet regner selv størrelsen på kondensatorbatteriet i kVAR. Resultatet vises under Qc.
I Dim beregnes ud fra U net, og vil kun fungere, hvis alle S effekter er indsat i kVA

S effekt

Vinkel

S_1

S_2

S_3

S_4

S_5

S_6

S_7

S_8

S_9

S_10

SF

S_11

S_12

S_13

S_14

S_15

S_16

S_17

S_18

S_19

S_20

Fasekomp

COS phi

S_{fasekomp}

Qc

S total

P Total

Q_C

Q Total

U net

I DIM

A = (0, 0)
B = (0, 10)
S1 = 0
B3 = 70
C3 = 30
D3 = 1
E3: (B3 * D3 * sin(C3 * 3.141592653589793 / 180.0), B3 * D3 * cos(C3 * 3.141592653589793 / 180.0))
B4 = 0
D4 = 0
C4 = 0
E4: (B4 * D4 * sin(C4 * 3.141592653589793 / 180.0), B4 * D4 * cos(C4 * 3.141592653589793 / 180.0))
B5 = 0
D5 = 0
C5 = 0
E5: (B5 * D5 * sin(C5 * 3.141592653589793 / 180.0), B5 * D5 * cos(C5 * 3.141592653589793 / 180.0))
B6 = 0
D6 = 0
C6 = 0
E6: (B6 * D6 * sin(C6 * 3.141592653589793 / 180.0), B6 * D6 * cos(C6 * 3.141592653589793 / 180.0))
B7 = 0
D7 = 0
C7 = 0
E7: (B7 * D7 * sin(C7 * 3.141592653589793 / 180.0), B7 * D7 * cos(C7 * 3.141592653589793 / 180.0))
B8 = 0
D8 = 0
C8 = 0
E8: (B8 * D8 * sin(C8 * 3.141592653589793 / 180.0), B8 * D8 * cos(C8 * 3.141592653589793 / 180.0))
B9 = 0
D9 = 0
C9 = 0
E9: (B9 * D9 * sin(C9 * 3.141592653589793 / 180.0), B9 * D9 * cos(C9 * 3.141592653589793 / 180.0))
B10 = 0
D10 = 0
C10 = 0
E10: (B10 * D10 * sin(C10 * 3.141592653589793 / 180.0), B10 * D10 * cos(C10 * 3.141592653589793 / 180.0))
B11 = 0
D11 = 0
C11 = 0
E11: (B11 * D11 * sin(C11 * 3.141592653589793 / 180.0), B11 * D11 * cos(C11 * 3.141592653589793 / 180.0))
B12 = 0
D12 = 0
C12 = 0
E12: (B12 * D12 * sin(C12 * 3.141592653589793 / 180.0), B12 * D12 * cos(C12 * 3.141592653589793 / 180.0))
B13 = 0
D13 = 0
C13 = 0
E13: (B13 * D13 * sin(C13 * 3.141592653589793 / 180.0), B13 * D13 * cos(C13 * 3.141592653589793 / 180.0))
B14 = 0
D14 = 0
C14 = 0
E14: (B14 * D14 * sin(C14 * 3.141592653589793 / 180.0), B14 * D14 * cos(C14 * 3.141592653589793 / 180.0))
B15 = 0
D15 = 0
C15 = 0
E15: (B15 * D15 * sin(C15 * 3.141592653589793 / 180.0), B15 * D15 * cos(C15 * 3.141592653589793 / 180.0))
B16 = 0
D16 = 0
C16 = 0
E16: (B16 * D16 * sin(C16 * 3.141592653589793 / 180.0), B16 * D16 * cos(C16 * 3.141592653589793 / 180.0))
B17 = 0
D17 = 0
C17 = 0
E17: (B17 * D17 * sin(C17 * 3.141592653589793 / 180.0), B17 * D17 * cos(C17 * 3.141592653589793 / 180.0))
B18 = 0
D18 = 0
C18 = 0
E18: (B18 * D18 * sin(C18 * 3.141592653589793 / 180.0), B18 * D18 * cos(C18 * 3.141592653589793 / 180.0))
B19 = 0
D19 = 0
C19 = 0
E19: (B19 * D19 * sin(C19 * 3.141592653589793 / 180.0), B19 * D19 * cos(C19 * 3.141592653589793 / 180.0))
B20 = 0
D20 = 0
C20 = 0
E20: (B20 * D20 * sin(C20 * 3.141592653589793 / 180.0), B20 * D20 * cos(C20 * 3.141592653589793 / 180.0))
B21 = 0
D21 = 0
C21 = 0
E21: (B21 * D21 * sin(C21 * 3.141592653589793 / 180.0), B21 * D21 * cos(C21 * 3.141592653589793 / 180.0))
B22 = 0
D22 = 0
C22 = 0
E22: (B22 * D22 * sin(C22 * 3.141592653589793 / 180.0), B22 * D22 * cos(C22 * 3.141592653589793 / 180.0))
F4: E3 + E4
F5: F4 + E5
F6: F5 + E6
F7: F6 + E7
F8: F7 + E8
F9: F8 + E9
F10: F9 + E10
F11: F10 + E11
F12: F11 + E12
F13: F12 + E13
F14: F13 + E14
F15: F14 + E15
F16: F15 + E16
F17: F16 + E17
F18: F17 + E18
F19: F18 + E19
F20: F19 + E20
F21: F20 + E21
F22: F21 + E22
S_1 = Vector(A, E3)
S_2 = Vector(E3, F4)
S_3 = Vector(F4, F5)
S_4 = Vector(F5, F6)
S_5 = Vector(F6, F7)
S_6 = Vector(F7, F8)
S_7 = Vector(F8, F9)
S_8 = Vector(F9, F10)
S_9 = Vector(F10, F11)
S_{10} = Vector(F11, F12)
S_{11} = Vector(F12, F13)
S_{12} = Vector(F13, F14)
S_{13} = Vector(F14, F15)
S_{14} = Vector(F15, F16)
S_{15} = Vector(F16, F17)
S_{16} = Vector(F17, F18)
S_{17} = Vector(F18, F19)
S_{18} = Vector(F19, F20)
p = Line(A, B)
S_{19} = Vector(F20, F21)
S_{20} = Vector(F21, F22)
s = OrthogonalLine(F22, p)
C = Intersect(p, s)
P = Vector(A, C)
t = Segment(C, F22)
A26 = 0.9
c_1 = Circle(A, Length[P] / A26)
D = Intersect(c_1, s, 1.0)
u_1 = Vector(A, D)
A29 = Distance(D, F22)
a_1 = OrthogonalLine(D, t)
b_1 = Line(F22, a_1)
A32 = Distance(A, F22)
B32 = Angle(F22, A, C)
A35 = Distance(A, C)
J3: Distance[A, C] / 20.0
J4: (0.0, J3) + F22
d_1 = OrthogonalLine(J4, b_1)
E = Intersect(a_1, d_1)
e_1 = Segment(J4, E)
B35 = Distance(C, F22)
A38 = 400
B38: A35 * 1000.0 / (A38 * A26 * sqrt(3.0))