blob: 07c33c6af383fb4a9ca5460ded1abaf3332c77a5 (
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
31
32
33
34
35
36
37
38
39
40
41
|
//Chapter-5, Example 5.2, 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
//for subdivision 1
I1=p2r(10,60);
I2=p2r(8,-45);
I3=I1+I2;
disp(I3);
I4=r2p(I3(1),I3(2));
disp(I4)
//for subdivision 2
I5=r2p(5,4);
I6=r2p(-4,-6);
I7(1)=(I5(1))*(I6(1));
I7(2)=(I5(2)+I6(2));
I7(2)=I7(2)-180;
disp(I7);
//for subdivision 3
I8=r2p(-2,-5);
I9=r2p(5,7);
I10(1)=I8(1)/I9(1);
I10(2)=I8(2)-I9(2);
I10(2)=I10(2)-180
disp(I10);
//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======================================================================================================
|
