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;