-
Notifications
You must be signed in to change notification settings - Fork 0
/
electrod2_stim.m
35 lines (26 loc) · 931 Bytes
/
electrod2_stim.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
function [V_tot] = electrod2_stim(I_stim,ipi,pulse_width,dur,dt)
%%%%Region 2 neurons - have varying distances from the electrode
%%%%Neurons have larger diameter and difficult to stimulate require
%%%%higher I_stimulus
%%%Final AP is the addition of AP's from three neurons
I = I_input(I_stim,dur,dt,ipi,pulse_width);
%%%Neuron 1
z = 0.1;%%cm
del_x = 0.1; %%cm
dia = 0.0001; %%%cm
%figure();plot(I);
[V_tot1,I_ionic1] = stimulate_neuron(z, del_x, I,dia,dur,dt);
%%%%Neuron 2
z = 0.2;%%cm
del_x = 0.1; %%cm
dia = 0.0001; %%%cm
%figure();plot(I);
[V_tot2,I_ionic2] = stimulate_neuron(z, del_x, I,dia,dur,dt);
%%%%Neuron 3
z = 0.3;%%cm
del_x = 0.1; %%cm
dia = 0.0001; %%%cm
%figure();plot(I);
[V_tot3,I_ionic3] = stimulate_neuron(z, del_x, I,dia,dur,dt);
V_tot = V_tot1 + V_tot2+V_tot3;
end