membrane_solution3.asv

function [w] = membrane_solution3(T,P)
    % T = Tension (microNewton/micrometer)
    % P = Pressure (MPa)
    
    od = ones(8,1);
    od(3:3:end) = 0;
    k = -4*diag(ones(9,1))+diag(ones(9-3,1),3)+diag(ones(9-3,1),-3)+diag(od,1)+diag(od,-1);
   
    
    y = -(10/4)^2*(P/T)*ones(9,1);
    w = k\y; 
    % Solves for displacement (micrometers)

    [x,y] = meshgrid(0:10/4:10,0:10/4:10);
    z = zeros(size(x));
    z(2:end-1,2:end-1) = reshape(w,[3 3]);
    surf(x,y,z)
    title('Membrane Displacement')
    zlable
    % Solution represents a 2D data set w(x,y)
end