blob: cdc6582986ad940610ca3c1d979c1757d061a38e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
//Chapter-5, Example 5.1, Page 157
//=============================================================================
clc
clear
function [polar] = r2p(x,y)//function to convert rectangular to polar
polar = ones(1,2)
polar(1) = sqrt ((x ^2) +(y^2))
polar(2) = atan (y/x)
polar(2) =(polar (2)*180)/%pi
endfunction
function [ rect ] = p2r(r,theta)//function to convert polar to rectangular
rect = ones(1 ,2)
theta =( theta *%pi) /180
rect (1)=r* cos(theta)
rect (2)=r* sin(theta)
endfunction
//CALCULATIONS
I1=r2p(7,-5);
disp(I1);
I2=r2p(-9,6);
I2(2)=I2(2)+(180);//this belongs to quadrant 2 and hence 180 degrees should be added
disp(I2);
I3=r2p(-8,-8);
I3(2)=I3(2)+(180);//this belongs to quadrant 3 and hence 180 degrees should be added
disp(I3);
I4=r2p(6,6);
disp(I4);
//note:here direct functions for converson are not available and hence we defined user defined functions for polar to rect and rect to polar conversions
//=================================END OF PROGRAM======================================================================================================
|
