Cara mengubah jari-jari plot MATLAB sumbu kutub batas

[jayleung]

Hi, aku punya pertanyaan sederhana tentang fungsi MATLAB "kutub".Apakah ada perintah seperti "xlim" dalam rencana untuk mengubah jari-jari plot batas sumbu?Terima kasih

 

[hocke]

Halo Jay,
hari ini saya telah memiliki masalah yang sama,
matlab di suatu tempat di direktori sumber asli saya menemukan "polar.m"
fungsi.Aku disalin ke direktori home matlab sebagai fungsi baru polarmy.m
dengan lebih banyak input variabel (dan aku menambahkan baris 2-3 ditandai dengan kata 'perhatian')

contoh:
jika Anda menghubungi: polarmy (theta, rho ,'-', 60,3)

lingkaran akan tertarik pada rho = 0, 20, 40, 60
Mungkin ini cukup bagi Anda juga.Namun saya tidak dapat memberikan jaminan apa pun untuk rutinitas ini.
Sampai jumpa,

Klemens

fungsi hpol = polarmy (theta, rho, line_style, rmaxx, rtick)
% POLAR Polar koordinat plot.
% POLAR (theta, rho) membuat sebuah plot menggunakan koordinat polar
% Sudut theta, dalam radian, dibandingkan dengan jari-jari Rho.
% POLAR (Theta, Rho, S) menggunakan LineStyle ditentukan dalam string S.
% Lihat PLOT untuk deskripsi linestyles hukum.
%
% Lihat juga PLOT, LOGLOG, SEMILOGX, SEMILOGY.

% Copyright 1984-2002 The MathWorks, Inc
% $ Revision: 5,22 $ $ Date: 2002/04/08 21:44:28 $

jika nargin <1
error ( 'Membutuhkan 2 atau 3 masukan argumen. ")
elseif nargin == 2
jika isstr (rho)
line_style = rho;
rho = theta;
[mr, nr] = size (rho);
jika mr == 1
theta = 1: nr;
lain
th = (1: mr) ';
theta = th , yang (1, nr));
akhir
lain
line_style = 'auto';
akhir
elseif nargin == 1
line_style = 'auto';
rho = theta;
[mr, nr] = size (rho);
jika mr == 1
theta = 1: nr;
lain
th = (1: mr) ';
theta = th , yang (1, nr));
akhir
akhir
jika isstr (theta) | isstr (rho)
error ( 'Masukan argumen harus dalam angka.');
akhir
jika ~ isequal (ukuran (theta), ukuran (rho))
error ( 'Theta dan Rho harus ukuran yang sama.');
akhir

% Mendapatkan negara
cax = newplot;
next = rendah (get (cax, 'NextPlot'));
hold_state = ishold;

% Mendapatkan sumbu x teks warna sehingga grid dalam warna yang sama
tc = get (cax, 'xcolor');
ls = get (cax, 'gridlinestyle');

% Tahan pada saat Teks default, ulang mereka ke
% Axes 'font atribut jadi tanda centang menggunakannya.
fAngle = get (cax, 'DefaultTextFontAngle');
FNAME = get (cax, 'DefaultTextFontName');
fSize = get (cax, 'DefaultTextFontSize');
fWeight = get (cax, 'DefaultTextFontWeight');
fUnits = get (cax, 'DefaultTextUnits');
set (cax, 'DefaultTextFontAngle', mendapatkan (cax, 'FontAngle'), ...
'DefaultTextFontName', mendapatkan (cax, 'FontName'), ...
'DefaultTextFontSize', mendapatkan (cax, 'fontsize'), ...
'DefaultTextFontWeight', mendapatkan (cax, 'FontWeight'), ...
'DefaultTextUnits', 'data')

% Hanya melakukan grid jika terus tidak aktif
jika ~ hold_state

% Membuat grid radial
berpegang pada;
maxrho = max (abs (rho (

<img src="http://www.edaboard.com/images/smiles/icon_smile.gif" alt="Senyum" border="0" />

));
hhh = plot ([-maxrho-maxrho maxrho maxrho], [-maxrho maxrho maxrho-maxrho]);
set (gca, 'dataaspectratio', [1 1 1], 'plotboxaspectratiomode', 'auto')
v = [get (cax, 'xlim') get (cax, 'ylim')];
kutu = jumlah (dapatkan (cax, 'ytick')> = 0);
menghapus (hhh);
% Cek batas radial dan mengesalkan
rmin = 0; rmax = v (4); rticks = max (kutu-1, 2);
jika rticks> 5% melihat apakah kita dapat mengurangi jumlah
jika rem (rticks, 2) == 0
rticks = rticks / 2;
elseif rem (rticks, 3) == 0
rticks = rticks / 3;
akhir
akhir
%///////////////////////////////////////////////// /
% Perhatian saya menambahkan baris-baris berikut
% Rtick dan fungsi baru rmax masukan
rticks = rtick * 2;
rmax = rmaxx;
rmin =- rmax;
%///////////////////////////////////////////////// /

% Mendefinisikan sebuah lingkaran
th = 0: pi/50: 2 * pi;
xunit = cos (th);
yunit = sin (th);
% Sekarang benar-benar gaya titik pada x / y sumbu untuk berbohong pada mereka persis
inds = 1: (length (th) -1) / 4: panjang (th);
xunit (inds (2:2:4)) = nol (2,1);
yunit (inds (1:2:5)) = nol (3,1);
% Plot latar belakang jika diperlukan
jika ~ isstr (dapatkan (cax, 'color')),
patch ( 'xdata', xunit * rmax, 'ydata', yunit * rmax, ...
'edgecolor', tc, 'facecolor', mendapatkan (gca, 'warna'),...
'handlevisibility', 'off');
akhir

% Menggambar lingkaran radial
c82 = cos (82 * pi/180);
s82 = sin (82 * pi/180);
rinc = (rmax-rmin) / rticks;
untuk i = (rmin rinc): rinc: rmax
hhh = plot (xunit * i, yunit * i, ls, 'warna', tc, 'linewidth', 1, ...
'handlevisibility', 'off');
teks ((i rinc/20) * c82, (i rinc/20) * s82, ...
[ '' Num2str (i)], 'verticalalignment', 'bawah',...
'handlevisibility', 'off')
akhir
set (hhh, 'LineStyle','-')% Buatlah lingkaran luar padat

% Plot jari-jari
th = (1:6) * 2 * pi/12;
cst = cos (th); snt = sin (th);
cs = [-cst; cst];
sn = [-snt; snt];
plot (rmax * cs, rmax * sn, ls, 'warna', tc, 'linewidth', 1, ...
'handlevisibility', 'off')

% Membubuhi keterangan jari-jari dalam derajat
rt = 1,1 * rmax;
untuk i = 1: length (th)
teks (rt * cst (i), rt * snt (i), int2str (i * 30 ),...
'horizontalalignment', 'pusat',...
'handlevisibility', 'off');
if i == panjang (th)
loc = int2str (0);
lain
loc = int2str (180 i * 30);
akhir
teks (-rt * cst (i),-rt * snt (i), loc, 'horizontalalignment', 'pusat',...
'handlevisibility', 'off')
akhir

% Set pandangan untuk 2-D
view (2);
% Menetapkan batas sumbu
sumbu (rmax * [-1 1 -1,15 1,15]);
akhir

% Reset default.
set (cax, 'DefaultTextFontAngle', fAngle, ...
'DefaultTextFontName', FNAME, ...
'DefaultTextFontSize', fSize, ...
'DefaultTextFontWeight', fWeight, ...
'DefaultTextUnits', fUnits);

% Mengubah data ke koordinat Cartesian.
xx = rho .* cos (theta);
TH = rho .* sin (theta);

% Plot data di atas grid
jika strcmp (line_style, 'auto')
q = plot (xx, yy);
lain
q = plot (xx, yy, line_style);
akhir
jika nargout> 0
hpol = q;
akhir
jika ~ hold_state
set (gca, 'dataaspectratio', [1 1 1]), sumbu off; set (cax, 'NextPlot', next);
akhir
set (get (gca, 'xlabel'), 'visible', 'pada')
set (get (gca, 'ylabel'), 'visible', 'pada')