L'image ci-dessous montre un circuit RLC. Un circuit RLC est un circuit électrique composé d'une résistance (R), d'une inductance (L) et d'un condensateur (C), connectés en série ou en parallèle. (1)

Afin de simplifier les calculs, il est courant de travailler dans le domaine fréquentiel (Laplace) au lieu du domaine temporel.

Votre tâche est:

Prenez les valeurs R, Let Ccomme entrée, et renvoyez les tensions VR, VLetVC

La conversion vers le domaine Laplace est la suivante:

R = R
XL = j*w*L      // OK, XL = w*L, and ZL = j*XL, but don't mind this here.  
XC = 1/(j*w*C)  // I haven't ruined physics, it's only a minor terminology tweak

où j = sqrt(-1)et w = 2*pi*50(La fréquence est de 50 Hz).

L'impédance combinée, lorsque les composants sont en série, est Z = R + XL + XC. Vous vous souvenez peut-être U = R*Ides cours de physique au lycée. Il est presque le même, mais un peu plus complexe maintenant: VS = Z*I. Le courant est calculé en divisant la tension VSpar l'impédance totale Z. Pour trouver la tension sur un seul composant, vous devez connaître le courant, puis le multiplier par l'impédance. Pour simplifier, la tension est supposée être VS = 1+0*j.

Les équations dont vous pourriez avoir besoin sont:

XL = j*w*L
XC = 1/(j*w*C)
Z = R + XL + XC   // The combined impedance of the circuit
I = VS / Z         // The current I (Voltage divided by impedance)
VR = I * R        // Voltage over resistance (Current times resistance)
VL = I * XL       // Voltage over inductor (Current times impedance)
VC = I * XC       // Voltage over capacitor (Current times impedance)

L'entrée provient de STDIN ou d'arguments de fonction. La sortie / le résultat doit être composé de trois nombres complexes, dans une liste, une chaîne ou tout ce qui est le plus pratique dans votre langue. Il n'est pas nécessaire d'inclure des noms (ex VR = ...), tant que les résultats sont dans le même ordre que ci-dessous. La précision doit être d'au moins 3 décimales pour la partie réelle et imaginaire. L'entrée et la sortie / les résultats peuvent être en notation scientifique si c'est par défaut dans votre langue.

Ret Lsont >= 0, et C > 0. R, L, C <= inf(ou le plus grand nombre possible dans votre langue).

Un cas de test simple:

R = 1, L = 1, C = 0.00001

VR = 0.0549 + 0.2277i
VL = -71.5372 +17.2353i
VC = 72.4824 -17.4630i

Pour les résultats ci-dessus, cela pourrait être un (parmi plusieurs) formats de sortie valides:

(0.0549 + 0.2277i, -71.5372 +17.2353i, 72.4824 -17.4630i)

Certains formats de sortie valides pour une valeur de tension sont les suivants:

1.234+i1.234,   1.23456+1.23456i,   1.2345+i*1.2345,   1.234e001+j*1.234e001.

Cette liste n'est pas exclusive, donc d'autres variantes peuvent être utilisées, tant que la partie imaginaire est indiquée par un iou un j(commun en électrotechnique comme ipour le courant).

Pour vérifier le résultat d'autres valeurs de R, L et C, ce qui suit doit être vrai pour tous les résultats: VR + VL + VC = 1.

Le code le plus court en octets gagne!

_{Soit dit en passant: oui, c'est la tension sur un composant et le courant à travers un composant. Une tension n'a jamais traversé quoi que ce soit. =)}

Pyth, 30 29 28 octets

L*vw*100.l_1)K[Qy0c1y1)cRsKK

Essayez-le en ligne.

Mathematica, 33 octets

Si proche de Pyth ...

l/Tr[l={#,#2(x=100Pi*I),1/x/#3}]&

Ceci est une fonction anonyme, qui prend R, Let Cque ses trois arguments et retourne une liste de nombres complexes comme le résultat (dans l'ordre requis VR, VL, VC). Exemple d'utilisation:

l/Tr[l={#,#2(x=100Pi*I),1/x/#3}]&[1, 1, 0.00001]
(* {0.0548617 + 0.22771 I, -71.5372 + 17.2353 I, 72.4824 - 17.463 I} *)

Octave / Matlab, 53 51 octets

function f(R,L,C)
k=-.01j/pi;Z=[R L/k k/C];Z/sum(Z)

Essayez-le en ligne

Merci à @StewieGriffin d'avoir supprimé deux octets.

APL (Dyalog Unicode) , 27 24 octets ^SBCS

Programme complet. Aller se C, L, Rdans cet ordre.

(⊢÷+/)(⎕,⎕∘÷,÷∘⎕)÷○0J100

Essayez-le en ligne!

0J100 100  i

○ π fois

÷ réciproque de cela

(… ) Appliquez la fonction tacite suivante:

 ÷∘⎕ diviser l'argument par input ( C)

 ⎕∘÷, ajouter le préfixe input ( L) divisé par l'argument

 ⎕, entrée avant ( R)

(… ) Appliquez la fonction tacite suivante:

 +/ résumer les arguments

 ⊢÷ diviser les arguments par celui

Octave, 41 octets

@(R,L,C)(Z=[R L/(k=-.01j/pi) k/C])/sum(Z)

1/(100*j*pi)peut être raccourci, -.01j/pice qui est beaucoup plus court. En l'affectant à la variable kinline, la variable peut être utilisée deux fois. Assigner le vecteur entier à la variable Zcoûte 4 octets, mais nous permet de diviser par sum(Z), ce qui est 5 octets plus court que (R+L/k+k/C).