# Thses functions use a restricted form of RLC circuits to # demonstrate complex arithmetic and recursion. The circuit is # represented as a tree with `s or `p as non-terminal nodes, and pairs # of strings and reals as terminal nodes. The strings begin with R, L or # C, and the real is its resistance, inductance, or capacitance. # # impedance takes an argument of the form (w,t) where w is an angular # frequency and t is a tree of type %cseXD representing a circuit. The # result is a tree of type %cjXsjXD, where each node contains the # (complex) impedance of its subtree. # # current_division takes a complex input current and a real angular # frequency to a function that takes a circuit tree as above to a list # of assignments of the form , # where component-name is a string and current and voltage are complex. # # current_division (15829) # impedance (15094) # phaser (426) # # compressed with granularity 84 # {iwKwEI{hwZkjhwziXbrhx{og?^XrpiIxnHz_esjrwzHf{wv_fUGxxiypBcux{Z{oQK=k_FfzxdatCk O=KyaFiAv`CqQiymvcucFNpsO@aZIqqhRKIYvjneD[\WJdNeGGFqaq?Pcs`kkIglHi=X@@_PvyMoyrlcwz^u[Dn^wsOyN{\]zE{Qc{\bpyOKMK>a{x_CwW QBOF]LvFb[\=IfuzfmoVvzPeOv?QSTbZKzw^S^[Cuxt[QLRd`H[{tymNHQWK^McwQ]eD[\cS^[=_vfqF?ApgO]ZrsIxdIRpsIMqWu OQLy=pHi=ywRwZUNZcjmkN?Auzj]DLBk^f@]zUoBnfl>oFvJIWV[mTR JE[NmJofqYEBvdEZ<_OQAbiQ_wyYPMkZVeerEZ]t=NfgeGyy^wL Fdv\fgPxcP[[LDMj`cSO]Pe{LOQIL=vYpvyH@_azdWhhgAIS@yMuytMkQuC?J]D[^oQI@LKl@beGSxg E{fWHQGBxADjYMuzMjZLZZ_QSdfy@@^Hf>W WCfeQN`yek{mvkrg``W{[tre@IQ=DPOuND{DedE^qPAW@oL[coag{xZ{fMkHpxLYLkQQF[Dq N]J\nEZ]{x[L[co`d{{@Wq[aXTtLqPy>yT`F\>NievPe{LO{w`pEZ]{uN[coeByPyzWtxQQK\KQx^_Q BcX=D[^gcuyzPf[p@{zlEZ=vtMkk_hMsk[AiQSYJFyZvkFctHMz [>S\Z=ftVjF^@=ft>jBg`Wo[ZG?xvJYw{KwyHdpAl{uGGHvt@]zBEZ]vcubBg]gl>=ft@=fuByx{qqE JyKZx{kktz{GxqrZ@]zFpAl=ft[]ftVjMk?BisQygS\XpjvY_XggZz{_wzkqwxkkn{klivqcsNvcvHZ@iLT E@pAl\EtVj=TBg]fuBvK^Qo@CcGYN\CtVMjoYBi [jrrgYASuEgQE]=jAMHjxinwns?nsPinsJOGrgHynnSKKWgjgXJgYFsGXuXiqGYIohipsJJTyqehjwq dxWQiVwQiVWGjuhjw\UWOkJOkJkKRaWWGwJnzlC=bYHpbYFp]\aWfr]WPKVidi^=_ACHzAchxLJAWiTK<>pAn=fuBy D`ceqF?rKp?RXHXCIPDw\=_cRbnzlTUzppxlQzpnxqWOOwRnzlJ@=l{PbqNA=bZhsDQcdSZ=fuB{uLhh[dKltVg?Taw@dtw^A\uqeiP^C=bZhsdrAunoZ_`ZjqVQgiRd\^?TK\tK><<]]jZ]t<jBl`W\su@<>K]LjnC_uYMGCj<=Tu]TS?bA^<<>=\W=l?] P=\\tJLJ?lu\t<=TU]\=lCTB=\BlA>B<<=d^=^>K<<\ezet?x^ZtZuBxO^_PA>lRuBwN>XF=ejMkbSY>w` Ww?]lgjMkAd{]IjMjt=Lds`W\kuBtDs`W\ kuBvLs`W\VZMj>k`W^GuBtfzMj?KuBtDIuBtfZMj>k`WfIuBtdc`W^euBtfZMjfc`WAFZMdVc`TNc`I GtM>z@gtP{]QtIz`QtCc\Bz=k\wtAs\JZ?k\bZ?cduuAk\Mc]utAceMuHz>Othz?StDQtjZ>Wt]c^utIC\ov aZFUteC^mthZgKaES]Ec``ZOCbmtOCiOu@OtOK]QZ@Su=S`qtQc]BzLUuJZAMtXzBUtUC]mtxZAOtmS _BZHMtxZEMtpZiKaMS]Mca@ZSC@PUp=O@<