%% Function name
%       WfWmrhoc

%% Revised
%       3 February 2014

%% Authors
%       Joshua Bigham, Trey Moore, & Autar Kaw
%       Section: All
%       Semester: Fall 2013

%% Purpose
%       Given densities of the fiber and matrix, as well as the weight volume
%       fraction, output the volume fractions for the fiber and matrix of the lamina

%% Usage
%       function [Wf,Wm,rhoc] = WfWmrhoc(rhof,rhom,Vf)
% Input Variables
%       rhof=fiber density
%       rhom=matrix density
%       Vf=fiber volume fraction
% Output Variables
%       Wf=fiber weight fraction
%       Wm=matrix weight fraction
%       rhoc=density of lamina
% Keyword
%       weight fraction
%       density

%% License Agreement
%       http://www.eng.usf.edu/~kaw/OCW/composites/license/limiteduse.pdf

%% Code
function[Wf,Wm,rhoc]=WfWmrhoc(rhof,rhom,Vf)
% Density of lamina
rhoc=rhof*Vf+rhom*(1-Vf);
% Weight fractions
Wf=(rhof/rhoc)*Vf;
Wm=(rhom/rhoc)*(1-Vf);
end