% Function file voltoct_cabranpap.m 
% Function file for parent branch in branched dendrite, two branches, current inj at x = 0, sealed end at M and O - extreme ends of both 
% branch points. 

function [VVp,hp,hp2]= voltoct_cabranpap(lp1,lambda1);
% Function to create values of Vp for various values of x on the parent dendrite
% Function to generate values of h for various values of N
% Function to generate values of h2
% Calling sequence :
% [Vp,h,h2] = voltoct_cabranpap(l1,lambdap1)
% Define variables 
% N1 -- number of discretization points wrt space
% Vp -- voltage across different pointson the parent dendrite
% VVp -- nondimensionalised voltage
% l1 -- length of dendrite in mm
% lambda1 -- space constant in mm
% x -- points along dendrite
% I1 -- injected current in milliamperes
% rmp1 -- membrane resistance in ohm mm squared
% rap1 -- axial resistance in ohmmm
% t1 -- time in msec
% tau1 -- time constant in msec
% T -- nondimensionalised T it t/tau
% kk -- index variable
% Record of revisions
% Date                           Programmer                                Description of change
% July 2, 2007                    Asha G                                     original code
  % October 25,08                Asha G                                     correction for current inj at N(1)
% Declare global values
%pack ( 'voltoct_cabranpap')
global Rm Ri  tau I  N 
%Vp = zeros(1,N);
VVp = zeros(1,N);
Lp = lp1/lambda1; % nondimensionalised space


VVp = linspace(-70,-70,N);

hp = Lp/(N-1);
hp2 = hp*hp;
end % voltoct_cabranpap