5393ad0c-7b2d-4343-b2d5-5e8585bfc977 34 Lasith De Silva 4 5 false false 0 0 decimal

&[DATE] &[TIME] - &[FILENAME]

[INSERT CASE STUDY TITLE]

ε_air 8.854 1012 -^* :

Vlg 5000003 sqrt (/ : 2.8868 105^*

ρ_air 10000 :

ω 314.159 :

f 50 :

α 0 :

c 1.1 :

VPkPk Vlg 2 sqrt * : 4.0825 105^*

ρ_soil 100 :

Rperson 1737 :

<<INPUT VALUES FROM CDEGS PLOTS

I_Ph1 113 :

I_Ph2 43.8 :

I_Ph3 25.5 :

I_Gnd 1181 :

Qph1 I_Ph1 ε_air * ρ_air * : 1.0005 105 -^*

Qph2 I_Ph2 ε_air * ρ_air * : 3.8781 106 -^*

Qph3 I_Ph3 ε_air * ρ_air * : 2.2578 106 -^*

Qgnd I_Gnd ε_air * ρ_air * : 0.0001

Cph1 Qph1 Vlg / : 3.4658 1011 -^*

Cph2 Qph2 Vlg / : 1.3434 1011 -^*

Cph3 Qph3 Vlg / : 7.8211 1012 -^*

Cgnd Qgnd Vlg / : 3.6223 1010 -^*

Ceq Cph1 Cph2 + Cph3 + : 5.5914 1011 -^*

ζ Cph1 (2^Cph2 (2^+ Cph3 (2^+ Cph1 Cph2 * (- Cph1 Cph3 * (- Cph2 Cph3 * (- sqrt : 2.4518 1011 -^*

Vth ζ Ceq / VPkPk * : 1.7902 105^*

Vo Ceq Ceq Cgnd + / (Vth * : 23937.9988

γ 3 sqrt Cph2 Cph3 - (* 2 Cph1 0.5 Cph2 Cph3 + (* - (* / atan : 0.1996

α1 α γ + : 0.1996

τ Ceq Cgnd + (Rperson * : 7.2631 107 -^*

a 1 τ / : 1.3768 106^*

U 3 τ * : 2.1789 106 -^*

β a ω / atan : 1.5706

X1 0 :

X2 0 :

X3 0 :

X4 0 :

note: the dummy variable in integrals must to be undefined.

Vout_RMS Vo c * 2 sqrt / : 18619.3934

t Vout_Open Vo c * ω t * α1 + cos (* :

<< CHECK

Vout_SS_RMS Vo c * β cos * 2 sqrt / : 4.2485

t Vout_SS t Vout_Open Vo c * β sin * ω t * α1 + β + sin (* - :

t Vout_TR Vo c * β sin α1 β + sin * t τ / - exp t 0 > 0 cases * * :

use case for enable SMath integrals.

t Vout t Vout_SS t Vout_TR + :

t Iout t Vout Rperson / :

Iout_Peak Vo c * α1 cos * (Rperson / : 14.8584

Iout_SS_RMS Vout_SS_RMS Rperson / (: 0.0024

<< CHECK

Iout_Discharge τ Iout : 5.4657

t.end U : 2.1789 106 -^*

Specific Fibrillating Energy t Vout_TR Rperson / (2^t 0 t.end int 7.9182 105 -^*

Specific Fibrillating Charge t Vout_TR 2^Rperson / ((t 0 t.end int 103 -^137.5383

with Vout(t) you get the same values

for some reason, this plot is not very accurate.

Transient Discharge

x Vout τ τ Vout o augment 2 1 sys t Vout_TR x Vout τ τ Vout o augment t.end t.end Vout x augment 4 1 sys

Steady State

x Vout 1 1 sys 1 1 sys

Open Circuit Waveform

x Vout_Open Vout_RMS 2 1 sys

Steady State Waveform

x Vout_SS Vout_SS_RMS 2 1 sys 1 1 sys

Human Discharge Assessment

Transient Discharge

x Iout Iout_Peak U 0 U 6 U 15 3 2 mat τ Iout τ 0 τ 6 τ 15 3 2 mat 5 1 sys

Steady State

x Vout_SS Rperson / Iout_SS_RMS 2 1 sys

t Vout_TR Vo c * β sin α1 β + sin * t τ / - exp * * :

use this for enable maple integrals.

Using maple for more accurate integrals

Total Discharge Energy t Vout (2^Rperson / t 0 0.1 int 0.001

Total Discharge Energy t Vout_TR (2^Rperson / t 0 0.1 int maple 0.1393

BUT

Specific Fibrillating Energy t Vout Rperson / (2^t 0 0.1 int 5.9824 107 -^*

Specific Fibrillating Energy t Vout_TR Rperson / (2^t 0 0.1 int maple 8.0182 105 -^*

Specific Fibrillating Charge t Iout t 0 0.1 int 5.7855 1011 -^*

Specific Fibrillating Charge t Vout_TR Rperson / t 0 0.1 int maple 1.0792 105 -^*

W_s 8.1507 105 -^* :

Y_s Rperson W_s * : 0.1416

U 2.1789 106 -^*

x g x Vout (2^Rperson / :

x h x Vout (Rperson / (2^:

x i x Vout (Rperson / :

int MaximaTakeover int() handled by Maxima

x g x 0 U Int Refusing to factor polynomial (%e^(x/574512855127921))^791003412213518000000*cos((314159000000000000*x+199582328298857)/1000000000000000)-sin(19632101878831/12500000000000)*(%e^(x/574512855127921))^791003412213518000000*sin((17857871625892600*x+100621405102023)/56843418860808)+sin(19632101878831/12500000000000)*sin(33540468367341/18947806286936) because its degree exceeds factor_max_degree (1000)

Discharge Energy

x h x 0 U Int #

x i - x 0 U Int 1.4926 109 -^*