10 PRINT "TheLeastVNA - Version 20191017 - for BBCBASIC DEMO 6.12a              "
   20 PRINT "----------------------------------------------------------------------"
   30 PRINT "Copyright (C) 2019 Nikolitsa I. Giannopoulou OE3ZGN/SV7DMC and Petros "
   40 PRINT "E. Zimourtopoulos OE3ZZP/SV7BAX - Antennas Research Group - Informal  "
   50 PRINT "Association of Individuals - No Finance Involved - ARG IAOI NFI -     "
   60 PRINT "Austria EU - www.op4.eu - gin&pez@arg                                 "
   70 PRINT "----------------------------------------------------------------------"
   80 PRINT "Permission is hereby granted, free of charge, to any person obtaining "
   90 PRINT "a copy of this software and associated documentation files (the       "
  100 PRINT "'Software'), to deal in the Software without restriction, including   "
  110 PRINT "distribute, sublicense, and/or sell copies of the Software, and to    "
  120 PRINT "permit persons to whom the Software is furnished to do so, subject to "
  130 PRINT "the following conditions:                                             "
  140 PRINT "                                                                      "
  150 PRINT "The above copyright notice and this permission notice shall be        "
  160 PRINT "included in all copies or substantial portions of the Software.       "
  170 PRINT "                                                                      "
  180 PRINT "THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,       "
  190 PRINT "EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF    "
  200 PRINT "MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT."
  210 PRINT "IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY  "
  220 PRINT "CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,  "
  230 PRINT "TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE     "
  240 PRINT "SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                "
  250 PRINT "----------------------------------------------------------------------"
  260 PRINT "/F/L/O/S/S/ Free Libre Open Source Software under 'The MIT License'   "
  270 PRINT "approved by OSI Open Source Initiative www.opensource.org/licenses/MIT"
  280 PRINT "----------------------------------------------------------------------"
  290 PRINT "[NanoVNA] & sma/M-to-typeN/F-50OHM & ref2007box + L05 + SHO + OOA     "
  300 PRINT "f  : 405.0275 MHz                                                     "
  310 PRINT "----------------------------------------------------------------------"
  320 sr = -0.004500668 : PRINT "sr : ";sr
  330 si = +0.078727439 : PRINT "si : ";si
  340 
  350 lr = -0.006456219 : PRINT "lr : ";lr
  360 li = -0.004560099 : PRINT "li : ";li
  370 
  380 or = -0.005774516 : PRINT "or : ";or
  390 oi = -0.086100399 : PRINT "oi : ";oi
  400 
  410 gr = -0.001663459 : PRINT "gr : ";gr
  420 gi = -0.018751967 : PRINT "gi : ";gi
  430 
  440 PRINT "----------------------------------------------------------------------"
  450 glr=gr-lr
  460 gli=gi-li
  470 
  480 osr=or-sr
  490 osi=oi-si
  500 
  510 slr=sr-lr
  520 sli=si-li
  530 
  540 gor=gr-or
  550 goi=gi-oi
  560 
  570 lor=lr-or
  580 loi=li-oi
  590 
  600 gsr=gr-sr
  610 gsi=gi-si
  620 
  630 nr=glr*osr-gli*osi
  640 ni=glr*osi+gli*osr
  650 
  660 er=gor*slr-goi*sli
  670 ei=gor*sli+goi*slr
  680 
  690 fr=gsr*lor-gsi*loi
  700 fi=gsr*loi+gsi*lor
  710 
  720 dr=er-fr
  730 di=ei-fi
  740 
  750 d2=dr*dr+di*di
  760 
  770 Gr=( nr*dr+ni*di)/d2
  780 Gi=(-nr*di+ni*dr)/d2
  790 PRINT "----------------------------------------------------------------------"
  800 
  810 PRINT "Gr : 0.172343674 = ";Gr
  820 PRINT "Gi : 0.059218930 = ";Gi
  830 
  840 Z0=50
  850 
  860 UpGr=1+Gr
  870 UmGr=1-Gr
  880 D2= UmGr*UmGr+Gi*Gi
  890 
  900 R=(UpGr*UmGr-Gi*Gi)*Z0/D2
  910 X =(UpGr*Gi+Gi*UmGr)*Z0/D2
  920 
  930 PRINT "R  :  70.2077022 = ";R
  940 PRINT "X  :  8.60087850 = ";X
  950 
  960 END