% riemann_sphere.m
% draw the Riemann Sphere and the complex plane
clear; clc; %close all

[X,Y,Z]=sphere;

figure(1); clf
h=surf(X,Y,Z);
set(h,'FaceAlpha',0.5,'EdgeColor','interp','EdgeAlpha',0.5)
axis equal; colormap('jet'); hold on
AX=axis; AX(1:4)=[-2 2 -2 2];
h=surf([AX(1:2);AX(1:2)],[AX(3:4);AX(3:4)]',zeros(2,2));
set(h,'EdgeColor','k','EdgeAlpha',0.5,'FaceColor','k','FaceAlpha',0.5)
plot3(0,0,1,'.k','MarkerSize',15)
text(0,0,1.1,'N','FontSize',18,'FontName','Times New Roman','VerticalAlignment','bottom')
view(-27.4,19.64)