platonic_solid 1.0

function [V,F]=platonic_solid(n,r)Creates the PATCH data, the vertices (V) and faces (F) fora given platonic solid (according to "n" see below) with radius (r)n=1 -> Tetrahedronn=2 -> Cuben=3 -> Octahedronn=4 -> Icosahedronn=5 -> Dodecahedron%% Exampleclear all; close all; clc;r=1;figure;fig=gcf; clf(fig); colordef (fig, 'white'); units=get(fig,'units'); set(fig,'units','normalized','outerposition',[0 0 1 1]); set(fig,'units',units); set(fig,'Color',[1 1 1]);hold on;[V,F]=platonic_solid(1,r);subplot(2,3,1);patch('Faces',F,'Vertices',V,'FaceColor','b','FaceAlpha',0.6,'EdgeColor','k','LineWidth',2); axis equal; grid on; hold on; view(3); axis off;[V,F]=platonic_solid(2,r);subplot(2,3,2);patch('Faces',F,'Vertices',V,'FaceColor','b','FaceAlpha',0.6,'EdgeColor','k','LineWidth',2); axis equal; grid on; hold on; view(3); axis off;[V,F]=platonic_solid(3,r);subplot(2,3,3);patch('Faces',F,'Vertices',V,'FaceColor','b','FaceAlpha',0.6,'EdgeColor','k','LineWidth',2); axis equal; grid on; hold on; view(3); axis off;[V,F]=platonic_solid(4,r);subplot(2,3,4);patch('Faces',F,'Vertices',V,'FaceColor','b','FaceAlpha',0.6,'EdgeColor','k','LineWidth',2); axis equal; grid on; hold on; view(3); axis off;[V,F]=platonic_solid(5,r);subplot(2,3,5);patch('Faces',F,'Vertices',V,'FaceColor','b','FaceAlpha',0.6,'EdgeColor','k','LineWidth',2); axis equal; grid on; hold on; view(3); axis off;

Requirements:	No special requirements
Platforms:	Matlab
Keyword:	Clffig,  Colordef,  Dplatonic Solid,  Equal,  Setfigcolor,  Setfigunitsunits,  Subplot,  Units Dgetfigunits,  View,  White
Users rating:	0/10