MATLAB代码如下:

主程序 main.m

clc;close all;clear all;warning off;%清除变量

% 画一个圆 r0=10;% 半径 c0=[1,2,5];% 圆心坐标

figure; drwasphere(r0,c0);

figure; hold on; for i=1:5% 循环画圆     r0=10;% 半径     c0=[1,i*20,5];% 圆心坐标     drwasphere(r0,c0); end

子函数drwasphere.m

function drwasphere(r0,c0) % 画球函数 [x,y,z]=sphere(50);% 画单位球 50为分隔数 X=x*r0+c0(1); Y=y*r0+c0(2); Z=z*r0+c0(3); % figure; mesh(X,Y,Z,'FaceAlpha', 0.2);% 'FaceAlpha'设置透明度 1为不透明, 0为全透明 axis equal;

程序结果如下:

相关链接

评论可见，请评论后查看内容，谢谢！！！评论后请刷新页面。