clc
clear all
close all

syms l1  q1 beta1 real
disp('Parámetros Denavit-Hartenberg del péndulo')
disp('[ l  alpha d   q]'); dh=[l1, 0, beta1, q1]; 
disp(dh)