1. La presión atmosférica (p) varía en función de la altura (h) según la siguiente expresión: p=1035*e-0.12h, donde la altura se mide en kilómetros y ...
Interesante tutorial sobre matlabDescripción completa
Ejercicios de matlabDescripción completa
Programación I Examen Grupo: 3G
Adrian Mauricio Salcedo Chitica 25133 26 de Noviembre del 2012
1. La presión atmosférica (p) varía en función de la altura (h) según la siguiente expresión: p=1!"#e$.1%h & donde la altura se mide en 'ilómetros la presión en miliares. a) *scriir una función presion +ue calcule la presión para una altura dada. ,unción function x = presion(h) % h = altura e=2.71828; % (e)= constante 'numero de euler' p=103!e"(#0.12!h) end
) -ueremos ahora oservar en una gr/ca cómo varía la presión en función de la altura. 0ara ello& de/niremos avec como un vector de alturas +ue toma los valores enteros entre 'm !'m& aplicaremos la función +ue hemos escrito para otener los valores del vector de presiones pvec diu2aremos la gr/ca con la altura en las ascisas la presión en las ordenadas. 3gregue a esta gr/ca los rotulos de e2es encae4ado correspondientes. function p = presion$rafica( h ) %&*+,&-/- esto $rafica los alores de la altura e=2.71828; % (e)= constante 'numero de euler' x=00.1h; p=x!103!e"(#0.12!h); plot(xp); 4(',rafica de presi5n en funci5n de la altura' ); 64-4('resion'); 4-4('-ltura'); $rid; end
%. *l cuadrante de un punto (x&) se puede determinar a partir del signo de x e . *scriir una función tal +ue dadas las coordenadas x e & indi+ue a +ué cuadrante pertenece el punto. function c=cuadrante(x9) if (x:0)(9:0) displa9('u punto esta end if (x<0)(9:0) displa9('u punto esta end if (x<0)(9<0) displa9('u punto esta end if (x:0)(9<0) displa9('u punto esta end end
en el primer cuadrante )' ); en el se$undo cuadrante )' );
en el tercer cuadrante )' );
en el /uarto cuadrante )' );
`
!. 5n profesor +uiere anali4ar los resultados de los exmenes +ue propone a sus alumnos. 6ada alumno se examina ! veces en un curso. 7 en cada
ocasión reali4a dos tipos de examen: un test uno de prolemas. 0or tanto& en total son 8 exmenes por alumno. Primero hay que importar los datos “califcaciones”.
a) 6alcular la media por cada tipo de examen en cada convocatoria. La función dee devolver un vector con las 8 medias. function mdc = mediaconocatoria ( - )
% a) /alcular la media por cada tipo de examen en cada conocatoria. % 4a funci5n dee deoler un ector con las > medias. ?mn@=siAe(-); p=0; for i=1m p=pB-(i27); end p=pCm; fprintf('4a media para cada tipo de examen es =Dn %2.2f Dn %2.2f Dn %2.2f Dn %2.2fDn %2.2f Dn %2.2f Dn' p) end
) 6alcular la media por alumno. 9amién se devolver un vector con todas las medias. function mda = mediaalumno ( - ) % ) /alcular la media por alumno. amiEn se deolerF un ector con todas las medias.
?mn@=siAe(-) p=0; for i=1> p=pB-(110i); end pr=pCn; fprintf('4a media para alumno es =Dn %2.2f Dn' pr) end
c) *scriir una función +ue indi+ue el número de alumnos cua nota media es superior a la media de todos los exmenes para todos los alumnos. function G=mediadcadauno(-) % a) /alcular la media por cada tipo de examen en cada conocatoria. % 4a funci5n dee deoler un ector con las > medias. ?mn@=siAe(-); p=0;
for i=1m p=pB-(i27); end p=pCm; % ) /alcular la media por alumno. amiEn se deolerF un ector con todas las medias. p=0; for i=1> p=pB-(110i); end pr=pCn; sumaHexamenes=0; mediaHexamenes=0; sumaHtotalHexamenes=0; cont=0; for 9=1n for x=1m sumaHexamenes=sumaHexamenesB-(x9); end mediaHexamenes= sumaHexamenesC(m); %media examenes cCu fprintf('%s %d %s %f Dn' 'la media del examen '9' es 'mediaHexamenes); end for 9=1n sumaHtotalHexamenes=sumaHtotalHexamenesBmediaHexamenes; end mediaHtotalHexamenes=sumaHtotalHexamenesC(n); fprintf('%s %d Dn''la media de los examenes es ' mediaHtotalHexamenes); for x=1m if (p):(pr) cont= contB1; end end fprintf('%s %d Dn''4 *-4 I -4JK+* I KI- K-*& - 4- I 4* 6-K+ 'cont); end
Utiliza para todo esto el archivo Califcaciones que se encuentra en la plataorma de este debes obtener los datos para el ejercicio.
. *laorar un script +ue ingrese datos de una matri4 de m x n elementos todos ;ngresados por teclado despliegue a la pantalla las posiciones de los elementos repetidos en la matri4 2unto al valor repetido. % laorar un script Lue in$rese datos de una matriA de m x n elementos todos n$resados por teclado 9 desplie$ue a la pantalla las posiciones de los elementos repetidos en la matriA Munto al alor repetido. function matriA=repetidos(-) n=len$th(-); N=1; Ohile N<=n ?elemento repitencia@=find(-==-(N)); fprintf('l elemento%3dDn se repite%3d eces Dn en.. %d Dn '-(N)len$th(repitencia)?elemento repitencia@); -(repitencia)=?@; n=len$th(-); end end
". *scria un ?. Las 8 casillas del talero. 6alcule el total de granos necesarios para pagarle al creador del 2uego. 3dems& si ! granos pesan .1 gramos& cual es el peso total del arro4 a pagar. function re9 clc; arroA=0; for i=1>P arroA=iB(arroA!2); end arroA=arroAC2; $ramos=(arroAC30); %e usa una re$la de tres fprintf('l total de $ranos Lue se necesita pa$ar el re9 es.. total del arroA a pa$ar es.. %fDn' arroA$ramos);
%f Dn l peso
8. *laore un script +ue solicite una matri4 de m x n elementos +ue corresponda a un sistema de ecuaciones lineales se muestre a la pantalla la matri4 r educida e indi+ue si el sistema tiene solución única o multiple. function a=reducida m=input('n$rese el tamaQo de las filas ' ); n=input('n$rese el tamaQo de las columnas ' ); for i=1m for M=1n fprintf('in$rese K?%d@?%d@ 'iM); K1(iM)=input(''); end end &=rref(K1) %l comando rref produce la forma reducida escalonada por Rlas de una matriA usando la eliminaciSon de ,auss#Tordan if &==e9e(mn) disp('olucion unica') else disp('olucion Kultiple') end
@. 5na esfera de aluminio sometida a una corriente elAectrica constante& se mide la temperatura de la esfera a intervalos de tiempo deBnidos& la siguiente tala muestra los resultados de la pruea
Ctenga un polinomio de orden +ue aproxime el comportamiento de la temperatura con respecto al tiempo. function ea=esferadealuminio(I) ?mn@=siAe(I); x=I(1); % ,enera un ector 9=I(2); % ,enera un ector p=pol9fit(x9P); % le$imos $rado P A=pol9al(px); hold on; disp('4 polinomio de cuarto orden es...' ) disp(p) plot(xA) end
D. etermine las raEces de los siguientes polinomios: a) x%F %xG ! = a!"# $ %& a! #
