clc
clear all
disp('                                                                    ')
disp('___________________***j-pole calculate ***______________')          
imageview('a:/jpol.gif')
disp('-------------------------------------------------------------------------------------------')
disp('                                                                   ')
disp('                                                               ')
disp('                                                                   ')
f=input('PLEASE ENTER OPERATING FREQUENCY(MHZ):');
disp('-------------------------------------------------------------------------------------------')
disp('A(meter)=')            
pause
A=705*0.3048/f
disp('-------------------------------------------------------------------------------------------')
disp('B(meter)=')  
pause
B=234*0.3048/f
disp('-------------------------------------------------------------------------------------------')
disp('C(meter)=')  
pause
C=23*0.3048/f
disp('-------------------------------------------------------------------------------------------')
disp('D(meter)=')  
pause
D=22*0.3048/f
end