#!/usr/bin/env octave

# $Id: testoctave 1 2021-05-15 22:12:05Z reinhard $

# Copyright (C) 2020 Reinhard Kotucha <reinhard.kotucha@web.de>
# 
# You may freely use, modify, and/or distribute this file.

available_graphics_toolkits ()

#graphics_toolkit ("fltk");
#graphics_toolkit ("gnuplot");
graphics_toolkit ("qt");

smithchart() ## 

Z = load("hipass-4G.data");
z = Z(:,2)./50 + i .* Z(:,3)./50;
Gamma = (z-1)./(z+1);

plot(real(Gamma), imag(Gamma), 'color', [0 .5 0], "linewidth", 2)

pause();

# Local Variables:
#  mode: Octave
#  indent-tabs-mode: nil
#  coding: utf-8-unix
# End:
# vim:set tabstop=2 expandtab: