Maxima 5.43.0 http://maxima.sourceforge.net using Lisp SBCL 1.4.14 Distributed under the GNU Public License. See the file COPYING. Dedicated to the memory of William Schelter. The function bug_report() provides bug reporting information. (%i1) 0 = 0 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* Second Arithmetical Method of Error Estimations in VNA Measurements */ /* SAMoEEiVNAM */ /* NanoVNA */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* 90.00 */ /* SAM.20191222.MC - for 64-bit Maxima : 5.43.0 */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* (C) Copyright 2019 Nikolitsa I. Giannopoulou, OE3ZGN/SV7DMC, gin, and */ /* Petros E. Zimourtopoulos, OE3ZZP/SV7BAX, pez, gin.pez.arg@gmail.com, */ /* Antennas Research Group ARG, Informal Association of Individuals IAOI,*/ /* No Finance Involved NFI, ARG IAOI NFI, www.op4.eu, Austria/Hellas, EU */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* Permission is hereby granted, free of charge, to any person obtaining */ /* a copy of this software and associated documentation files (the */ /* "Software"), to deal in the Software without restriction, including */ /* distribute, sublicense, and/or sell copies of the Software, and to */ /* permit persons to whom the Software is furnished to do so, subject to */ /* the following conditions: */ /* */ /* The above copyright notice and this permission notice shall be */ /* included in all copies or substantial portions of the Software. */ /* */ /* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, */ /* EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF */ /* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.*/ /* IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY */ /* CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, */ /* TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE */ /* SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ /* /F/L/O/S/S/ Free Libre Open Source Software under "The MIT License" */ /* approved by OSI Open Source Initiative www.opensource.org/licenses/MIT*/ /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */; pi:3.141592653589793; S:-1+%i*0; L: 0+%i*0; O:+1+%i*0; s:-0.005095269+%i*0.079085066; l:-0.006552848-%i*0.004804225; o:-0.005179279-%i*0.086793094; g:-0.001707660-%i*0.018881952; fS:(L-O)*(g*s+l*o)$ fL:(O-S)*(g*l+o*s)$ fO:(S-L)*(g*o+s*l)$ dG:fS+fL+fO$ nG:S*fS+L*fL+O*fO$ G:nG/dG$ Gr:realpart(G); Gi:imagpart(G); Z:50*(1+G)/(1-G)$ Zr:realpart(Z); Zi:imagpart(Z); S: 0.99*(cos(pi*(-178/180))+%i*(sin(pi*(-178/180))))$ L: 0.029*(cos(pi*0/180)+%i*(sin(pi*0/180)))$ O: 0.99*(cos(pi*(2/180))+%i*(sin(pi*(2/180))))$ fS:(L-O)*(g*s+l*o)$ fL:(O-S)*(g*l+o*s)$ fO:(S-L)*(g*o+s*l)$ dG:fS+fL+fO$ nG:S*fS+L*fL+O*fO$ G:nG/dG$ Grt:realpart(G); Git:imagpart(G); Zt:50*(1+G)/(1-G)$ Ztr:realpart(Zt); Zti:imagpart(Zt); 100*(Ztr-Zr)/Zr; 100*(Zti-Zi)/Zti; (%o1) 0 = 0 (%i2) (%o2) 3.141592653589793 (%i3) (%o3) - 1 (%i4) (%o4) 0 (%i5) (%o5) 1 (%i6) (%o6) 0.079085066 %i - 0.005095269 (%i7) (%o7) (- 0.004804225 %i) - 0.006552848 (%i8) (%o8) (- 0.086793094 %i) - 0.005179279 (%i9) (%o9) (- 0.018881952 %i) - 0.00170766 (%i10) (%i11) (%i12) (%i13) (%i14) (%i15) (%i16) (%o16) 0.1703326800371602 (%i17) (%o17) 0.05822110642307362 (%i18) (%i19) (%o19) 69.93960847020175 (%i20) (%o20) 8.416646698098418 (%i21) (%i22) (%i23) (%i24) (%i25) (%i26) (%i27) (%i28) (%i29) (%i30) (%o30) 0.1946291723764476 (%i31) (%o31) 0.06287376027612539 (%i32) (%i33) (%o33) 73.41424087826367 (%i34) (%o34) 9.634713761033954 (%i35) (%o35) 4.96804669637565 (%i36) (%o36) 12.64248314113712