%
% pendulum_energy.m
%
% MATLAB user function for the vector field: pendulum
%
% This file was generated by the program VFGEN (Version:2.1.0)
% Generated on  3-Jun-2007 at 12:24
%
%
function r_ = pendulum_energy(t,x_,p_)
    Pi = pi;
    theta      = x_(1);
    v          = x_(2);
    g          = p_(1);
    b          = p_(2);
    L          = p_(3);
    m          = p_(4);
    r_ = -L*cos(theta)*g*m+1/2*L^2*v^2*m;
