Matlab: Написание m-файла
•Download as DOCX, PDF•
0 likes•52 views
Пример написания m файла в среде matlab
![2
Программа на m-коде:
disp('Введите координаты точки');
x0 = input('x0: ');
y0 = input('y0: ');
z0 = input('z0: ');
disp(' ');
disp('Введите координаты первой плоскости');
A = input('A: ');
B = input('B: ');
C = input('C: ');
D0 = input('D: ');
disp('Введите координату D второй плоскости');
D1 = input('D: ');
disp(' ИСХОДНЫЕ ДАННЫЕ');
disp(' ');
message = ['X0 = ', num2str(x0), ' Y0 = ', num2str(y0), ' Z0 = ', num2str(z0)];
disp(message);
message = ['D1 = ', num2str(D0), ' D2 = ', num2str(D1)];
disp(message);
message = ['A = ', num2str(A), ' B = ', num2str(B), ' C = ', num2str(C)];
disp(message);
disp('------------------------------------');
d0 = (abs(A*x0+B*y0+C*z0 + D0)) / (sqrt(A^2 + B^2 + C^2));
d1 = (abs(A*x0+B*y0+C*z0 + D1)) / (sqrt(A^2 + B^2 + C^2));
disp(' ');
disp(' ');
disp(' ОТВЕТ');
message = ['РАССТ. ДО 1-й ПЛ-ТИ = ', num2str(d0)];
disp(message);
message = ['РАССТ. ДО 2-й ПЛ-ТИ = ', num2str(d1)];
disp(message);
Результат:](https://image.slidesharecdn.com/bulgakovd-150527161521-lva1-app6892/85/Matlab-m-2-320.jpg)
![3
2 ЗАДАНИЕ
По заданным радиусам оснований R и г, образующей l и высоте Н вычислить площадь поверхности S и объём
усечённогоконусаV :
𝑆 = 𝜋( 𝑅 + 𝑟) 𝑙 + 𝜋𝑅2
+ + 𝜋𝑟2
, 𝑉 =
𝜋𝐻(𝑅2
+𝑟2
+𝑅𝑟)
3
Вывестиинформациюв виде:
a) Отступивслева20 позиций, вывестислова:
ИСХОДНЫЕ ДАННЫЕ
b) Под этими словамивывести данные в виде:
R = … r = …
l = … H = …
c) Дляподчеркиваниявывестистрокуиз дефисов
d) Пропуститьстрокуи вывестизначенияпромежуточных результатов 𝜋𝑟2 и 𝜋𝑅2 в виде:
ПРОМЕЖУТОЧНЫЕ РЕЗУЛЬТАТЫ:
ПЛОЩАДИ ОСНОВАНИЙ = … , …
e) Пропуститьстрокуи вывестиответв виде:
ОТВЕТ S = … V = …
Программа на m-коде:
R = input('Введите длину радиуса R: ');
r = input('Введите длину радиуса r: ');
l = input('Введите образующую l: ');
H = input('Введите высоту H: ');
disp(' ИСХОДНЫЕ ДАННЫЕ');
message = [' R = ', num2str(R), ' r = ', num2str(r)];
disp(message);
message = [' l = ', num2str(l), ' H = ', num2str(H)];
disp(message);
disp('----------------------------------------')
disp(' ');
disp('ПРОМЕЖУТОЧНЫЕ РЕЗУЛЬТАТЫ:');
message = ['ПЛОЩАДИ ОСНОВАНИЙ = ', num2str(pi*(r^2)), ', ', num2str(pi*(R^2))];
disp(message);
disp(' ');
S = pi * (R + r)*l + pi*(R^2) + pi*(r^2);
V = (pi *H * (R ^ 2 + r ^ 2 + R*r)) / 3;
message = ['ОТВЕТ S = ', num2str(S), ' ', 'V = ', num2str(V)];
disp(message);](https://image.slidesharecdn.com/bulgakovd-150527161521-lva1-app6892/85/Matlab-m-3-320.jpg)
Matlab: Написание m-файла
- 1. 1 Отчет по выполнению задания №02 Написание m-файла Варианты: 3,4 1 ЗАДАНИЕ Расстояние от точкис координатами(x0,y0,z0) до плоскости, заданнойуравнением Ax + By + Cz + D = 0, определяетсяпоформуле: 𝑑 = | 𝐴𝑥0+𝐵𝑦0+𝐶𝑧0+𝐷| √𝐴2+ 𝐵2+ 𝐶2 Найти расстояние данной точки до параллельных плоскостей, заданных уравнениями: Ax + By + Cz + D1= 0 Ax + By + Cz + D2= 0 Вывестиинформациюв виде: a) Отступить4 позиции слеваи напечататьзаголовок: ИСХОДНЫЕ ДАННЫЕ b) Пропуститьстроку c) На следующей строке под заголовком вывести значения исходных данных в виде: X0 = … Y0 = … Z0 = … D1 = … D2 = … A = … B = … C = … d) Дляподчеркиваниявывестистрокуиз дефисов e) Пропустить2 строки и вывестиответв виде: ОТВЕТ РАССТ. ДО 1-й ПЛ-ТИ = … РАССТ. ДО 2-й ПЛ-ТИ = …
- 2. 2 Программа на m-коде: disp('Введите координаты точки'); x0 = input('x0: '); y0 = input('y0: '); z0 = input('z0: '); disp(' '); disp('Введите координаты первой плоскости'); A = input('A: '); B = input('B: '); C = input('C: '); D0 = input('D: '); disp('Введите координату D второй плоскости'); D1 = input('D: '); disp(' ИСХОДНЫЕ ДАННЫЕ'); disp(' '); message = ['X0 = ', num2str(x0), ' Y0 = ', num2str(y0), ' Z0 = ', num2str(z0)]; disp(message); message = ['D1 = ', num2str(D0), ' D2 = ', num2str(D1)]; disp(message); message = ['A = ', num2str(A), ' B = ', num2str(B), ' C = ', num2str(C)]; disp(message); disp('------------------------------------'); d0 = (abs(A*x0+B*y0+C*z0 + D0)) / (sqrt(A^2 + B^2 + C^2)); d1 = (abs(A*x0+B*y0+C*z0 + D1)) / (sqrt(A^2 + B^2 + C^2)); disp(' '); disp(' '); disp(' ОТВЕТ'); message = ['РАССТ. ДО 1-й ПЛ-ТИ = ', num2str(d0)]; disp(message); message = ['РАССТ. ДО 2-й ПЛ-ТИ = ', num2str(d1)]; disp(message); Результат:
- 3. 3 2 ЗАДАНИЕ По заданным радиусам оснований R и г, образующей l и высоте Н вычислить площадь поверхности S и объём усечённогоконусаV : 𝑆 = 𝜋( 𝑅 + 𝑟) 𝑙 + 𝜋𝑅2 + + 𝜋𝑟2 , 𝑉 = 𝜋𝐻(𝑅2 +𝑟2 +𝑅𝑟) 3 Вывестиинформациюв виде: a) Отступивслева20 позиций, вывестислова: ИСХОДНЫЕ ДАННЫЕ b) Под этими словамивывести данные в виде: R = … r = … l = … H = … c) Дляподчеркиваниявывестистрокуиз дефисов d) Пропуститьстрокуи вывестизначенияпромежуточных результатов 𝜋𝑟2 и 𝜋𝑅2 в виде: ПРОМЕЖУТОЧНЫЕ РЕЗУЛЬТАТЫ: ПЛОЩАДИ ОСНОВАНИЙ = … , … e) Пропуститьстрокуи вывестиответв виде: ОТВЕТ S = … V = … Программа на m-коде: R = input('Введите длину радиуса R: '); r = input('Введите длину радиуса r: '); l = input('Введите образующую l: '); H = input('Введите высоту H: '); disp(' ИСХОДНЫЕ ДАННЫЕ'); message = [' R = ', num2str(R), ' r = ', num2str(r)]; disp(message); message = [' l = ', num2str(l), ' H = ', num2str(H)]; disp(message); disp('----------------------------------------') disp(' '); disp('ПРОМЕЖУТОЧНЫЕ РЕЗУЛЬТАТЫ:'); message = ['ПЛОЩАДИ ОСНОВАНИЙ = ', num2str(pi*(r^2)), ', ', num2str(pi*(R^2))]; disp(message); disp(' '); S = pi * (R + r)*l + pi*(R^2) + pi*(r^2); V = (pi *H * (R ^ 2 + r ^ 2 + R*r)) / 3; message = ['ОТВЕТ S = ', num2str(S), ' ', 'V = ', num2str(V)]; disp(message);
- 4. 4 Результат: