3 Ta Informe de Matlab

UNIVERSIDAD DE HUANUCO
FACULTAD DE INGENIERIA - EAP INGENIERIA CIVIL
disp('TRABAJO Nº3')
disp('ELABORACION DE UNA RUTINA EN MATLAB')
disp('Curso: Ingenieria Antisismica')
disp('Docente: Ing. Eric Lovon Davila')
disp('Alumno: Guillermo Ramos, Rauman')
disp('seccion: "A"')
disp('fecha:06/03/19')
Ejercicio 1
Elabore una rutina en Matlab para calcular la respuesta de un sistema de un grado de

libertad utilizando el método de diferencia centrada. Escriba la función utilizando los
siguientes argumentos de input y output
[u,v]=IntDifcen(m,c,k,pt,dt,u0,v0)
m: Masa del sistema.

c: Amortiguamiento.
k: Rigidez.
pt: Vector con la fuerza excitadora en cada instante de tiempo.
dt: Intervalo de tiempo de la fuerza excitadora.
uo: Desplazamiento inicial.
vo: Velocidad inicial.
u: Vector con el desplazamiento versus tiempo.
v: Vector con la velocidad versus tiempo.
Utilizando esta función resuelva el ejercicio 1 y 2 de clases. Muestre en una tabla los
valores de desplazamiento y velocidad versus tiempo.
CURSO: INGENIERIA ANTISISMICA 1

disp('Ejercicio Nº1') % Método de diferencia Centrada
disp('Ejemplo 1 de clase')
% ejemplo 1: Una estructura esta sometida a una excitacion P(t),

cuando el amortiguamiento critico es z=0. calcule la respuesta
en el tiempo. suponga:
function [u,v]=IntDifcen(m,c,k,pt,dt,Uo,Vo)
% definicion
m=1; % (kg) masa del sistema

Tn=1; % (seg.) periodo no amortiguado
Wn=2*pi/Tn; % (rad/seg.) frecuencia angular
K=Wn^2*m; % (fuerza/longitud) rigidez del sistema
Po=10; % (N) fuerza dinamica
Td=0.5; % (seg) periodo natural de vibracion amortiguado
dt=0.1; % (seg.) intervalo de integracion
t=0:dt:1; % vector de iempo
z=0; % coeficiente del amortiguamiento critico
c=2*Wn*m*z; % coeficiente de amortiguamiento viscoso(unides de
fuerza x tiempo/longitud)
Uo=0; % desplazamiento para un t=0
Vo=0; % velocidad para un t=0
% visualizamos la respuesta del sistema
% largo de la exitacion
n=length(t);
% matriz del desplazamiento y velocidad

u=zeros(n,1);
v=u;
%vibración libre de ambos sistemas inicia por el mismo

desplazamiento inicial Uo y la misma velocidad inicial Vo
u(1)=Uo;
v(1)=Vo;
% matriz de la fuerza externa
pt=zeros(n,1);
pt(t<=Td)=Po;
% ecuacion de la aceleracion
Ao=(Po-c*Vo-K*Uo)/m;
% ecuacion del desplazamiento en t=-1

Un1=Uo-dt*Vo+(dt^2)*Ao/2;
% definicion del parametro; Reemplazando en la ecuación de

movimiento para el tiempo t(i)
kg=(m/dt^2)+(c/2/dt)
b=(K-(2*m/dt^2))
a=((m/dt^2)-(c/2/dt))
% calculamos la respuesta
for i=1:n-1
pig=pt(i)-a*Un1-b*u(i);
u(i+1,1)=pig/kg;
Un1=u(i);
end
% grafica del movimiento del sistema

plot(t,u,'C')
hold on


% ejemplo 2: Una estructura esta sometida a una excitacion P(t)con

coeficiente de amortiguamiento critico z=0.05. calcule la respuesta en
el tiempo. suponga:
function [u,v]=IntDifcen(m,c,k,pt,dt,Uo,Vo)
% definicion

K=Wn^2*m; % (fuerza/longitud) rigidez del sistema
z=0.05; % coeficiente del amortiguamiento critico
n=length(t);

u=zeros(n,1);
v=u;
%vibración libre de ambos sistemas inicia por el mismo desplazamiento

inicial Uo y la misma velocidad inicial Vo
u(1)=Uo;
v(1)=Vo;

pt=zeros(n,1);
pt(t<=Td)=Po;
% ecuacion de la aceleracion
Ao=(Po-c*Vo-K*Uo)/m;
% ecuacion del desplazamiento en t=-1
Un1=Uo-dt*Vo+(dt^2)*Ao/2;
% definicion del parametro; Reemplazando en la ecuación de movimiento

para el tiempo t(i)
kg=(m/dt^2)+(c/2/dt)
b=(K-(2*m/dt^2))
a=((m/dt^2)-(c/2/dt))
% calculamos la respuesta
for i=1:n-1

pig=pt(i)-a*Un1-b*u(i);
u(i+1,1)=pig/kg;
Un1=u(i);
end
% grafica del movimiento del sistema

plot(t,u,'B')
hold off

Interpolación de ambas graficas con el coeficiente de

amortiguamiento critico (z=0 y z=0.05)

Ejercicio 2
Elabore una rutina en Matlab para calcular la respuesta de un sistema de un grado de
libertad utilizando el método exacto basado en la interpolación de la excitación. Escriba
la función utilizando los siguientes argumentos de input y output, donde la definición de
las variables es análoga a la anterior.
[u,v]=IntExacto(m,c,k,pt,dt,u0,v0)
Utilizando esta función resuelva el ejercicio 1 y 2 de clases. Muestre en una tabla los
valores de desplazamiento y velocidad versus tiempo.
disp('Ejercicio Nº2') % Método de diferencia Centrada

cuando el amortiguamiento critico es z=0. calcule la
% respuesta en el tiempo. suponga:
function [u,v]=IntExacto(m,c,k,pt,dt,Uo,Vo)
% definicion

k=Wn^2*m; % (fuerza/longitud) rigidez del sistema



c=2*Wn*m*z; % coeficiente de amortiguamiento viscoso (unides de
n=length(t);
% ecuacion de la frecuencia natural de vibración amortiguada

Wd=Wn*sqrt(1-z^2);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

pt=zeros(n,1);
pt(t<=Td)=Po;
%Constantes Método Exacto con Interpolación de la Excitación

A=exp(-z*Wn*dt)*((z/sqrt(1-z^2)*sin(Wd*dt))+cos(Wd*dt))
B=exp(-z*Wn*dt)*((1/Wd)*sin(Wd*dt))
C=1/k*(2*z/Wn/dt+exp(-z*Wn*dt)*(((1-2*z^2)/Wd/dt-(z/sqrt(1-
z^2)))*sin(Wd*dt)-(1+2*z/Wn/dt)* cos(Wd*dt)))
D=(1/k)*(1-(2*z/(Wn*dt))+exp(-z*Wn*dt)*((2*z^2-
1)/(Wd*dt)*sin(Wd*dt)+(2*z)/(Wn*dt)*cos(Wd*dt)))
Api=-exp(-z*Wn*dt)*(Wn/sqrt(1-z^2)*sin(Wd*dt))
Bpi=exp(-z*Wn*dt)*(cos(Wd*dt)-z/sqrt(1-z^2)*sin(Wd*dt))
Cpi=(1/k)*((-1/dt)+exp(-z*Wn*dt)*(((Wn/sqrt(1-z^2))+(z/(dt*sqrt(1-
z^2))))*sin(Wd*dt)+(1/dt)*cos(Wd*dt)))
Dpi=(1/k/dt)*(1-exp(-z*Wn*dt)*(z/sqrt(1-z^2)*sin(Wd*dt)+cos(Wd*dt)))
for i=1:n-1 u(i+1,1)=A*u(i)+B*v(i)+C*pt(i)+D*pt(i+1);

v(i+1,1)=Api*u(i)+Bpi*v(i)+Cpi*pt(i)+Dpi*pt(i+1);
end
plot(t,u,'R')
hold on



cuando el amortiguamiento critico es z=0.05. calcule la
% respuesta en el tiempo. suponga:
function [u,v]=IntExacto(m,c,k,pt,dt,Uo,Vo)
% definicion

z=0.05; % coeficiente del amortiguamiento critico
n=length(t);
% ecuacion de la frecuencia natural de vibración amortiguada

Wd=Wn*sqrt(1-z^2);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

pt=zeros(n,1);
pt(t<=Td)=Po;
%Constantes Método Exacto con Interpolación de la Excitación

A=exp(-z*Wn*dt)*((z/sqrt(1-z^2)*sin(Wd*dt))+cos(Wd*dt))
B=exp(-z*Wn*dt)*((1/Wd)*sin(Wd*dt))
C=1/k*(2*z/Wn/dt+exp(-z*Wn*dt)*(((1-2*z^2)/Wd/dt-(z/sqrt(1-
z^2)))*sin(Wd*dt)-(1+2*z/Wn/dt)* cos(Wd*dt)))
D=(1/k)*(1-(2*z/(Wn*dt))+exp(-z*Wn*dt)*((2*z^2-
1)/(Wd*dt)*sin(Wd*dt)+(2*z)/(Wn*dt)*cos(Wd*dt)))
Api=-exp(-z*Wn*dt)*(Wn/sqrt(1-z^2)*sin(Wd*dt))
Bpi=exp(-z*Wn*dt)*(cos(Wd*dt)-z/sqrt(1-z^2)*sin(Wd*dt))
Cpi=(1/k)*((-1/dt)+exp(-z*Wn*dt)*(((Wn/sqrt(1-z^2))+(z/(dt*sqrt(1-
z^2))))*sin(Wd*dt)+(1/dt)*cos(Wd*dt)))
Dpi=(1/k/dt)*(1-exp(-z*Wn*dt)*(z/sqrt(1-z^2)*sin(Wd*dt)+cos(Wd*dt)))
for i=1:n-1 u(i+1,1)=A*u(i)+B*v(i)+C*pt(i)+D*pt(i+1);

v(i+1,1)=Api*u(i)+Bpi*v(i)+Cpi*pt(i)+Dpi*pt(i+1);
end

plot(t,u,'B')
hold off

Interpolación de ambas graficas con el coeficiente de

amortiguamiento critico (z=0 y z=0.05)
Ejercicio 3
Considere las tres fuerzas impulsivas que se muestran en la figura.
Considere un sistema de un grado de libertad de periodo Tn=1 segundo y sin

amortiguamiento. Obtenga el desplazamiento versus tiempo del sistema para t d = 0.125,
0.25, 1, 1.5, 2, 2.5 y 3 segundos para los tres pulsos. Coloque la respuesta de los 7 casos
de un mismo pulso en un mismo gráfico. En el eje x grafique el tiempo normalizado t/Tn
hasta el valor 5.0. En el eje y grafique el desplazamiento normalizado u/(ust)0.
Comente sus resultados. Adicionalmente, comente sobre el desplazamiento máximo
que obtiene al usar distintos valores de incremento de tiempo dt.

% ejemplo 1: FUERZA DE PULSO RECTANGULAR; cuando el periodo natural de

vibracion amortiguado (Td=0.125)
function [u,v]=IntFuerzasimpulsivas(m,c,k,dt,Uo,Vo)
% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;
%Ecuacion de la Fase de vibración forzada(Usto)

Usto=Po/k;
%con las condiciones de reposo iniciales: U0 = V0 = 0. El análisis se

organiza en dos fases.
%la Fase de vibración forzada cuando t(i)<=Td
%la Fase de vibración libre cuando t(i)>=Td
for i=1:n
if t(i)<=Td
u(i,1)=Usto*(1-cos(Wn*t(i)));
else
u(i,1)=Usto*(cos(Wn*(t(i)-Td))-cos(Wn*t(i)));
end
end
%grafica del sistema:

plot(t/Tn,u/Usto,'R')
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;


Usto=Po/k;

for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto,'G')
hold on

vibracion amortiguado (Td=1)
% definicion

Td=1; % (seg) periodo natural de vibracion amortiguado


n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto,'B')
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto,'M')
hold on

% EJERCICIO 3:

% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;


for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto,'K')
hold on

% definicion



n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto)
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
else
end
end

plot(t/Tn,u/Usto)
hold on

Interpolación de los 7 valores que toma periodo natural de

vibración amortiguado (Td=0.125; 0.25; 1; 1.5; 2; 2.5; 3).

PARA FUERZA DE PULSO TRIANGULAR SIMÉTRICA

% ejemplo 2: FUERZA DE PULSO TRISNGULAR SIMETRICA; cuando el periodo
natural de vibracion amortiguado (Td=0.125)
% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;
%Considere ahora un sistema de 1GDL que en un principio está en reposo

y que se somete al pulso triangular simétrico
%La respuesta de un sistema de1GDL no amortiguado a este pulso puede
determinarse mediante cualquiera de los métodos
%Uno de estos metodos es el 'METODO CLASICO'
for i=1:n
if t(i)<=Td

u(i,1)=2*Usto*(1-t(i)/Td+Tn/2/pi/Td*(2*sin(2*pi/Tn)*(t(i)-
0.5*Td)-sin(2*pi*t(i)/Tn)));
%se muestra la variación respecto al tiempo de la deformación
dinámicanormalizada
else
u(i,1)=2*Usto*(Tn/2/pi/Td*(2*sin(2*pi/Tn)*(t(i)-0.5*Td)-
sin(2*pi/Tn)*(t(i)-Td)-sin(2*pi*t(i)/Tn)));
end
end
hold on

% definicion

n=length(t);


u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'c')
hold on


natural de vibracion amortiguado (Td=1)
% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'k')
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;


for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'g')
hold on

% definicion



n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'y')
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;

for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'b')
hold on


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;



for i=1:n
if t(i)<=Td
0.5*Td)-sin(2*pi*t(i)/Tn)));
else
end
end
plot(t/Tn,u/Usto,'m')
hold on


PARA FUERZA DE PULSO SINUSOIDAL DE MEDIO CICLO
% ejemplo 3: FUERZA DE PULSO SINUSOIDAL DE MEDIO CICLO; cuando el

periodo natural de vibracion amortiguado (Td=0.125)
% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;
% Para una fuerza de pulso sinusoidal en la bibliografia de 'CHOPRA' ,

% nos, presenta dos casos para la fase de vibracion forzada :
% 1º CASO: Td/Tn~=0.5
% 2º CASO: Td/Tn==0.5
% para los siguientes ejemolos usaremos el 1° CASO,es la Respuesta
dinámica de un sistema de 1GDL no amortiguado a una fuerza de pulso
sinusoidal de medio ciclo;

% y el 2° CASO representa la solución estática donde se muestra

mediante líneas discontinuas.
% Respuesta dinámica de un sistema de 1GDL no amortiguado a una fuerza

de pulso sinusoidal de medio ciclo
for i=1:n
Td/Tn~=0.5
if t(i)<=Td
u(i,1)=Usto*(1/(1-(Tn/2/Td)^2)*(sin(pi*t(i)/Td)-
Tn/2/Td*sin(2*pi*t(i)/Tn)));
else
u(i,1)=Usto*((Tn/Td*cos(pi*Td/Tn))/((Tn/2/Td)^2-
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
hold on

% definicion


n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;


for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end end
plot(t/Tn,u/Usto,'B')


periodo natural de vibracion amortiguado (Td=1)
% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;



for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
plot(t/Tn,u/Usto,'C')

% definicion



n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;


for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
plot(t/Tn,u/Usto,'M')


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;



for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
plot(t/Tn,u/Usto,'K')

% definicion



n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;


for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
plot(t/Tn,u/Usto,'G')


% definicion

n=length(t);

u=zeros(n,1);
v=u;

u(1)=Uo;
v(1)=Vo;

Usto=Po/k;



for i=1:n
Td/Tn~=0.5
if t(i)<=Td
else
1)*sin(2*pi*(t(i)/Tn-0.5*Td/Tn)));
end
end
plot(t/Tn,u/Usto,'Y')
hold off


CONCLUSIONES
El presente informe fue de mucha importancia para poder conocer el uso del
programa MATLAB en la ingeniería, se concluye satisfactoriamente con los
resultados obtenidos como ya hemos visto anteriormente.
Las diversas gráficas mostradas en el programa ya mensionado represnetan una

determinada excitación sísmica.

3 Ta Informe de Matlab

Cargado por

Copyright:

Formatos disponibles

3 Ta Informe de Matlab

Cargado por

Información del documento

Descripción original:

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

3 Ta Informe de Matlab

Cargado por

Copyright:

Formatos disponibles

UNIVERSIDAD DE HUANUCO

FACULTAD DE INGENIERIA - EAP INGENIERIA CIVIL

Elabore una rutina en Matlab para calcular la respuesta de un sistema de un grado de

m: Masa del sistema.

CURSO: INGENIERIA ANTISISMICA 1

disp('Ejercicio Nº1') % Método de diferencia Centrada

% ejemplo 1: Una estructura esta sometida a una excitacion P(t),

m=1; % (kg) masa del sistema

% visualizamos la respuesta del sistema

% matriz del desplazamiento y velocidad

%vibración libre de ambos sistemas inicia por el mismo

% matriz de la fuerza externa

% ecuacion del desplazamiento en t=-1

CURSO: INGENIERIA ANTISISMICA 2

% definicion del parametro; Reemplazando en la ecuación de

% grafica del movimiento del sistema

CURSO: INGENIERIA ANTISISMICA 3

CURSO: INGENIERIA ANTISISMICA 4

% ejemplo 2: Una estructura esta sometida a una excitacion P(t)con

m=1; % (kg) masa del sistema

% visualizamos la respuesta del sistema

% matriz del desplazamiento y velocidad

%vibración libre de ambos sistemas inicia por el mismo desplazamiento

% matriz de la fuerza externa

% ecuacion del desplazamiento en t=-1

% definicion del parametro; Reemplazando en la ecuación de movimiento

CURSO: INGENIERIA ANTISISMICA 5

% grafica del movimiento del sistema

CURSO: INGENIERIA ANTISISMICA 6

Interpolación de ambas graficas con el coeficiente de

CURSO: INGENIERIA ANTISISMICA 7

disp('Ejercicio Nº2') % Método de diferencia Centrada

% ejemplo 1: Una estructura esta sometida a una excitacion P(t),

m=1; % (kg) masa del sistema

k=Wn^2*m; % (fuerza/longitud) rigidez del sistema

CURSO: INGENIERIA ANTISISMICA 8

z=0; % coeficiente del amortiguamiento critico

% visualizamos la respuesta del sistema

% ecuacion de la frecuencia natural de vibración amortiguada

% matriz del desplazamiento y velocidad

%vibración libre de ambos sistemas inicia por el mismo desplazamiento

% matriz de la fuerza externa

%Constantes Método Exacto con Interpolación de la Excitación

for i=1:n-1 u(i+1,1)=A*u(i)+B*v(i)+C*pt(i)+D*pt(i+1);

CURSO: INGENIERIA ANTISISMICA 9

CURSO: INGENIERIA ANTISISMICA 10

% ejemplo 2: Una estructura esta sometida a una excitacion P(t),

m=1; % (kg) masa del sistema

% visualizamos la respuesta del sistema

% ecuacion de la frecuencia natural de vibración amortiguada

% matriz del desplazamiento y velocidad

%vibración libre de ambos sistemas inicia por el mismo desplazamiento

% matriz de la fuerza externa

%Constantes Método Exacto con Interpolación de la Excitación

for i=1:n-1 u(i+1,1)=A*u(i)+B*v(i)+C*pt(i)+D*pt(i+1);

CURSO: INGENIERIA ANTISISMICA 11

CURSO: INGENIERIA ANTISISMICA 12

Interpolación de ambas graficas con el coeficiente de

Considere un sistema de un grado de libertad de periodo Tn=1 segundo y sin

for i=1:n-1 u(i+1,1)=Au(i)+Bv(i)+Cpt(i)+Dpt(i+1);

for i=1:n-1 u(i+1,1)=Au(i)+Bv(i)+Cpt(i)+Dpt(i+1);