کد متلب: تبدیل مختصات کارتزین به مختصات منحنی الخط

17/08/1395 5063 بازدید میدیا رستمی بدون دیدگاه برنامه نویسی, ژئوماتیک, کد, متلب

از سری کد ها و مجموعه ی کاربردی زبان متلب در علم ژئوماتیک در ادامه کد ها را ببینید:

نرم افزار دوربین را گم کرده اید ؟ یا به دنبال آپدیت های ان هستید ؟ اینجا را نگاه کنید.

یا دفترچه ی راهنما میخواهید؟ اینجا را نگاه کنید.

clc
clear 
format long
a=input('enter the a parameter Vaule=');
f=input('enter the Scale factor ='); %f=1/298.25722221
b=a*(1-f);
e=2*f-f^2;
X=input('Enter X=');
Y=input('Enter Y=');
Z=input('Enter Z=');
P=sqrt(X^2+Y^2);
lan=2*atend((-X+sqrt(X^2+Y^2))/Y);
N0=a;
h0=((X^2+Y^2+Z^2)^.5)-(a*b)^.5;
phi0=atand(Z/P*(1-(e^2*N0)/(N0+h0)))^(-1);
N=1;h=1;phi=1;
while(abs(h-h0)>.00001)&&(abs(phi-phi0)>0000001)
    
    N=a/(1-(e^2)*(sin(phi0))^2)^.5;
    h=P/cos(phi0)-N0;
    phi=atand(z/p*(1-e^2*N0/(N0+h0))^-1);
    N0=N;h0=h;phi0=phi;
end
    phi=abs([fix((fix(phi)-phi)*60)+round(((ix((ix(phi)-phi)*60))-((fix(phi)-phi)*60))*60)]);
    phi=abs([fix((fix(lan)-lan)*60)+round(((ix((ix(lan)-phi)*lan))-((fix(lan)-lan)*60))*60)]);
   disp(phi);
   disp(lan);

clc

clear

format long

a=input('enter the a parameter Vaule=');

f=input('enter the Scale factor ='); %f=1/298.25722221

b=a*(1-f);

e=2*f-f^2;

X=input('Enter X=');

Y=input('Enter Y=');

Z=input('Enter Z=');

P=sqrt(X^2+Y^2);

lan=2*atend((-X+sqrt(X^2+Y^2))/Y);

N0=a;

h0=((X^2+Y^2+Z^2)^.5)-(a*b)^.5;

phi0=atand(Z/P*(1-(e^2*N0)/(N0+h0)))^(-1);

N=1;h=1;phi=1;

while(abs(h-h0)>.00001)&&(abs(phi-phi0)>0000001)

N=a/(1-(e^2)*(sin(phi0))^2)^.5;

h=P/cos(phi0)-N0;

phi=atand(z/p*(1-e^2*N0/(N0+h0))^-1);

N0=N;h0=h;phi0=phi;

end

phi=abs([fix((fix(phi)-phi)*60)+round(((ix((ix(phi)-phi)*60))-((fix(phi)-phi)*60))*60)]);

phi=abs([fix((fix(lan)-lan)*60)+round(((ix((ix(lan)-phi)*lan))-((fix(lan)-lan)*60))*60)]);

disp(phi);

disp(lan);

میدیا رستمی

اهل سنندج قبلا ورزشکار تکواندو ؛ دانش آموخته ی دبیرستان نمونه دولتی ؛کارشناس مهندسی ژئوماتیک ؛ مدرس دوره های خصوصی و سردبیر مجله ی ژئوماتیک دانشگاه آزاد ؛ برنامه نویس و طراح وب و دارای تسلط به زبان های C# و متلب ||| امضا: Nullius in verba به حرف دیگران توجه نکن |||

میدیا رستمی

مطالب مرتبط

آموزش متلب: طراحی الگوریتم و فلوچارت

تخليه اطلاعات توتال استيشن

60 لغت انگلیسی پرکاربرد و پرتکرار در مهندسی ژئوماتیک

دیدگاهتان را بنویسید لغو پاسخ