03-introduccion-a-la-programacion-con-matlab-46-ejercicios-resueltos-con-varias.pdf

"#$%&'())*+# , -, .%&/%,0,)*+# )&# 123425 67 898%)*)*&: %8:(8-$&: )=.-*),',: ;,%*,: :&-()*:< $&',: )-,%,08#$8

1,),%*& >&-& ?:,&-, >%&@8:&% 3*$(-,% '8 48#/(,98: A B*:$80,: "#@&%0C$*)&: 8# -, ?#*;8%:*',' '8 D,:$*--,E4, 1,#)F,

# $%&%'() *)+) ,-%)+%. /0"/ 1%&%'()23)+)451%(+2&)1

"

GHI"DJ IJ JKJLD"D"MB 678'&(&() "2 9%&:)'(%+ (:8'%:(;) 22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 " 678'&(&() /2 <=18') &)1>(?%:)'() 22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 @ 678'&(&() A2 !" 3)' B%C+)' 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 D 678'&(&() E2 #!$%&"' 3)' B%C+)' 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 "A 678'&(&() F2 9%&:)'(%+ '8&G'-(;) 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 "E 678'&(&() H2 ()*%$+,,) 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 "H 678'&(&() @2 I% J(;(?% 3')3)'&(K?22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 "D 678'&(&() L2 M)?;8'-(K? J8 8?:8') % >(?%'() 22222222222222222222222222222222222222222222222222222222222222222222222222 /0 678'&(&() D2 M)?:%J)' J8 %3%'(&()?8- 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 /F 678'&(&() "02 *')JG&:) 8-&%+%' 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 /L 678'&(&() ""2 9(>)?%&&( 8? G? ;8&:)' 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 A" 678'&(&() "/2 N(-:%?&(% %+ 3'(18') 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 AA 678'&(&() "A2 <=18')- 3'(1)- 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 E" 678'&(&() "E2 O8&:)' &)? +)- $ 3'(18')- ?=18')- 3'(1)-22222222222222222222222222222222222222222222222 EE 678'&(&() "F2 O8&:)' &)? +)- $ 3'(18')- ?=18')- 3'(1)- )'J8?%J)- J8 1%C)' % 18?)' EH 678'&(&() "H2 M%+&G+%' 8+ 8?P-(1) ?=18') 3'(1)2222222222222222222222222222222222222222222222222222222222222222 EL 678'&(&() "@2 M)?:%' ?=18')- J(-:(?:)- 8? G? ;8&:)' 2222222222222222222222222222222222222222222222222222222 ED 678'&(&() "L2 N8-&)13)-(&(K? 8? Q%&:)'8- 3'(1)- RST 2222222222222222222222222222222222222222222222222222222 F0 678'&(&() "D2 N8-&)13)-(&(K? 8? Q%&:)'8- 3'(1)- RSST222222222222222222222222222222222222222222222222222222 F/ 678'&(&() /02 $UV(1) &)1=? J(;(-)'2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 FE 678'&(&() /"2 B%>+8') J8 %78J'8W2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 FH 678'&(&() //2 X+Q(+ 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 F@ 678'&(&() /A2 6+ &%>%++) J8 %78J'8W 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 H" 678'&(&() /E2 $%:'(W (J8?:(J%J 22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 HL 678'&(&() /F2 N(%5)?%+ 3'(?&(3%+ 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 @0 678'&(&() /H2 B'%W% J8 G?% 1%:'(W 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 @A 678'&(&() /@2 ,?)- C &8')- %+:8'?%J)-22222222222222222222222222222222222222222222222222222222222222222222222222222222222222 @F

"

.+,+/)% 0%1% 2#+%1+

678'&(&() /L2 $%:'(W J8 O%?J8'1)?J8 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222 L" 678'&(&() /D2 $%:'(W J8 9(>)?%&&(22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 LA 678'&(&() A02 *')JG&:) J8 1%:'(&8-2 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 LF 678'&(&() A"2 B'(U?5G+) J8 B%':%5+(% 22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 L@ 678'&(&() A/2 B'(U?5G+) 8YG(+U:8')222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222 D0 678'&(&() AA2 $%:'(W :'(%?5G+%' -G38'()' 222222222222222222222222222222222222222222222222222222222222222222222222222222222 DF 678'&(&() AE2 N(%5)?%+8- YG8 -8 (?&'818?:%? RST 2222222222222222222222222222222222222222222222222222222222222222 DD 678'&(&() AF2 N(%5)?%+8- YG8 -8 (?&'818?:%? RSST 2222222222222222222222222222222222222222222222222222222222222"0/ 678'&(&() AH2 <=18')- )'J8?%J)- 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"0A 678'&(&() A@2 <=18')- )'J8?%J)- J8-&8?J8?:818?:8 22222222222222222222222222222222222222222222222222"0F 678'&(&() AL2 Z(5W%5 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"0H 678'&(&() AD2 N(-:%?&(%- 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"0@ 678'&(&() E02 N(-:%?&(% 8? +8:'%- 22222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222""" 678'&(&() E"2 [G-&%J)' J8 &%J8?%- 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222""A 678'&(&() E/2 N8:8&&(K? J8 3%+\?J')1)- 2222222222222222222222222222222222222222222222222222222222222222222222222222222""F 678'&(&() EA2 6+ 1)?:82222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"/E 678'&(&() EE2 MU+&G+) J8 3( R]T 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"/D 678'&(&() EF2 I% -%+(J% J8+ +%>8'(?:) 222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"AA 678'&(&() EH2 [=-YG8J% >(?%'(% 2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222"A@

/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& NO P,)$&%*,- *$8%,$*;& L8,-*Q,% (#, @(#)*+# R(8< %8)*S*8#'& )&0& ,%/(08#$& '8 8#$%,', (# #T08%& 8#$8%& !< '8;(8-;, 8- @,)$&%*,- '8 '*)F& #T08%&O !" $% &' (')"*"'&' $"$+,$ -(+./'$0% 1' '$0(-1- &' 1'*'(2 1'3%43'( .$ EN A 0&:$%,% (# 08#:,98 '8 ,;*:& .&% .,#$,--,O B* ! !"#$% '#()$ *"# +#$) ,#

EN A 0&:$%,% (# 08#:,98 '8 ,;*:& .&% .,#$,--,O B* ! !" $%&'( &!)&'" *& +&,&'- '&+"!+&(' .(/0( 1 O !"#"$% !"'()'"$ *+,#-./ 0/

6+ Q%&:)'(%+ J8 G? ?=18') ?%:G'%+ $ 8- 8+ 3')JG&:) J8 :)J)- +)- ?=18')- ?%:G'%+8J8-J8 " ^%-:% 8-8 ?=18') $2 6+ Q%&:)'(%+ J8 F. 3)' 87813+). 8- "_/_A_E_F`"/02 XJ81U-. 8+ Q%&:)'(%+ J8 0 8- "2 I% QG?&(K? Q%&:)'(%+ -8 '83'8-8?:% &)? G?% %J1('%&(K?a $=>$?&$@A'?BC?D?A2 •

b)+G&(K? "2

6? G?% 3'(18'% -)+G&(K? -G3)?J'81)- YG8 8+ ?=18') YG8 -8 3%-% &)1) %'5G18?:) % +% QG?&(K? 8- ?%:G'%+ C 3)-(:(;)2 *%'% &)13G:%' 8+ '8-G+:%J) ?8&8-(:%1)- =?(&%18?:8 G? >G&+8 E%/ YG8 ;%C% J8-J8 " ^%-:% $ J8 " 8? " R9G?&(K? "Ta % +% QG?&(K? +% ^81)- ++%1%J) E+,7%/)+1A C :)1% G? %'5G18?:)" $F function result = factorial1( n ) result=1; for i=1:1:n end end

result=result*i;

P(#)*+# NO ?# @,)$&%*,- :8#)*--&< :*# )&0.%&S,)*+# '8 .,%C08$%&: A )&# (# "#$ R(8 *#)%808#$,

6+ >G&+8 E%/ )>AGAG$ (?(&(%+(W% +% ;%'(%>+8 &)?:%J)' ) % " C +% ;% (?&'818?:%?J) J8 " 8? " ^%-:% $ R8+ ;%+)' J8+ %'5G18?:) 3%-%J)T2 6? 8+ &G8'3) J8+ >G&+8 -8 G:(+(W% G?% ;%'(%>+8 %&G1G+%J)'% /!#617 R3G8J8 ++%1%'-8 J8 &G%+YG(8' 1%?8'%. 38') G:(+(W%'81)- ^%>(:G%+18?:8 /!#617 3%'% ^%&8' '8Q8'8?&(% %+ '8-G+:%J) YG8 J8>8 J8;)+;8' +% QG?&(K?T 8? +% YG8 ('81)- 5G%'J%?J) 8+ '8-G+:%J) J8 &%+&G+%' 8+ ;%+)' %?:8'()' J8 /!#617 1G+:(3+(&%J) 3)' 8+ ;%+)' J8 )F M)? )>78:) J8 YG8 /!#617 ;%C% %+1%&8?%?J) &)''8&:%18?:8 +)- ;%+)'8-. 8- ?8&8-%'() (?(&(%+(W%'+% % " %?:8- J8 8138W%' 8+ >G&+82 I% B%>+% " 1G8-:'% G?% :'%W% J8 878&G&(K? J8 +% QG?&(K? &G%?J) 3%-%1)- F &)1) $G %+ 8?:'%' % +% QG?&(K?. ?( /!#617 ?( ) :(8?8? ;%+)'. C +) =?(&) ;%+)' J8+J8Q(?(J) 3%'U18:') YG8 8-:U 8- 8+ 3%'U18:') $F 6? +% %-(5?%&(K? /!#617>A YG8 ^%C %?:8- J8+ >G&+8. /!#617 :)1% 8+ ;%+)' " 38') ) -(5G8 -(? 8-:%' J8Q(?(J%2 X+ 8?:'%' %+ >G&+8 3)' 3'(18'% ;8W. /!#617 -(5G8 ;%+(8?J) " 8 ) :)1% C% ;%+)' "2

+/H6I!$7% C J+/KI!7/% -(5?(Q(&%? +) 1(-1)2 ,:(+(W%'81)- %1>%- 3%+%>'%(?J(-:(?:%18?:82 "

"

.+,+/)% 0%1% 2#+%1+

6? +% -85G?J% ;G8+:% %+ >G&+8. ) -8 ^% (?&'818?:%J) 8? ". &)? +) YG8 ;%+8 /. C % /!#617 +8 %-(5?%1)- 8+ ;%+)' YG8 :8?\% R"T 1G+:(3+(&%J) 3)' 8+ ;%+)' J8 )a +% %3%'(&(K? J8 +% 3%+%>'% /!#617 8? 8+ +%J) J8'8&^) J8 +% (?-:'G&&(K? /!#617>/!#617L) ^%&8 '8Q8'8?&(% %+ ;%+)' %&:G%+ J8 /!#617M +% %3%'(&(K? J8 /!#617 8? 8+ +%J) (WYG(8'J) ^%&8 '8Q8'8?&(% %+ ;%+)' YG8 +8 ;%1)- % %-(5?%'2 b8 &)?:(?=% J8 8-:% 1%?8'%. ^%&(8?J) 8-8 &K13G:). ^%-:% YG8 ) %+&%?&8 8+ ;%+)' N. YG8 8- 8+ ;%+)' J8 $ YG8 3%-%1)- &)1) 3%'U18:') C YG8 8- +% &)?J(&(K? J8 3%'%J% 8? 8+ >G&+8 E%/a "#$ )>AGAG!

D&08#$,%*&: X+ 8?:'%' % +% QG?&(K? X+ 878&G:%' /!#617>A I% 3'(18'% ;8W YG8 8?:'%1)- %+ >G&+8

# F F F

b85G?J% ;G8+:% %+ >G&+8

F F F F

%8:(-$ " '8-G+:`'8-G+:c( '8-G+:`"c"`" '8-G+:`'8-G+:c( '8-G+:`"c/`/ '8-G+:`/cA`H '8-G+:`HcE`/E '8-G+:`/EcF`"/0

* " / A E F

3,S-, N

b( 878&G:%1)- +% QG?&(K? J8-J8 +% +\?8% J8 &)1%?J). )>:8?81)- 8-:)a dd Q%&:)'(%+"RFT %?- ` "/0 P*/(%, N

I% 3%+%>'% +$# YG8 8-&'(>8 $XBIX[ 8- +% +$#O!/ R+% '8-3G8-:%T %+ &U+&G+) YG8 +8 ^81)- -)+(&(:%J)2 $G8-:'% G? "/0 3)'YG8. 8? +% &%>8&8'% J8 +% QG?&(K? %-(5?U>%1)- % /!#617 8+ '8-G+:%J) J8 +% QG?&(K?. C 3'8&(-%18?:8 8- /!#617 +% ;%'(%>+8 8? +% YG8 ;%1)-. (:8'%&(K? % (:8'%&(K?. %+1%&8?%?J) 8+ '8-G+:%J) YG8 J8-8%1)-2 function result = factorial1( n ) •

b)+G&(K? /2

e:'% Q)'1% J8 (13+818?:%' 8V%&:%18?:8 +) 1(-1) 8- G:(+(W%' :%1>(P? G? >G&+8 E%/. 38') YG8 ;%C% J8-J8 $ ^%-:% ". J8 f" 8? f"2 e>-8';% R9G?&(K? /T YG8 8+ >G&+8 E%/ ^% &%1>(%J)a function result = factorial2( n ) result=1; for i=n:-1:1 result=result*i; end end P(#)*+# UO ?# @,)$&%*,- :8#)*--&< :*# )&0.%&S,)*+# '8 .,%C08$%&: A )&# (# "#$ R(8 '8)%808#$,

/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

b)+G&(K? A2

•

6? 8+ 8?G?&(%J) J8+ 3')>+81% ?)- 3(J8? YG8. -( ?) 3%-%1)- ?(?5=? %'5G18?:). -8 1G8-:'8 G? 18?-%78 J8 %;(-) 3)' 3%?:%++%2 X^)'% 1(-1) -8 1G8-:'% 8+ 18?-%78 J8 8'')' 3)' J8Q8&:) J8 $XBIX[. YG8 8- >%-:%?:8 Q8)a dd Q%&:)'(%+/RT ggg S?3G: %'5G18?: h?h (- G?J8Q(?8J2 6'')' (? ``d Q%&:)'(%+/ %: A Q)' U(`?af"a" P*/(%, $)J(Q(&%'81)- +(58'%18?:8 +% QG?&(K? 3%'% YG8 -8 &)13'G8>8 YG8 -8 3%-%? %'5G18?:)- C YG8. 8? &%-) J8 YG8 ?) -8% %-\. -8 1G8-:'8 G? 18?-%78 J8 8'')' 38'-)?%+(W%J). +% QG?&(K? J8;G8+;% " C 8+ 3')5'%1% :8'1(?8a 8? +% 9G?&(K? A ^81)%i%J(J) G?%- +\?8%- J8 &KJ(5) 8? +%- YG8 G-%1)- +% 3%+%>'% '8-8';%J% $+/H)$ RYG8 (?J(&% 8+ ?=18') J8 ;%+)'8- 3%-%J)- % +% QG?&(K? &)1) 3%'U18:')-T 3%'% &)13')>%' YG8. -( 8- 0. 8+ '8-G+:%J) J8 +% QG?&(K? -8% f" R?)- +) 3(J8 8+ 8?G?&(%J)T. -8 1G8-:'8 G? 18?-%78 J8 8'')' RG-) J8 +% QG?&(K? 8)#J J8 $XBIX[T C 8+ 3')5'%1% :8'1(?8 RG-) J8 /!76/$T2 function result = factorial2( n ) if (nargin==0) result=-1; disp('Debes dar un argumento a la función'); return; end result=1; for i=n:-1:1 result=result*i; end end P(#)*+# VO J- @,)$&%*,- )&# )&0.%&S,)*+# '8- #T08%& '8 .,%C08$%&:

X^)'%. 8+ '8-G+:%J) J8 ++%1%' % +% QG?&(K? -(? %'5G18?:)- 8-a dd Q%&:)'(%+/RT N8>8- J%' G? %'5G18?:) % +% QG?&(K? %?- ` f" P*/(%, V •

b)+G&(K? E2

6+ 8?G?&(%J) :%1>(P? ?)- J(&8 YG8. -( $ 8- 18?)' YG8 &8'). -8 JP G? 18?-%78 J8 %;(-) C -8 J8;G8+;% :%1>(P? f"2 ,?% Q)'1% J8 ^%&8'+) 8- %i%J(' ):') )E J8-3GP- J8+ )E YG8 C% %i%J(1)- % +% 9G?&(K? A. J8 1%?8'% YG8 8+ &KJ(5) YG8J8 &)1) 8? +% 9G?&(K? Ea A

.+,+/)% 0%1% 2#+%1+

function result = factorial2( n ) if (nargin==0) result=-1; disp('Debes dar un argumento a la función'); return; end if (n<0) result=-1; disp('El parámetro debe ser positivo'); end return; result=1; for i=n:-1:1 result=result*i; end end P(#)*+# 6

b( (?:8?:%1)- &%+&G+%'. 3)' 87813+). 8+ Q%&:)'(%+ J8 fF. -8 1G8-:'% +% -(5G(8?:8 '8-3G8-:%a

dd Q%&:)'(%+/RfFT 6+ 3%'U18:') J8>8 -8' 3)-(:(;) %?- ` f" P*/(%, 6 •

b)+G&(K? F2

e:'% Q)'1% J8 &)?-85G(' +) 1(-1) YG8 8? +% -)+G&(K? %?:8'()' 8- &)+)&%' +%- J)&)13')>%&()?8- R8V(-:8?&(% J8 G? %'5G18?:) C YG8 P-:8 -8% 3)-(:(;)T 8? G? -)+) )EG 8? +% 9G?&(K? F G?(1)- %1>%- &)?J(&()?8- &)? G? %/ R-\1>)+) j. +% >%''% ;8':(&%+T. J8 1%?8'% YG8 -( 8+ ?=18') J8 %'5G18?:)- 8- 0 ) $ 8- 18?)' YG8 &8'). +% QG?&(K? J8;G8+;% f". -8 1G8-:'8 G? 18?-%78 J8 8'')' C -8 :8'1(?8 8+ &U+&G+)2

E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = factorial2( n ) if (nargin==0 | n<0) result=-1; disp( 'Debes dar un argumento positivo a la función' ); return ; end result=1; for i=n:-1:1 result=result*i; end end P(#)*+# W •

b)+G&(K? H2

<)- 3(J8? 8? 8+ 8?G?&(%J). 3)' =+:(1). YG8 -( $ ?) QG8'% 8?:8') -8 '8J)?J88 ^%&(% k a 8- J8&('. -( YG8'81)- &%+&G+%' 8+ Q%&:)'(%+ J8 @2LF. J8;)+;8'81)- 8+ Q%&:)'(%+ J8 L2 

,?% ;8W &)13')>%J) YG8 ^%C G? %'5G18?:) 3)-(:(;). G:(+(W%'81)- +% QG?&(K? ,!)1&"' J8 $XBIX[a -( " :(8?8 J8&(1%+8-. ,!)1&"' '8J)?J8% 8+ ;%+)' J8 " ^%&(% 8+ 8?:8') -G38'()' 1U- 3'KV(1)l -( ?) +)- :(8?8. J87% 8+ ;%+)' J8 " &)1) 8-:U2 function result = factorial2( n ) if (nargin==0 | n<0) result=-1; disp( 'Debes dar un argumento positivo a la funciÛn' ); return ; end n=ceil(n); result=1; for i=n:-1:1 result=result*i; end end P(#)*+# 7

X^)'%. +% QG?&(K? -8 &)13)':% &)''8&:%18?:8a

F

.+,+/)% 0%1% 2#+%1+

dd Q%&:)'(%+/RE2FT %?- ` "/0 dd Q%&:)'(%+RFT %?- ` "/0 P*/(%, W

H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UO HT08%& )&0S*#,$&%*& J:)%*S*% (#, @(#)*+# R(8 ),-)(-8 8- #T08%& )&0S*#,$&%*& !

!

!

! !

< :,S*8#'& R(8

!!

O 4&: ;,-&%8: '8 ! A ( :8%C# ! A R(8 !! ! ! ! ! ! ,%/(08#$&: '8 8#$%,', A 8- %8:(-$,'& '8- )C-)(-& :8 '8;&-;8%C )&0& ,%/(08#$& '8 :,-*',O !&'()

•

!

!

!

!

!

!

b)+G&(K? "2

6-&'(>('81)-)+G&(K? %+5) +%'5%. 38') 8? ^%&81)+% YG8 -8 '8%+(W% :)J) 8+ &U+&G+)a 8? +)-3'(18') 3'(18')-G?% :'8)E R1%'&%J)8? %1%'(++)T G?% &)13')>%&(K? J8 +)- %'5G18?:)-2 6? 8+ -(5G(8?:8 &)13')>%1)- -( I 8- 0 ) -( $>>I. &)? +) YG8 J8>81)- J8;)+;8' " &)1) '8-G+:%J)2 6? +)- -(5G(8?:8- :'8- >+)YG8- &%+&G+%1)- +)- Q%&:)'(%+8- J8 $P I C J8 $@I G-%?J) :'8- >G&+8- E%/ &)1) +)- YG8 C% G:(+(W%1)- 8? +% 3'(18'% -)+G&(K? % +% QG?&(K? Q%&:)'(%+ R3U5(?% "T2 6-:)- Q%&:)'(%+8- +)- 5G%'J%1)- 8? :'8- ;%'(%>+8- ++%1%J%E+,7%/)+1QP E+,7%/)+1. C E+,7%/)+1QI!$%#.2 9(?%+18?:8. %-(5?%1)- % +% ;%'(%>+8 J8 '8-G+:%J) R/!#617' 8+ &U+&G+) -)+(&(:%J)2 function result = numeroCombinatorio1( n, m ) if (nargin~=2) disp( 'Se necesitan dos argumentos' ); return ; end if (n<0 | m<0) disp( 'Los argumentos deben ser positivos' ); return ; end if (n
@

.+,+/)% 0%1% 2#+%1+

end result=factorialN/(factorialM*factorialNmenosM); end P(#)*+# X •

b)+G&(K? /2

6? G?% -)+G&(K? 18?)- &)13+(&%J% 3)J81)- G:(+(W%' &G%+YG(8'% J8 +%- QG?&()?8Q%&:)'(%+ YG8 8-&'(>(1)- &)1) -)+G&()?8- J8+ 878'&(&() "2 [%-:% &)? 8-&'(>(' G?% ?G8;% QG?&(K? 8? +% YG8 +%- ++%1%1)-a function result = numeroCombinatorio2( n, m ) result=factorial1(n)/(factorial1(m)*factorial1(n-m)) end P(#)*+# Y •

b)+G&(K? A2

6? +%- J)- -)+G&()?8- %?:8'()'8- '838:(1)- &U+&G+)-2 bG3)?5%1)- YG8 ?)- 3(J8? &%+&G+%' !" a &%+&G+%1)- 3'(18') E+,7%/)+1Q>AR?S?T?U?4?N?3?C?D?A C +G85) ! &)13G:%1)- E+,7%/)+1.>N?3?C?D?AP &)? +) YG8 8-:%1)- '83(:(8?J) 3%':8 J8+ &U+&G+) J8+ E+,7%/)+1QF b( J8>(P'%1)- ^%&8' 8-:8 &U+&G+) % 1%?). 3')>%>+818?:8 &%+&G+%'\%1)- 3'(18') 8+ Q%&:)'(%+ J8 I C +G85). %+ &%+&G+%' 8+ J8 $P ?)- J8:8?J'\%1)- %+ ++85%' %+ ;%+)' J8 IF 6- J8&('. YG8 E+,7%/)+1Q>AR?S?T?U?4?E+,7%/)+1.F 6-:) 8- +) YG8 ^%&81)- 8? 8-:% -)+G&(K? R9G?&(K? DT. YG8 '8YG(8'8 18?)- :(813) J8 &K13G:)a 8? +% 3'(18'% +\?8% -8 &%+&G+% 8+ Q%&:)'(%+ J8 Il +G85). 8? 8+ >G&+8 E%/ '8-%+:%J) 8? %1%'(++). ;%1)5G%'J%?J) 8? E+,7%/)+1Q 8+ ;%+)' J8 1G+:(3+(&%' ) J8-J8 $ ^%-:% 8+ ;%+)' J8 IVAF 6? +% (?-:'G&&(K? -(5G(8?:8. 1G+:(3+(&%1)- 8+ ;%+)' J8 E+,7%/)+1Q 3)' 8+ ;%+)' J8 E+,7%/)+1. YG8 ^81)- &%+&G+%J) %?:8-. J8 1%?8'% YG8 ?)- %^)''%1)- G?%- &G%?:%;G8+:%- J8 >G&+82 9(?%+18?:8 &%+&G+%1)- &$@I'= 3)' 8+ 1P:)J) :'%J(&()?%+ C &%+&G+%1)- 8+ '8-G+:%J) Q(?%+ J8+ ?=18') &)1>(?%:)'()2 b8 ^%? )1(:(J) +%&)13')>%&()?8- J8 %'5G18?:)- 3%'% Q%&(+(:%' +% +8&:G'% J8+ &KJ(5)2 function result = numeroCombinatorio3( n, m ) factorialM=factorial1(m); factorialN=1; for i=n:-1:m+1 factorialN=factorialN*i; end factorialN=factorialN*factorialM; factorialNmenosM=factorial1(n-m); result=factorialN/(factorialM*factorialNmenosM); end P(#)*+# Z

L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& VO *+ .&% 3,A-&% L8,-*Q,% (#, @(#)*+# R(8 %8)*S*8#'& )&0& ,%/(08#$& '8 8#$%,', (# #T08%& %8,- = '8;(8-;, 8- ;,-&% '8 -, 8=.#)*,- '8 '*)F& #T08%&< R(8 '8S8%C ),-)(-,%:8 08'*,#$8 :( :8%*8 '8 3,A-&% $%(#),', 8# ! '8 $,- @&%0, R(8 88%%&% ,S:&-($& 8#$%8 -, :8%*8 8# 8- $[%0*#& !,- A ! :8, 08#&% '8 N\EXO 4, :8%*8 '8 3,A-&% '8 -, 8=.#)*,- ;*8#8 ',', .&% -, 8=.%8:*+#] !

! !

!

!

!!!

•

!

!!

!

!!

b)+G&(K? "2

X?:8- J8 (13+818?:%' +% QG?&(K? 8- &)?;8?(8?:8 3+%?:8%' G? 87813+) 3%'% ;8' &K1) 3)J81)- %>)'J%' +% -)+G&(K?2 X+ 3')5'%1%' QG?&()?8- J8 &U+&G+). 8? 1G&^)&%-)-. J8>81)- (?:8?:%' (1(:%' ?G8-:') 3')3() '%W)?%1(8?:)2 bG3)?5%1)- YG8 J8-8%1)- &%+&G+%' !N R&GC) ;%+)' 8- "EL.E"A"FD"0/F@HET 18J(%?:8 +% %3')V(1%&(K? J8 B%C+)'a !

! !

!!

!!!

!

!

!

!

!

! !

!!

!

! !

!!

! !

!!

! !

!

!!

!

!

*%'%'81)- &G%?J) +% J(Q8'8?&(% 8?:'8 8+ :P'1(?) $@A C 8+ $ -8% 18?)' YG8 02000000"2 *%'% G?% 3'(18'% -)+G&(K? ?) :8?J'81)- 8? &G8?:% 8-:% &)?-(J8'%&(K? J8+ 8'')' %>-)+G:). C +) YG8 ^%'81)- -8'U (:8'%'. 3)' 87813+). "00 ;8&8-2 6- J8&('a !""

! !

! !

!!!

!!

!

!

!

! !

!!

!

! !

!!

!

! !

!!

! !

!!

! !

!

!

!!

!!!

!""

! !

,?% Q)'1% J8 (13+818?:%' 8-:% -)+G&(K? 8- +% -(5G(8?:8a function result = exponencialPorTaylor1( x ) result=0; for n=0:1:100 result=result+(x^n)/factorial(n); end end P(#)*+# N\

6+ '8-G+:%J) J8 &%+&G+%' !"J%$!$,)+10%/:+W1%/A&N' 8-a dd 8V3)?8?&(%+*)'B%C+)'"RFT %?- ` "EL2E"A/ P*/(%, 7

D

!""!

.+,+/)% 0%1% 2#+%1+

•

b)+G&(K? /2

*)J81)- 8-&'(>(' G?% -)+G&(K? 3%'8&(J% % +% %?:8'()'. 38') G:(+(W%?J) G? OX)1! 8? +G5%' J8 G? E%/F N('81)- 8?:)?&8- YG8 I)!$7/+# $ &Y6! !# 1+ Z+/)+*1! ,%$7+8%/ 8!1 *6,1!' #!+ I!$%/ % )H6+1 + ARR. '8%+(&8 8+ &U+&G+)a function result = exponencialPorTaylor2( x ) result=0; n=0; while (n<=100) result=result+(x^n)/factorial(n); n=n+1; end end P(#)*+# NN •

b)+G&(K? A2

M)? )>78:) J8 (' %&8'&U?J)?)- % +) YG8 ?)- 3(J8 8+ 8?G?&(%J). ;%1)- % 1)J(Q(&%' +(58'%18?:8 8+ &KJ(5) %?:8'()' 3%'% YG8 +% QG?&(K? ?)- 1G8-:'8 +% J(Q8'8?&(% 8?:'8 8+ ;%+)' &%+&G+%J) 3%'% $ C 3%'% $@A2 $U- %J8+%?:8. 8? ):'% -)+G&(K?. G:(+(W%'81)8-:8 ;%+)' R8+ 8'')' %>-)+G:)T &)1) &)?J(&(K? J8 3%'%J% 3%'% J8;)+;8' 8+ '8-G+:%J) -)+(&(:%J)2 6? +% 9G?&(K? "/ ^81)- %i%J(J) G?%- +\?8%- %+ &KJ(5) %?:8'()'a C% YG8 ?8&8-(:%1)&)13%'%'. 8? &%J% (:8'%&(K? J8+ >G&+8. 8+ '8-G+:%J) YG8 -8 %&%>8 J8 &%+&G+%' &)? 8+ %?:8'()'. &'8%1)- %?:8- J8+ OX)1! G?% ;%'(%>+8 617)I%[!#617+8% % +% YG8 %-(5?%1)8+ ;%+)' (?Q(?(:) RQG?&(K? \$E&' J8 $XBIX[T2 IG85). 8? &%J% ;G8+:% J8+ >G&+8. %-(5?%1)- % G?% ;%'(%>+8 !//%/ +% J(Q8'8?&(% 8?:'8 8+ =+:(1) '8-G+:%J) &%+&G+%J) R%+1%&8?%J) 8? +% ;%'(%>+8 617)I%[!#617+8% YG8 ^81)- &'8%J) 8V 3')Q8-) 3%'% 8-:)T C 8+ '8-G+:%J) YG8 -8 %&%>% J8 &%+&G+%'2 $)-:'%1)- 8+ !//%/ 3)' +% &)?-)+% R8)#J&!//%/'T C. 3)' =+:(1). %&:G%+(W%1)- 8+ ;%+)' J8 617)I%[!#617+8% %+ ;%+)' YG8 -8 %&%>% J8 &%+&G+%'2 function result = exponencialPorTaylor3( x ) result=0; n=0; ultimoResultado=Inf(); while (n<=24) result=result+(x^n)/factorial(n); error=ultimoResultado-result; ultimoResultado=result; disp(error); n=n+1; end end P(#)*+# NU

b( 878&G:%1)- !"J%$!$,)+10%/:+W1%C&N'. $XBIX[ 1G8-:'% +) -(5G(8?:8a dd8V3)?8?&(%+*)'B%C+)'ARFT "0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

S?Q fF f"/2F f/02LAAAAAAAAAAAA f/H20E"HHHHHHHHH@ f/H20E"HHHHHHHHH@ f/"2@0"ALLLLLLLLD f"F2F00DD/0HAED/" fD2HLL"/00ADHL/FA fF2AL//LLD"0DAE@A f/2HD""EEEFFEH@A@ f"2//A/E@E@D@F@D f02F0DHLHEEDLDD"AF f02"DH0AA/EDDH"/0E f020@00""L@EDLH"AH f020/AAA@/D"HH/0EFA f0200@/D/D0AHEEALALE f0200/"EED@"HH0"0""D f02000FDFL/FEH""E@""F f02000"FH@DH"@ADDHFFE fA2D"DD0EAEDD"ALF8f0F fD2AAA"0FFDF0A/DL8f0H f/2"/""H0AEDFLLFE8f0H fE2H""/"L/L@/0DAE8f0@ fD2H0H@0FE@FFH/"D8f0L 0 0 222 0 %?-` "EL2E"A"FD0@LLA@ P*/(%, X

I% +%'5% +(-:% J8 ?=18')- YG8 1G8-:'% R^81)- )1(:(J) >%-:%?:8- &8')- %+ Q(?%+T -8 &)''8-3)?J8 &)? +)- ;%+)'8- J8 !//%/ &%+&G+%J)- 8? &%J% (:8'%&(K? J8+ >G&+8 OX)1!F •

b)+G&(K? E2

*%'% &G13+(' &)? 8+ 8?G?&(%J). 8+ &K13G:) J8>8 J8:8?8'-8 8? 8+ 1)18?:) 8? YG8 f@

8+ ;%+)'J8+ %>-)+G:) J8+ !//%/ YG8 "0 2+%M)1) +) ;%1)&%+&G+%?J) 8? &%J% ;G8+:% >G&+8. >%-:% &)? -8% YG818?)' 1)J(Q(YG81)&)?J(&(K? J8 3%'%J% J8+ OX)1! 3%'% YG8. 8? +G5%' J8 J%' "00 ;G8+:%- Q(7%-. 8-:P J%?J) ;G8+:%- 1(8?:'%- 8+ ;%+)' %>-)+G:) J8 !//%/ -8% 1%C)' ) (5G%+ % "0 f@2 6- J8&('. YG8 1)J(Q(&%1)- 8+ &KJ(5) 3%'% YG8 YG8J8 &)1) -(5G8a

""

.+,+/)% 0%1% 2#+%1+

function result = exponencialPorTaylor4( x ) result=0; error=Inf(); ultimoResultado=Inf(); n=0; while (abs(error)>=10e-7) result=result+(x^n)/factorial(n); error=ultimoResultado-result; ultimoResultado=result; n=n+1; end end P(#)*+# NV

"/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 6O .*!#/+0 .&% 3,A-&% J:)%*S*% (#, @(#)*+# R(8 %8)*S*8#'& )&0& ,%/(08#$& '8 8#$%,', (# #T08%& %8,- + '8;(8-;, 8- :8#& '8 '*)F& #T08%&< R(8 '8S8%C ),-)(-,%:8 08'*,#$8 :( :8%*8 '8 3,A-&% $%(#),', 8# ! '8 $,- @&%0, R(8 8- 8%%&% ,S:&-($& 8#$%8 -, :8%*8 8# 8- $[%0*#& !,- A ! :8, 08#&% '8 N\8EXO 4, :8%*8 '8 3,A-&% '8- :8#& ;*8#8 ',', .&% -, 8=.%8:*+#] !

!"#$ !

!

!!!

•

!!!!

!

!" ! ! !

!

!"!! !

!!

b)+G&(K? "2

I% -)+G&(K? % 8-:8 878'&(&() 8- 1GC 3%'8&(J% % +% J8+ %?:8'()'a C% YG8 ?) -%>81)8V%&:%18?:8 &GU?:%- (:8'%&()?8- J8>81)- ^%&8'. -(?) -K+) +% &)?J(&(K? J8 3%'%J%. +) ^%'81)-. &)1) %?:8-. &)? G? >G&+8 OX)1!2 I% &)?J(&(K? J8 3%'%J% -8'U +% 1(-1%. C +% Q)'1% J8 &U+&G+) :%1>(P? 1GC -(1(+%'2 M%1>(%'U =?(&%18?:8 +% QK'1G+% J8 %-(5?%&(K? J8+ '8-G+:%J)2 function result = senoTaylor(x) result=0; error=Inf(); resultAnterior=Inf(); n=0; while (abs(error)>=10e-7) result=result+((-1)^n/factorial(2*n+1))*(x^(2*n+1)); error=abs(result-resultAnterior); n=n+1; resultAnterior=result; end end P(#)*+# N6

"A

.+,+/)% 0%1% 2#+%1+

J98%)*)*& WO P,)$&%*,- %8)(%:*;& J:)%*S*% (#, @(#)*+# R(8 ),-)(-8 8- @,)$&%*,- '8 0,#8%, %8)(%:*;,O •

b)+G&(K? "2

,?% QG?&(K? '8&G'-(;% 8- G?% QG?&(K? YG8. 8? -G (13+818?:%&(K?. &)?:(8?8 G?% ++%1%J% % -\ 1(-1%2 I% QG?&(K? Q%&:)'(%+ -8 J8-&'(>8 '8&G'-(;%18?:8 J8 Q)'1% 1GC ?%:G'%+. C% YG8a $=>$?&$@A'=

6- J8&('. 8+ Q%&:)'(%+ J8 $ 8- $ 1G+:(3+(&%J) 3)' 8+ Q%&:)'(%+ J8 $@AF 6? 8Q8&:). Fm`F_E_A_/_" ). +) YG8 8- +) 1(-1). Fm`F_Em. C% YG8 EmÈ_A_/_"2 6? +%- QG?&()?8- J8>8 ^%>8' -(813'8. %+ 18?)-. G? &%-) >%-8. YG8 ^%5% YG8 +%-G&8-(;%- ++%1%J%- % +% QG?&(K? -8 J8:8?5%?2 6? 8+ &%-) J8+ Q%&:)'(%+. 8+ &%-) >%-8 -8 %+&%?W% &G%?J) $>R. C% YG8 0m`"2 6? +% 9G?&(K? "F 3'85G?:%1)- YG8 -( 8+ %'5G18?:) YG8 -8 8-:U 3%-%?J) 8- 0a 8? &%-) %Q('1%:(;). %-(5?%1)- % /!#617 8+ ;%+)' " C +% ++%1%J% % +% QG?&(K? :8'1(?%l 8? &%-) ?85%:(;). %-(5?%1)- % /!#617 8+ '8-G+:%J) J8 1G+:(3+(&%' $ 3)' 8+ Q%&:)'(%+ J8 $@ A. :%+ C &)1) ^%&\%1)- %''(>% %+ 8-&'(>(' $=>$?&$@A'= function result = factorialRecursivo( n ) if (n==0) result=1; elsereturn result=n*factorialRecursivo(n-1); return end end P(#)*+# NW

bG3)?5%1)- YG8 J8-8%1)- &%+&G+%' '8&G'-(;%18?:8 8+ Q%&:)'(%+ J8 F2 I% -(5G(8?:8 :%>+% 1G8-:'% G?% :'%W% J8 +) YG8 ;% -G&8J(8?J) %+ 8-&'(>(' 8? +% +\?8% J8 &)1%?J) J8 $XBIX[ E+,7%/)+1[!,6/#)Z%&N'G

D&08#$,%*&: # %8:(-$ "n ++%1%J% % +% QG?&(K?2 b8 F 878&G:% E+,7%/)+1[!,6/#)Z%&N' M)1) $ ?) 8- 0. -8 8?:'% %+ !1#! F '8-G+:`FcQ%&:)'(%+o8&G'-(;)RET /n ++%1%J%2 b8 878&G:% E E+,7%/)+1[!,6/#)Z%&3'2 $ :)1% %^)'% 8+ ;%+)' E M)1) $ ?) 8- 0. -8 8?:'% %+ !1#! E '8-G+:Èc Q%&:)'(%+o8&G'-(;)RAT An ++%1%J%2 b8 878&G:% A E+,7%/)+1[!,6/#)Z%&C'2 $ 8?:'% ;%+(8?J) A

"E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

D&08#$,%*&: M)1) $ ?) 8- 0. -8 8?:'% %+ !1#! A En ++%1%J%2 b8 878&G:% E+,7%/)+1[!,6/#)Z%&D'2 6+ ;%+)' J8 $ 8- / M)1) $ ?) 8- 0. -8 8?:'% %+ !1#! Fn ++%1%J%2 b8 878&G:% E+,7%/)+1[!,6/#)Z%&A'2 $ ++85% ;%+(8?J) " M)1) $ ?) 8- 0. -8 8?:'% %+ !1#! Hn ++%1%J%2 b8 878&G:% E+,7%/)+1[!,6/#)Z%&R'2 $ ;%+8 0 $ 8- %^)'% 0. 3)' +) YG8 8- &(8':% +% &)?J(&(K? J8+ )E &$>>R'

#

%8:(-$ '8-G+:Àc Q%&:)'(%+o8&G'-(;)R/T

/ / "

'8-G+:`/cQ%&:)'(%+o8&G'-(;)R"T

" 0

'8-G+:`"cQ%&:)'(%+o8&G'-(;)R0T

0

'8-G+:`"

]$ !#7! J6$7% #! X+ +1,+$^+8% !1 ,+#% *+#!P J%/ 1% Y6! $% X+W IK# 11+I+8+# /!,6/#)Z+#F 9X%/+P !1 Z+1%/ ,+1,61+8% !$ 1+ 4_ 11+I+8+ #! 67)1)^+ J+/+ ,+1,61+/ !1 Z+1%/ 8! 1+ N_ 11+I+8+P Y6! + #6 Z!^ #! 67)1)^+ J+/+ ,+1,61+/ !1 8! 1+ 3_P !7,`7!/+F

o85'8-) % +% Fn ++%1%J%2 o85'8-) % +% En ++%1%J%2 o85'8-) % +% An ++%1%J%2 o85'8-) % +% /n ++%1%J%2 o85'8-) % +% "n ++%1%J%2

" / A E F

'8-G+:`"cQ%&:)'(%+o8&G'-(;)R0T`"c"`" '8-G+:`/cQ%&:)'(%+o8&G'-(;)R"T`"c/`" '8-G+:ÀcQ%&:)'(%+o8&G'-(;)R/TÀc/`H '8-G+:ÈcQ%&:)'(%+o8&G'-(;)RATÈcH`/E '8-G+:`FcQ%&:)'(%+o8&G'-(;)RFT`Fc/E`"/0

3,S-, U

"F

.+,+/)% 0%1% 2#+%1+

J98%)*)*& 7O 123#!4552 J:)%*S*% (#, @(#)*+# R(8 ),-)(-8 8- $[%0*#& ! '8 -, @(#)*+# '8 P*S&#,))*< R(8 ;*8#8 ',', .&%] =N^N_ =U ^ N_ =*^=*EN`=*EU •

b)+G&(K? "2

*G8-:) YG8 C% -%>81)- G? 3)&) J8 '8&G'-(;(J%J. 8- QU&(+ )>-8';%' YG8 +% QG?&(K? J8 9(>)?%&&( -8 J8-&'(>8 1GC >(8? J8 Q)'1% '8&G'-(;%a E)*%$+,,)&A'>A E)*%$+,,)&D'>A E)*%$+,,)&$'>E)*%$+,,)&$@A' V E)*%$+,,)&$@D'P #) $aD

e>-8';%1)- YG8 ^%C J)- &%-)- >%-8a G?) &)? $>R C ):') &)? $>AF 6? 8-:)- J)&%-)-. 8+ ;%+)' J8 +% QG?&(K? 8- "2 6+ &KJ(5) 3G8J8 -8' 8+ -(5G(8?:8a function result=fib(n) if (n==1) result=1; elseif (n==2) result=1; else result=fib(n-1)+fib(n-2); end end P(#)*+# N7O P*S&#,))* %8)(%:*;& )&# '&: ),:&: S,:8 •

b)+G&(K? /2

e>-P';8?-8 8? 8+ &KJ(5) %?:8'()' +)- J)- &%-)- >%-8. 1%'&%J)- 8? %1%'(++)2 o8%+18?:8. 3)J81)- %5'G3%'+)- 8? G?) -)+)a function result=fib2(n) if (n<=2) result=1; else result=fib(n-1)+fib(n-2); end end P(#)*+# NXO P*S&#,))* %8)(%:*;& )&# (# ),:& S,:8 •

b)+G&(K? A2

MG%+YG(8'% J8 +%- J)- -)+G&()?8- YG8 ^81)- J%J) %''(>% 8- 1GC &)-:)-% 8? :P'1(?)- J8+ ?=18') J8 -G1%- YG8 8- ?8&8-%'() '8%+(W%'2 *%'% &%+&G+%' % 1%?). 3)' 87813+). E)*&T'P ^%&81)- +) -(5G(8?:8a E)*&T'>E)*&U'VE)*&4'>

"H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

> bE)*&4'VE)*&N'c V bE)*&N'VE)*&3'c > > d bE)*&N'VE)*&3'c V bE)*&3'VE)*&C'c e V d bE)*&3'VE)*&C'c V bE)*&D'VE)*&A'c e > B

6+ 1(-1) &K13G:). YG8 '8-G+:% &)13+(&%J) 8-&'(>('+) 8? Q)'1% J8 8&G%&(K?. -8 3G8J8 '83'8-8?:%' J8 Q)'1% %'>)'8-&8?:8a ?K:8-8 YG8 ^%C &U+&G+)- YG8 -8 '83(:8? ;%'(%- ;8&8-. C )>-P';8-8 YG8 8+ &%-) >%-8 -8 %+&%?W% 8? :):%+ /" ;8&8-. &)''8-3)?J(8?:8- % +)- /" G?)- YG8 ^%C 8? 8+ U'>)+. C YG8 E)*%$+,,)&T'>DAF

P*/(%, YO a%S&- )&%%8:.&#'*8#$8 ,- )C-)(-& $%,'*)*&#,- '8 123#!4552/60

*)' 8++). 8- &)?;8?(8?:8 G:(+(W%'. -( 8- 3)-(>+8. %+5)'(:1)- 1U- 'U3(J)-2 ,?% ;8'-(K? 18?)- &)13+87% &)13G:%&()?%+18?:8 ^%>+%?J). C YG8 %J81U- ?) G:(+(W% '8&G'-(;(J%J. 8- +% -(5G(8?:8a function result=fib3(n) i=1; j=0; for k=1:1:n t=i+j; i=j; j=t; end result=j; end P(#)*+# NYO b8%:*+# *$8%,$*;, '8 -, @(#)*+# '8 123#!4552 •

b)+G&(K? E2

*)J81)- &)13%'%' 8+ :(813) J8J(&%J) 3)' 8+ )'J8?%J)' % '8%+(W%' G? J8:8'1(?%J) &K13G:) 18J(%?:8 +%- QG?&()?8- J8 $XBIX[ 7), RYG8 3)?8 8+ &')?K18:') % &8')T C 7%, RYG8 +) J8:(8?8T2 6? +% -(5G(8?:8 Q(5G'% '83')JG&(1)- 8+ &KJ(5) J8 +% 9G?&(K? "@ C J8 +% 9G?&(K? "L. 38') &)? +%- (?-:'G&&()?8- 7), C 7%,F

"@

.+,+/)% 0%1% 2#+%1+

function result=fib2(n) tic; if (n<=2) result=1; else result=fib2(n-1)+fib2(n-2); end toc; end

function result=fib3(n) tic; i=1; j=0; for k=1:1:n t=i+j; i=j; j=t; end result=j; end toc;

P(#)*+# NZO 4, ;8%:*+# %8)(%:*;, c*QR(*8%',d A -, *$8%,$*;, c'8%8)F,d .,%, ),-)(-,% P*S&#,))*< ,#&$,',: )&# *#:$%())*: .,%, ),-)(-,% 8- $*80.&

6+ '8-G+:%J) J8 %1>%- QG?&()?8- 3%'% &%+&G+%' E)*%$+,,)&DR' 8-a dd Q(>/R/0T 6+%3-8J :(18 (- 02000""D -8&)?J-2

dd Q(>AR/0T 6+%3-8J :(18 (- 0200000F -8&)?J-2

%?- `

%?- `

H@HF •

H@HF

b)+G&(K? F2

b( (?;8-:(5%1)G? 3)YG(:). %;8'(5G%'81)YG8 8+ :P'1(?) 9(>)?%&&( -8 &)''8-3)?J8 :%1>(P? &)? 8+ -(5G(8?:8 ;%+)'a $ J8 +% QG?&(K? !"#

! !

!

!

! !! ! ! !

!

!

p8? J)?J8a !!

!

!

!

!

X-\. ):'% (13+818?:%&(K? J8 +% QG?&(K?. 1G&^) 1U- 'U3(J% YG8 &G%+YG(8'% J8 +%%?:8'()'8-. C% YG8 ?) '8YG(8'8 ?( '8&G'-(;(J%J ?( >G&+8-. 8- +% J%J% 8? +% 9G?&(K? /0a 3'(18') -8 &%+&G+% 8+ ;%+)' J8 q. C +G85) &%+&G+%1)- C J8;)+;81)- 8+ '8-G+:%J)2 function result=fib4(n) fi=(1+sqrt(5))/2; result=(fi^n-(1-fi)^n)/sqrt(5); end P(#)*+# U\

"L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& XO 4, '*;*#, .%&.&%)*+# B8 .*'8 %8,-*Q,% (#, @(#)*+# R(8 %8)*S*8#'& )&0& ,%/(08#$& '8 8#$%,', (# #T08%& 8#$8%& .&:*$*;& ! '8;(8-;, 8- ;,-&% '8 -, ,.%&=*0,)*+# '8 -, 7282!4 9$#9#$52:! .,%, 8- $[%0*#& ! '8 -, :8%*8 '8 P*S&#,))*O 4, 7282!4 9$#9#$52:! 8: -, '*;*:*+# '8- $[%0*#& 2 '8 -, :8%*8 '8 P*S&#,))* 8#$%8 8- ,#$8%*&%O •

b)+G&(K? "2

r%>(8?J) C% (13+818?:%J) +% &U+&G+) QG?&(K?8-a J8 ()*%$+,,)P +% '8-)+G&(K? J8 8-:8 878'&(&() 81GC -8?&(++%2 I% QK'1G+% J8 8)Z)$+0/%J%/,)f$&$'>E)*%$+,,)&$'gE)*%$+,,)&$@A'

*)J81)- ^%&8' G-) J8 &G%+YG(8'% +%- (13+818?:%&()?8- YG8 ^81)- J%J) % +% QG?&(K? J8 ()*%$+,,) 8? 8+ 878'&(&() %?:8'()'. ?) -(8?J) ?8&8-%'() '88-&'(>('+%a function result = divinaProporcion( n ) result=fib4(n)/fib4(n-1); end P(#)*+# UN

"D

.+,+/)% 0%1% 2#+%1+

J98%)*)*& YO D&#;8%:*+# '8 8#$8%& , S*#,%*& J:)%*S*% (#, @(#)*+# '8 123425 R(8< %8)*S*8#'& )&0& ,%/(08#$& '8 8#$%,', (# #T08%& 8#$8%&< !< %8.%8:8#$8 .&% .,#$,--, :( 8R(*;,-8#$8 8# 8:*:$80, S*#,%*&O B* 8- #T08%& 8: #8/,$*;&< :8 '8S8%C 8:)%*S*% 8)&%%8:.&#'*8#$8 :*/#& 08#&: ,#$8: '8- #T08%&O B* 8- #T08%& #& 8: 8#$8%&< :8 0&:$%,%C (# 08#:,98 '8 8%%&%O •

b)+G&(K? "2

X?:8- J8bG3)?5%1)3')5'%1%'. ;8%1)&K1) ^%&81)% 1%?)8+G?% &)?;8'-(K? % >(?%'()2 YG8 YG8'81)3%-%' % >(?%'() ?=18') "Fa +)J8 YG88?:8') ^%&81)8- (' J(;(J(8?J) -G&8-(;%18?:8 8?:'8 / ^%-:% YG8 8+ &)&(8?:8 )>:8?(J) -8% "2 IG85). 3%'% &)?-:'G(' +% '83'8-8?:%&(K? 8? >%-8 /. '8&)''81)- J8-J8 8+ =+:(1) &)&(8?:8 )>:8?(J) R"T. C -G>(8?J) 3)' :)J)- +)- '8-:)-a

N8 8-:8 1)J). )>:8?81)- YG8 "F /`""""2 N8 (5G%+ 1%?8'% 3)J81)- &%+&G+%' 8+ /D 8? >%-8 /a

X-\. /D/`"""0"2 *)' :%?:). G:(+(W%'81)- G? >G&+8 3%'% (' J(;(J(8?J) 8+ ?=18') YG8 )>:8?5%1)8?:'8 /. 1(8?:'%- YG8 8+ &)&(8?:8 -8% 1%C)' ) (5G%+ % /2 XJ81U-. J8>8'81)- (' 181)'(W%?J) +)- '8-:)- YG8 ;%C%1)- )>:8?(8?J)2 ,?% 3'(18'% %3')V(1%&(K? % +% -)+G&(K? 8- +% -(5G(8?:8 R9G?&(K? //Ta

/0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = pasarABinario( n ) cociente=n; resto=mod(cociente, 2); result=[resto]; while (cociente>=2) cociente=floor(cociente/2); resto=mod(cociente, 2); result=[resto result]; end end P(#)*+# UUO >%*08%, ,.%&=*0,)*+# .,%, -, )&#;8%:*+# , S*#,%*&

6+ &KJ(5) J8 +% 9G?&(K? // :(8?8 G?% ?);8J%J '8-38&:) J8 +%- QG?&()?8- YG8 ^81)8-&'(:) ^%-:% %^)'%a % +% ;%'(%>+8 /!#617 +8 %-(5?%1)-. 8? +%- +\?8%- '8-%+:%J%-. ;%+)'8- 8?:'8 &)'&^8:8-2 M)? +)- &)'&^8:8- (?J(&%1)- YG8 +% ;%'(%>+8 8- G? ;8&:)'2 6? +% 3'(18'% -8?:8?&(% R/!#617>b/!#7%cT. 5G%'J%1)- 8? /!#617 G? ;8&:)' &)? G? -)+) 8+818?:). 8+ '8-:) YG8 -8 ^% &%+&G+%J)2 6? +% -85G?J% R /!#617>b/!#7% /!#617cT %i%J(1)- %+ &)1(8?W) J8+ ;8&:)' /!#617 8+ ;%+)' YG8 ^81)- &%+&G+%J) J8+ /!#7% 8? 8-:% (:8'%&(K?2 ,-%1)-. %J81U-. +% QG?&(K? I%8 8? +% 3'(18'% %-(5?%&(K? %+ '8-:)a /!#7%>I%8&,%,)!$7!P D'F I%8&"PW' J8;G8+;8 8+ '8-:) J8 +% J(;(-(K? 8?:8'% J8 " 8?:'8 WF S5G%+18?:8. G-%1)- +% QG?&(K? E1%%/. YG8 '8J)?J8% G? ?=18') J8&(1%+ %+ 8?:8') (?18J(%:%18?:8 (?Q8'()'2 r%5%1)- G?% :'%W% J8 +% QG?&(K? &)? $>ADa

D&08#$,%*&: I+%1%J% % +% QG?&(K? 678&G&(K? J8 ,%,)!$7!>$ D' 678&G&(K? J8 /!#7%>I%8&,%,)!$7!P"/ 678&G&(K? J8 /!#617>b/!#7%c 6?:'%1)- %+ >G&+8. C% YG8 ,%,)!$7!a>D ,%,)!$7!>E1%%/&,%,)!$7!gD' /!#7%>I%8&,%,)!$7!P D' /!#617>b/!#7% /!#617c

b85G?J% ;G8+:% %+ >G&+8 ,%,)!$7!>E1%%/&,%,)!$7!gD' /!#7%>I%8&,%,)!$7!P D' /!#617>b/!#7% /!#617c

B8'&8'% ;G8+:% %+ >G&+8

# "/ "/ "/ "/ "/

)&)*8#$8

%8:$&

%8:(-$

"/ "/

0 0

s0t s0t

"/ "/ "/ "/ "/

H H H H A

0 0 0 0 0

s0t s0t s00t s 0 0t s0t

"/ "/ "/ "/ "/ "/

A A A " " "

" " " " " "

s0t s"00t s"00t s0t s0t s""00t

"/ 0

,%,)!$7!>E1%%/&,%,)!$7!gD' /!#7%>I%8&,%,)!$7!P D' /!#617>b/!#7% /!#617c h !$ !#7! I%I!$7% #! #+1! 8!1 *6,1!P W+ Y6! ,%,)!$7!>AP Y6! !# I!$%/ Y6! D 3,S-, VO 3%,Q, '8 94.4$;<2!4$2#/-=0

/"

.+,+/)% 0%1% 2#+%1+

b( 8? +% &)?-)+% J8 $XBIX[ 878&G:%1)- J+#+/9<)$+/)%&AD'. -8 ?)- 1G8-:'% +) -(5G(8?:8a dd 3%-%'X[(?%'()R"/T %?- ` "

"

0

0

P*/(%, Z

6+ '8-G+:%J) YG8 ?)- 8-:U J8;)+;(8?J) $XBIX[ ?) 8- G? ?=18') 8?:8') ?( ?%:G'%+. -(?) G? ;8&:)' &)? &G%:') ;%+)'8-2 •

b)+G&(K? /2

6? 8+ 8?G?&(%J) J8+ 3')>+81% -8 ?)- J(&8 YG8 ub( 8+ ?=18') 8- ?85%:(;). -8 J8>8'U 8-&'(>(' 8+ &)''8-3)?J(8?:8 -(5?) 18?)- %?:8- J8+ ?=18')v2 M)1) -%>81)-. 8+ 3'(18' J\5(:) J8+ ?=18') >(?%'() 8- 8+ 3'(18' '8-:) YG8 &%+&G+%1)-2 I) YG8 ^%'81)- -8'U 3'85G?:%'. J8-3GP- J8+ >G&+8. -( 8+ ?=18') YG8 ?)- 3%-%')? &)1) 3%'U18:') 8- ?85%:(;)a 8? &%-) %Q('1%:(;). 1)J(Q(&%'81)- 8+ 3'(18' 8+818?:) J8+ ;8&:)' 1G+:(3+(&U?J)+) 3)' f"l 8? &%-) ?85%:(;). +) J87%1)&)1) 8-:U2 S?(&(%+18?:8. 3)J'\%1)- J87%' 8-:) J8 +% -(5G(8?:8 1%?8'%a function result = pasarABinario2( n ) cociente=n; resto=mod(cociente, 2); result=[resto]; while (cociente>=2) cociente=floor(cociente/2); resto=mod(cociente, 2); result=[resto result]; end if (n<0) result(1)=-1*result(1); end end P(#)*+# UVO 4, @(#)*+# '8 .,:& , S*#,%*& )&# :&.&%$8 .,%, #8/,$*;&:< .8%& )&# (# .8R(8e& 8%%&%

6? +%- +\?8%- 8? %1%'(++) 3'85G?:%1)- YG8. -( $iR. 8?:)?&8- 8+ 3'(18' 8+818?:) J8+ ;8&:)' -8% -G-:(:G(J) 3)' -G ;%+)' 1G+:(3+(&%J) 3)' f"2 X+ 878&G:%'. &)1) 87813+). J+#+/9<)$+/)%&@AD'. 8-38'%'\%1)- +% '8-3G8-:% f""00l -(? 81>%'5). $XBIX[ ?)'8-3)?J8. -)'3'8?J8?:818?:8. J8 +% -(5G(8?:8 Q)'1%a

//

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd 3%-%'X[(?%'()/Rf"/T %?- ` 0 P*/(%, N\

6+ 8'')' +) 8?&)?:'%1)- 8? +% 3'(18'% -8?:8?&(% J8 +% QG?&(K?. YG8 ?8&8-(:% -8' 1)J(Q(&%J%a -( $>@AD. 8?:)?&8- 3)' +% %-(5?%&(K? YG8 ^%C % &)?:(?G%&(K? -8 ^%&8 ,%,)!$7!>@AD C ?) -8 8?:'% 8? 8+ OX)1!. C% YG8 ?) -8 ;8'(Q(&% +% &)?J(&(K?2 N8>81)%-(5?%'. 8? +% 3'(18'% (?-:'G&&(K?. 8+ ;%+)' +*#&$' % &)&(8?:82 6- J8&('a function result = pasarABinario2( n ) cociente=abs(n); resto=mod(cociente, 2); result=[resto];

end

while (cociente>=2) cociente=floor(cociente/2); resto=mod(cociente, 2); result=[resto result]; end if (n<0) result(1)=-1*result(1); end

P*/(%, NNO 4, @(#)*+# '8 .,:& , S*#,%*& )&# :&.&%$8 .,%, #8/,$*;&:< ,F&%, )&%%8/*', •

b)+G&(K? A2

6? 8+ 8?G?&(%J) :%1>(P? -8 ?)- J(&8 YG8. -( 8+ ?=18') YG8 -8 3%-% &)1) 3%'U18:') ?) 8- 8?:8'). -8 J8>8 J%' G? 18?-%78 J8 8'')'2 ,?% Q)'1% J8 &)13')>%' 8-:) 83'85G?:%' -( 8+ 3%'U18:') $ 8- (5G%+ % +% 3%':8 8?:8'% J8+ 3')3() $. 8- J8&('a

/A

.+,+/)% 0%1% 2#+%1+

function result = pasarABinario3( n ) if (n~=floor(n)) error('Se esperaba un entero'); return; end cociente=abs(n); resto=mod(cociente, 2); result=[resto]; while (cociente>=2) cociente=floor(cociente/2); resto=mod(cociente, 2); result=[resto result]; end if (n<0) result(1)=-1*result(1); end end P(#)*+# U6

/E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& ZO D&#$,'&% '8 ,.,%*)*: J:)%*S*% (#, @(#)*+# '8 123425 R(8 $&08 )&0& 8#$%,',: (# ;8)$&% '8 #T08%&: 8#$8%&: 8 A (# #T08%& 8#$8%& !< A R(8 '8;(8-;, 8- #T08%& '8 ;8)8: R(8 ! 8:$C )&#$8#*'& 8# 8- ;8)$&% 8O •

b)+G&(K? "2

S5G%+ YG8 8? ):'%- )&%-()?8-. ;8%1)- &K1) ^%'\%1)- 8-:) % 1%?)2 bG3)?5%1)YG8 :8?81)- 8+ ;8&:)' Z> dA D A C 3 A D N 4 3 Ae. C YG8 J8-8%1)- &)?:%' +%- %3%'(&()?8- J8 $>AF >&:*)*+# N U V 6 W b,-&% " / " A E

7 "

X /

Y F

Z H

N\ E

NN "

X 1%?). +88'\%1)- 8+ ;%+)' J8 +% 3)-(&(K? "l &)1) 8- ". %+1%&8?%1)- " 8? G? &)?:%J)'l 3%-%1)- % +% 3)-(&(K? / C. &)1) ?) 8- ". J87%1)- 8+ &)?:%J)' &)1) 8-:Ul 3%-%1)- % +% 3)-(&(K? A C. &)1) &)?:(8?8 G? ". (?&'818?:%1)- 8? G?) 8+ &)?:%J)'. YG8 C% ;%+8 /l ++85%1)- -(? &%1>(%' ^%-:% +% 3)-(&(K? H. 8? +% YG8 ^%&81)- YG8 &)?:%J)' -8% A. C -85G(1)- ^%-:% 8+ Q(?%+ J8+ ;8&:)'. +% 3)-(&(K? "". 8? +% YG8 (?&'818?:%1)- 8+ &)?:%J)' ^%-:% E2 ,?% (13+818?:%&(K? J8 8-:% -)+G&(K? 8- +% -(5G(8?:8 R9G?&(K? /FTa G:(+(W%1)- &)1) &)?:%J)' +% ;%'(%>+8 /!#617l +G85) '8&)''81)- :)J%- +%- 3)-(&()?8- J8+ ;8&:)' &)? G? >G&+8 E%/ YG8 ;% J8-J8 " ^%-:% -G +)?5(:GJ R 1!$H7X&Z!,7%/'T2 6? 8+ &G8'3) J8+ >G&+8 :)1%1)- 8? +% ;%'(%>+8 Z) 8+ ;%+)' (fP-(1) J8+ ;8&:)'. +) &)13%'%1)- &)? $ C. -( 8- (5G%+. (?&'818?:%1)- 8+ '8-G+:%J)2 function result = problema8ContadorB( vector, n ) result=0; for i=1:1:length(vector) vi=vector(i); if (vector(i)==n); result=result+1; end end end P(#)*+# UWO ?#, .%*08%, ;8%:*+# '8 -, @(#)*+# .,%, )&#$,% 8- #T08%& '8 ,.,%*)*:

*%'% 878&G:%' +% QG?&(K? &)? 8+ ;8&:)' J%J) &)1) 87813+) C 3%'% YG8 >G-YG8 8+ ;%+)' ". 8-&'(>(1)8? 8+;%'(%>+8 U'8% J8"&)1%?J)J8 $XBIX[ J)- (?-:'G&&()?8-a 3'(18'). G?% 3%'% %-(5?%' % G?% 8+ ;8&:)'l +G85). +% ++%1%J% % +% QG?&(K? YG8 ^81)- 8-&'(:)2

/F

.+,+/)% 0%1% 2#+%1+

dd V`s "

/

"

A

E

"

/

F

H

E

"

A

E

"

/

F

H

E

"

"t

V` "

/

dd 3')>+81%LM)?:%J)'[RV. "T %?- ` E

P*/(%, NU •

b)+G&(K? /2

$XBIX[ J(-3)?8 J8 1G&^%- QG?&()?8- 1GC &K1)J%- 3%'% :'%>%7%' &)? ;8&:)'8- C 1%:'(&8-2 N%J) 8+ ;8&:)' %?:8'()'. 3)J81)- 8-&'(>(' 8? +% +\?8% J8 &)1%?J)- +) -(5G(8?:8a dd V``/ %?- ` 0

"

0

0

0

0

"

0

0

0

0

P*/(%, NV

">>D 8- YG8 I) YG8 "+8-)? 8-:%1)% $XBIX[ &)?'8-3G8-:%. 18 1G8-:'8 YGP ;%+)'8J8+ ;8&:)' (5G%+8-J(&(8?J) % / C &GU+8?)2 M)1) $XBIX[ J8;G8+;8 ):') ;8&:)' &)? G?)- C &8')-a 8? %YG8++%- 3)-(&()?8- 8? +%- YG8 8+ ;8&:)' :(8?8 ;%+)' /. $XBIX[ 3)?8 G? ". C G? 0 8? +%- YG8 ?)2 N8 8-:8 1)J). %3%'8&8 8+ ;%+)' " 8? +%- 3)-(&()?8/ C @. C% YG8 " &)?:(8?8 G? / 8? 8-%- J)- 3)-(&()?8-2

>&:*)*+# =^ f=^Ûg

N " 0

U / "

V " 0

6 A 0

W E 0

7 " 0

X / "

Y F 0

Z H 0

N\ E 0

NN " 0

e:'% QG?&(K? (?:8'8-%?:8 J8 $XBIX[ 8- +% QG?&(K? #6Ia %3+(&%J% % G? ;8&:)'. J8;G8+;8 +% -G1% J8 -G- 8+818?:)-2 *)' 87813+). +% -G1% J8 +)- ;%+)'8- J8 " 8- A0a dd -G1RVT %?- ` A0 P*/(%, N6

[(8?. 3G8- 3)J81)- &)1>(?%' %1>%- QG?&()?8- 3%'% &%+&G+%' 1GC 'U3(J% C -8?&(++%18?:8 8+ ?=18') J8 %3%'(&()?8- J8 G? 8+818?:) 8? G? ;8&:)'a -( &%+&G+%1)- +% -G1% J8+ ;8&:)' J8 G?)- C &8')-. C% -%>'81)- &GU?:%- ;8&8- %3%'8&8 8+ ?=18') -)+(&(:%J)a

/H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = problema8ContadorA( vector, n ) result=sum(vector==n); end P(#)*+# U7O M$%, ;8%:*+#< 0()F& 0C: 8@*),Q

6? 8Q8&:). +) YG8 J8&(1)- 8? +% -8?:8?&(% J8 %-(5?%&(K? J8 +% 9G?&(K? /H 8- YG8 %-(5?8 % /!#617 8+ '8-G+:%J) J8 -G1%' +)- 8+818?:)- J8+ ;8&:)' J8 G?)- C &8')&)?-:'G(J) % 3%':(' J8 +% &)13%'%&(K? J8+ Z!,7%/ 3%-%J) &)1) 3%'U18:') &)? 8+ ;%+)' J8 $F

>&:*)*+# =^ f=^Ûg

N " 0

U / "

V " 0

6 A 0

W E 0

7 " 0

X / "

Y F 0

Z H 0

;+ #6I+ 8! 1%# !1!I!$7%# !$ +I+/)11% !# DF

w -\. QG?&()?%a dd 3')>+81%LM)?:%J)'XRV. /T %?- ` / P*/(%, NW

/@

N\ E 0

NN " 0

.+,+/)% 0%1% 2#+%1+

J98%)*)*& N\O >%&'()$& 8:),-,% J:)%*S*% (#, @(#)*+# R(8 ),-)(-8 8- .%&'()$& 8:),-,% '8 '&: ;8)$&%8: 8 A > R(8 :8 .,:,# )&0& .,%C08$%&:O B* #& :8 %8)*S*8:8# '&: ,%/(08#$&: '8 8#$%,', :8 '8S8%C 0&:$%,% (# 08#:,98 '8 8%%&% .&% .,#$,--, A '8;&-;8% (# ENO B* -,: '*08#:*: '8 -&: ;8)$&%8: @(8%,# *#)&F8%8#$8: .,%, %8,-*Q,% 8.%&'()$& 8:),-,% :8 '8S8%C '8;&-;8% (# EN A 0&:$%,% $,0S*[# (# 08#:,98 '8 8%%&%O •

b)+G&(K? "2

6+ 3')JG&:) 8-&%+%' J8 J)- ;8&:)'8- -8 &%+&G+% J8 +% -(5G(8?:8 Q)'1%a !!

!

!!

!

!!! !!!

! !" !

!!

!

!

!!

! !! ! !!

!

!!

!

!

!

!"

! !"

!"

b( +) &%+&G+%1)- % 1%?). &)?-(-:8 8? (' %&G1G+%?J) +% -G1% J8 1G+:(3+(&%' 8+ 3'(18') 3)' 8+ 3'(18'). 1U- 8+ -85G?J) 3)' 8+ -85G?J). 1U- 8+ :8'&8') 3)' 8+ :8'&8'). 8:&P:8'%2 *%'% 8-&'(>(' +% QG?&(K? $XBIX[ &)''8-3)?J(8?:8. >%-:% &)? G? >G&+8 E%/ YG8 '8&)''% J8-J8 " ^%-:% $ RJ)?J8 $ 8- +% +)?5(:GJ J8 +)- ;8&:)'8-T C YG8 %&G1G+8 8? G?% ;%'(%>+8 +% -G1% J8 +)- 3')JG&:)-2 6- J8&('a function result = productoEscalar(v, w) result=0; for i=1:1:length(v) result=result+v(i)*w(i); end end P(#)*+# UXO P(#)*+# .,%, 8- )C-)(-& '8- .%&'()$& 8:),-,% •

b)+G&(K? /2

6? 8+ 8?G?&(%J) ?)- 3(J8? YG8 ^%5%1)- ;%'(%- &)13')>%&()?8- J8 %'5G18?:)-a YG8 ^%C% / C YG8 +%- J(18?-()?8- J8 %1>)- ;8&:)'8- -8%? &)^8'8?:8-2 6? 8+ 3'(18' )E J8+ -(5G(8?:8 &KJ(5) &)13')>%1)- YG8 -8 3%-%? 8V%&:%18?:8 J)- %'5G18?:)-l 8? 8+ -85G?J). YG8 +%- +)?5(:GJ8- J8 %1>)- ;8&:)'8- -8%? (5G%+8-2

/L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = productoEsca lar2(v, w) if (nargin~=2) disp( 'Debe pasar dos argumentos'); return ; end if (length(v)~ =length(w)) disp( 'Los vectores deben tener el mismo número de elementos' ); return ; end result=0; for i=1:1:length (v) result=result+v(i)*w(i); end end P(#)*+# UYO >%&'()$& 8:),-,% )&# )&0.%&S,)*+# '8 ,%/(08#$&: •

b)+G&(K? A2

N8-J8 +G85). 3)J81)- G:(+(W%' :%1>(P? +)- 3')3()- )38'%J)'8- J8 $XBIX[ 3%'% 1G+:(3+(&%' 1%:'(&8- C ;8&:)'8- C ^%&8' +% &)-% 1G&^) 1U- -8?&(++%2 6? +% -(5G(8?:8 Q(5G'% 1)-:'%1)- 8+ G-) J8+ )38'%J)' c 3%'% 1G+:(3+(&%' J);8&:)'8-a ! !

!

!

!

6? R"T. 1)-:'%1)- 8+ ;%+)' J8+ ;8&:)' "F 6? R/T. %-(5?%1)- % W 8+ 1(-1) ;8&:)' ". J8 1%?8'% YG8 C% :8?81)- J);8&:)'8-2 6? RAT. G:(+(W%1)- 8+ )38'%J)' x 3%'% 38J('+8 % $XBIX[ YG8 ?)- 1G8-:'8 8+ ;8&:)' :'%-3G8-:)21G+:(3+(&%' " 3)' W2 $XBIX[ J% G? 8'')' 3)'YG8 +)6? RET. W(?:8?:%1);8&:)'8- J8>8? :8?8' J(18?-()?8- &)13%:(>+8-a A"$ C $"A2 6? RFT %''85+%1)- 8+ 3')>+81%. 1G+:(3+(&%?J) " 3)' 8+ :'%-3G8-:) J8 W2

dd V

dd C`V

"

V` " / dd Cy

"

A

E

C` "

%?- ` " / " A E " / F H E "

/

F

H

E

"

/

" / " A E " / F H E dd VcC ggg 6'')' G-(?5 ``d 1:(18S??8' 1%:'(V J(18?-()?- 1G-: %5'882

A dd VcCy %?- `

F

""E

P*/(%, N7O DC-)(-& '8- .%&'()$& 8:),-,%< '*%8)$,08#$8 8# -, -h#8, '8 )&0,#'&: '8 123425

/D

"

E

.+,+/)% 0%1% 2#+%1+

6? '8%+(J%J. ?) ?)- ^%&8 Q%+:% 8?:)?&8- &'8%' ?(?5G?% QG?&(K? 8? $XBIX[ 3%'% &%+&G+%' 8+ 3')JG&:) 8-&%+%' J8 J)- ;8&:)'8-2 <) )>-:%?:8. -( J8-8%1)- ^%&8'+)a function result = productoEsca lar3(v, w) if (nargin~=2) disp( 'Debe pasar dos argumentos'); return ; end if (length(v)~ =length(w)) disp( 'Los vectores deben tener el mismo número de elementos' ); return ; end result=v*w'; end P(#)*+# UZ

A0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& NNO P*S&#,))* 8# (# ;8)$&% J:)%*S*% (#, @(#)*+# '8 123425 R(8 )&#:$%(A, (# ;8)$&% R(8 )&#$8#/, -&: ! .%*08%&: $[%0*#&: '8 -, :8%*8 '8 P*S&#,))*< '&#'8 ! 8: (# .,%C08$%& R(8 :8 .,:,%C )&0& ,%/(08#$& '8 8#$%,',O •

b)+G&(K? "2

6? +% 9G?&(K? A0 J%1)- G?% 3'(18'% -)+G&(K?a 3'(18') %-(5?%1)- % E)* R+% ;%'(%>+8 YG8. 8? 8-:8 &%-) C 3)' ;%'(%'. G:(+(W%1)- 3%'% J8;)+;8' 8+ '8-G+:%J)T G? ;8&:)' J8 $F *%'% 8++) G-%1)- +% QG?&(K? ^!/%#&"' :%?:)&8')- &)1) ;%+)' :8?5% 3%'U18:') J8 $XBIX[. YG8 &)?-:'GC8 G? 8+ ;8&:)' &)? " &8')-2

IG85). &)+)&%1)- -8?J)- G?)- 8? +% 3'(18'% C -85G?J% 3)-(&()?8-2 X &)?:(?G%&(K?. '8&)''81)- 8+ ;8&:)' J8-J8 +% 3)-(&(K? A ^%-:% 8+ Q(?%+. &)+)&%?J) 8? &%J% G?% +% -G1% J8 +%- J)- 3)-(&()?8- %?:8'()'8-2 function fib=vectorFibonacci(n) fib=zeros(1, n) fib(1) = 1; fib(2) = 1; for i = 3 : n fib(i) = fib(i-1) + fib(i-2); end end P(#)*+# V\

6+ '8-G+:%J) 8- 8+ -(5G(8?:8a dd ;8&:)'9(>)?%&&(RLT %?- ` " " / A F L "A /" P*/(%, NX •

b)+G&(K? /2

B%1>(P? 3)J81)- G:(+(W%' &G%+YG(8'% J8 +%- QG?&()?8- 3%'% 8+ &U+&G+) J8 +% QG?&(K? J8 9(>)?%&&( YG8 ;(1)- 8? 878'&(&()- %?:8'()'8-2 *)' 87813+)a function fib=vectorFibonacci2(n) fib=[]; for i = 1 : n fib=[fib fib2(i)]; end end P(#)*+# VN

6? 8+ &KJ(5) %?:8'()' ^%C J)- ?);8J%J8-a +% 3'(18'% 8? +% -8?:8?&(% E)*>bc. YG8 &)?-:'GC8 G? ;8&:)' ;%&\)l +% -85G?J% 8? 8+ >G&+8 E%/P YG8 :(8?8 -)+%18?:8 +)-

A"

.+,+/)% 0%1% 2#+%1+

;%+)'8- (?(&(%+ C Q(?%+ J8 ). C ?) 8+ (?&'818?:) YG8 J8>8 J%'-8 % 8-:% ;%'(%>+8 8? &%J% ;G8+:% J8+ >G&+82 MG%?J) 8+ (?&'818?:) ?) -8 3)?8. $XBIX[ %-G18 YG8 8- "2

A/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& NUO I*:$,#)*, ,- .%*08%& J:)%*S, (#, @(#)*+# '8 123425 R(8 %8)*S, (# ;8)$&% '8 #T08%&: %8,-8:< 8< )&0& ,%/(08#$& '8 8#$%,', A '8$8%0*#8 )(C- '8 $&'&: 8--&: 8: 8- 0C: )8%),#& ,- .%*08%& '8 -&: 8-808#$&: '8- ;8)$&% A '8;(8-;, :( .&:*)*+#< 9< '8#$%& '8- ;8)$&%O J980.-&] .,%, 8 ' /=) ?) @) -) -A0 < 9 ' @< A, R(8 8- #T08%& 0C: )8%),#& ,.%*08%& cUd 8: 8- )(,%$& cNdO B* #& :8 .%&.&%)*&#, (# ;8)$&% '8 8#$%,', :8 /8#8%,%C (# ;8)$&% '8 $,0,e& N\ '8 #T08%&: ,-8,$&%*&: %8,-8: 8#$%8 \ A N\O J# ),:& '8 R(8 8;8)$&% #& $8#/, ,- 08#&: '&: )&0.#$8:< 8- 0[$&'& '8;&-;8%C (# ENO •

b)+G&(K? "2

*'(18') J8 :)J). z&K1) +) ^%'\%1)- % 1%?)g bG3)?5%1)- YG8 :8?81)- 8+ ;8&:)' YG8 ?)- 3')3)?8? 8? 8+ 8?G?&(%J)a

>&:*)*+# N U V 6 W ;^ / H E " "0 6? G? 3')&8J(1(8?:) 1%?G%+. 3')>%>+818?:8 +88'\%1)- C 181)'(W%'\%1)- 8+ 3'(18' ?=18')l +G85). +88'\%1)- 8+ -85G?J). &%+&G+%'\%1)- +% J(Q8'8?&(% R8? ;%+)' %>-)+G:). 3)' -( ^G>(8'% ?85%:(;)-T C. 3G8-:) YG8 J8 1)18?:) 8- 8+ 1U- &8'&%?) R+% J(Q8'8?&(% 8- ET. 5G%'J%'\%1)- -G 3)-(&(K? R/T &)1) '8-G+:%J)2 X &)?:(?G%&(K? +88'\%1)- 8+ :8'&8') RG? ET. &%+&G+%'\%1)- +% J(Q8'8?&(% '8-38&:) J8+ 3'(18') REf /`/T C. &)1) 8- 18?)' YG8 8+ '8-G+:%J) YG8 ++8;%1)- ^%-:% 8+ 1)18?:) RET. %+1%&8?%1)- +% 3)-(&(K? RAT C %&:G%+(W%1)- 8+ '8-G+:%J)2 b85G('\%1)- %-\ ^%-:% +% =+:(1% 3)-(&(K? J8+ ;8&:)'2 [(8?. 3G8- 8-:) 8- 8V%&:%18?:8 +) YG8 ^%&81)- 8? +% 9G?&(K? A/a 8? J J8;)+;8'81)- 8+ '8-G+:%J). YG8 (?(&(%+(W%1)- % f"2 6? I!5%/j)#7+$,)+ 5G%'J%1)- +% J(-:%?&(% ) J(Q8'8?&(% 1U- &)':% ^%-:% 8+ 1)18?:). YG8 (?(&(%+(W%1)- % (?Q(?(:)2 IG85). 8? 8+ >G&+8. '8&)''81)- 8+ ;8&:)' J8-J8 +% -85G?J% 3)-(&(K? ^%-:% 8+ Q(?%+2 6? &%J% (:8'%&(K? &%+&G+%1)- +% 8)#7+$,)+ J8-J8 8+ 8+818?:) 8? 8+ YG8 8-:%1)- R Z&)'T ^%-:% 8+ 3'(18') RZ&A'T2 b( 8- 18?)' YG8 +% I!5%/j)#7+$,)+ ^%-:% 8+ 1)18?:). %&:G%+(W%1)- J R&)? +% 3)-(&(K? J8 8-:8 8+818?:)T C 8+ ;%+)' J8 I!5%/j)#7+$,)+F function p = distanciaAlPrimero(v) p=-1; mejorDistancia=Inf(); for i=2:length(v) distancia=abs(v(i)-v(1)); if (distancia
AA

.+,+/)% 0%1% 2#+%1+

M)? 8+ ;8&:)' J8 87813+). 8+ '8-G+:%J) 8-a dd V`s/ H E " "0t V` / H E " "0 dd J(-:%?&(%X+*'(18')RVT %?- ` E P*/(%, NY

b)+G&(K? /2

•

6+ 8?G?&(%J) ?)- 3(J8 YG8. -( ?) -8 3')3)'&()?% G? ;8&:)' J8 8?:'%J%. -8 58?8'8 G?) &)? "0 ?=18')- %+8%:)'()- '8%+8- 8?:'8 0 C "02 b( -8 3%-% G? ;8&:)' &)1) 8?:'%J% 38') ?) :(8?8 %+ 18?)- J)- 8+818?:)-. J8>8 J8;)+;8'-8 G? f"2 I% -85G?J% &)13')>%&(K? 8- -8?&(++%. 3G8- >%-:% G:(+(W%' +% QG?&(K? 1!$H7X&Z'2 *%'% +% -85G?J% &)?:%'81)- 8+ ?=18') J8 %'5G18?:)- &)? $+/H)$a -( 8- 0. 58?8'%'81)G? ;8&:)' J8 "0 ?=18')- %+8%:)'()- 8?:'8 0 C "02 $XBIX[ J(-3)?8 J8 +% QG?&(K? /+$8. YG8 58?8'% G? ?=18') %+ %W%' 8?:'8 0 C "a dd '%?J

dd '%?J

%?- `

%?- `

02EAF""DED@L@D"F/ dd '%?J

020"@ELAFADF/AE/F dd '%?J

%?- `

%?- `

02EEH@0DL@AHADFL/

02D"L/D@"A@"ALEEL

P*/(%, NZ

b( J8-8%1)- 58?8'%' G? ?=18') %+ %W%' 8?:'8 0 C "0. >%-:% &)? 8-&'(>(' /+$8LARF *)' ):') +%J). -( YG8'81)- 58?8'%' G?% 1%:'(W J8 $"I ?=18')- %+8%:)'()-. 8-&'(>('\%1)- /+$8&$P I'2 *)' 87813+). % &)?:(?G%&(K? 58?8'%1)- G?% 1%:'(W J8 EVAa

AE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd '%?JRE.AT %?- ` 02LL@H/0H"""DD@HE 02"@AH@ADLHFD/AL 02A@D@D"@FEELED"/ 02E0FDDDFA0EFED@D

02FH"L0"H@H0"DL0L 02"0@FH"@DEDLELFH 02EEH0LALAH///FAE 02DD"@DDFAF/D"//

02H@E@FL"E0AFF/@F 02A@AA/HED/EH//FF 02A0/LAHFDDH//H" 02H@A/HF@HE"DH00@

P*/(%, U\

b( +)8YG8 8- 58?8'%' G? ;8&:)' J8 "0 ?=18')-. 8+ &)1%?J) 8- /+$8&AP AR'P YG8 8+ YG8'81)YG8 G-%'81)8? +% ?G8;% ;8'-(K? J8 ?G8-:'% QG?&(K?a 8? %1%'(++) (?J(&%1)- YG8. -( 8+ ?=18') J8 %'5G18?:)- 8- 0. 8?:)?&8- Z R8+ ;8&:)' -)>'8 8+ YG8 ;%1)- % :'%>%7%'T J8>8 (?(&(%+(W%'-8 &)1) ?)- 3(J8? 8? 8+ 8?G?&(%J)2 6? 8+ -85G?J) )E 3'85G?:%1)- 3)' +% +)?5(:GJ J8+ ;8&:)'. YG8 :%1>(P? -8 ?)- 38J\%2 function p = distanciaAlPrimero(v) if (nargin==0) v=rand(1,10)*10; end if (length(v)<=2) p=-1; return; end p=-1; mejorDistancia=Inf(); for i=2:length(v) distancia=abs(v(i)-v(1)); if (distancia
b)+G&(K? A2

,?% -)+G&(K? 1U- 8+85%?:8 3%-% 3)' G:(+(W%' +%- QG?&()?8- J8 $XBIX[ 3%'% 1%?(3G+%&(K? J8 ;8&:)'8- C 1%:'(&8-2 bG3)?5%1)- YG8 J(-3)?81)- J8+ -(5G(8?:8 ;8&:)'. 8? 8+ YG8 ^%C %+5G?)- 8+818?:)- '838:(J)-a

.&:*)*+# N U V 6 W 7 X Y Z N\ =^ " / A " E L f" H @ " b( 8-&'(>(1)- " 8? +% &)?-)+% J8 $XBIX[. -%>81)- YG8 ?)- 1G8-:'% +)- 8+818?:)J8+ ;8&:)'2 b( 8-&'(>(1)- R3)' 87813+)T "@N. $XBIX[ ?)- 1G8-:'% &)1) '8-G+:%J) G? ;8&:)' 8? 8+ YG8 ^% '8-:%J) F % :)J)- +)- 8+818?:)- J8+ ;8&:)' )'(5(?%+. "2 6J8&('a AF

.+,+/)% 0%1% 2#+%1+

dd VfF %?- ` fE fA f/ fE f"

A fH

"

/ fE

P*/(%, UN

*%'% ('?)- %3')V(1%?J) % +% -)+G&(K? J8+ 878'&(&(). 3)J81)- 38J('+8 % $XBIX[ YG8 ?)- 1G8-:'8 8+ '8-G+:%J) J8 '8-:%' % :)J)- +)- 8+818?:)- J8 " 8+ 3'(18' 8+818?:) J8+ ;8&:)'a dd VfVR"T %?- ` 0 " / 0 A @ f/ F H 0 P*/(%, UU

e. 187)' %=?. -G ;%+)' %>-)+G:)a dd %>-RVfVR"TT %?- ` 0

"

/

0

A

@

/

F

H

0

P*/(%, UV

X 3%':(' J8+ 1)-:'%J)+%8?QG?&(K? +% Q(5G'% %?:8'()'. -%>81)YG8 8+ 8;%+)' 3)-(&(K? YG8'8-G+:%J) J8>8 J8;)+;8'?)YG8 >G-&%1)8- G? E. YG8 +% J8 +% G>(&%&(K? J8+ -85G?J) &8')a 8+ YG8 8-:U 8? +% 3'(18'% 3)-(&(K? ?) ?)- (?:8'8-%. 3)'YG8 8- 8+ 8+818?:) &)? 8+ YG8 ^%&81)- :)J%- +%- &)13%'%&()?8-2 <)- (?:8'8-%. 8?:)?&8-. :'%>%7%' &)? 8+ ;8&:)' ". 38') YG(:U?J)+8 8+ 3'(18' 8+818?:)2 XQ)':G?%J%18?:8. $XBIX[ 38'1(:8 8V:'%8' &K1)J%18?:8 G? :')W) J8 G? ;8&:)'a 8? +% 9(5G'% /E. +8 J8&(1)- % $XBIX[ YG8 ;%C% %+ ;8&:)' "P YG8 -8 Q(78 8? -G Q(+% " R+% =?(&% YG8 :(8?8. 3G8- -8 :'%:% J8 G? ;8&:)' C ?) J8 G?% 1%:'(WT C YG8. J8 8++% 8V:'%(5% +)- 8+818?:)- YG8 ^%C J8-J8 +% 3)-(&(K? / ^%-:% +% =+:(1% R 1!$H7X&"'Ta dd VR". /a+8?5:^RVTT %?- ` / A " E L f" H @ " P*/(%, U6

X^)'% 3)J81)- 18J('+8 % $XBIX[ YG8. %+ ;8&:)' )>:8?(J) 8? +% 9(5G'% /E. +8 '8-:8 8+ ;%+)' YG8 :8?81)- 8? +% 3)-(&(K? " J8+ ;8&:)' "a

AH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd VR". /a+8?5:^RVTTfVR"T %?- ` " / 0 A @ f/ F H 0 P*/(%, UW

6+ 8+818?:) YG8 >G-&%1)- 8- 8+ YG8 8-:U 8? +% :8'&8'% 3)-(&(K? J8 8-:8 ;8&:)' '8-G+:%?:8. YG8 8- '8%+18?:8 8+ &G%':) J8+ ;8&:)' )'(5(?%+2 B8?J'81)- 8-:) 8? &G8?:% 3%'% 1U- %J8+%?:82 e:'% QG?&(K? (?:8'8-%?:8 J8 $XBIX[ 8- I)$&Z'. YG8 J8;G8+;8 8+ ;%+)' 1\?(1) J8+ ;8&:)' YG8 -8 3%-% &)1) 3%'U18:')a dd V V` " / A " E L f" H @ " dd 1(?RVT %?- ` f" P*/(%, U7

o8%+18?:8. ?)- (?:8'8-% &)?)&8' 8+ ;%+)' 1\?(1) J8+ ;8&:)' YG8 &)?-:'G(1)- 8? +% 9(5G'% /F. 8? 8+ YG8 ?) 8-:U>%1)- &)?-(J8'%?J) 8+ 3'(18' 8+818?:)a dd VR". /a+8?5:^RVTTfVR"T %?- ` " / 0 A @ f/ F H 0 dd 1(?RVR". /a+8?5:^RVTTfVR"TT %?- ` f/ P*/(%, UX

b( -8+8&&()?%1)- 8+ 18?)' ;%+)'. 8-&)58'\%1)- 8+ f/. YG8 8-:U 8? +% -8V:% 3)-(&(K? J8+ ;8&:)' R-P3:(1% 8? 8+ ;8&:)' )'(5(?%+T2 6-:% 8+8&&(K? -8'\% 8''K?8%. 3G8- 8+ ;%+)' 1U- 3'KV(1) %+ 3'(18') 8- 8+ 02 $)J(Q(YG81)- +% 8V3'8-(K? J8 +% 9(5G'% /@ 3%'% YG8 &)?-(J8'8 8+ ;%+)' %>-)+G:)a

A@

.+,+/)% 0%1% 2#+%1+

dd 1(?R%>-RVR". /a+8?5:^RVTTfVR"TTT %?- ` 0 P*/(%, UY

X^)'% -\. 8? +% Q(5G'% %?:8'()' :8?81)- +)&%+(W%J) 8+ 18?)' ;%+)' J8+ ;8&:)' YG8 3')&8J8 J8 &%+&G+%' 8+ ;%+)' %>-)+G:) J8 '8-:%' % +)- 8+818?:)- /{ % =+:(1) J8 " 8+ ;%+)' "&A'F 6+ ;8&:)' )'(5(?%+. "P 8'% 8-:8a

.&:*)*+# =^

N "

U /

V A

6 "

W E

7 L

X f"

Y H

Z @

N\ "

I%- :'%?-Q)'1%&()?8- YG8 ^81)- (J) ^%&(8?J) 3%'% %J%3:%'+) % ?G8-:'%?8&8-(J%J8- ^%? -(J)a .&:*)*+# =cN< U]-8#/$Fc=d^ =cN< U]-8#/$Fc=ddE=cNd^ ,S:c=cN< U]-8#/$Fc=ddE=cNdd

i | | |

N / " "

U A / /

V " 0 0

6 E A A

W L @ @

7 f" f/ /

X H F F

Y @ H H

Z " 0 0

X^)'% ?8&8-(:%1)- 8?&)?:'%' 8? YGP 3)-(&(K? -8 8?&G8?:'% 8+ 18?)' ;%+)' J8+ ;8&:)' +*#&"&AP DG1!$H7X&"''@"&A''F *%'% 8?&)?:'%' ;%+)'8- 8? G? ;8&:)'. $XBIX[ J(-3)?8 J8 +% QG?&(K? E)$8. YG8 J8;G8+;8 G? ;8&:)' &)? +%- 3)-(&()?8- J8 +)8+818?:)- YG8 &G13+8? &(8':% &)?J(&(K?2 6? +% Q(5G'% -(5G(8?:8 >G-&%1)- :)J%- +%%3%'(&()?8- J8+ ;%+)' A 8? 8+ ;8&:)' "G ?)- J(&8 YG8 8+ ;%+)' " %3%'8&8 8? +%3)-(&()?8- ". E C "02 6-:8 '8-G+:%J) R". E. "0T 8- J8;G8+:) 8? Q)'1% J8 ;8&:)'2 dd V V` " / A " E L f" H @ " dd Q(?JRV``"T %?- ` " E "0 P*/(%, UZ

r%-:% %^)'%. -%>81)- 8V:'%8' G? -G>;8&:)' ^%&(8?J) %+5G?% :'%?-Q)'1%&(K? %+ ;8&:)' )'(5(?%+ R&)1) 8? 8+ &%-) J8 +*#&"&AP DG1!$H7X&"''@"&A''T C &%+&G+%' 8+ 1\?(1) J8 G? ;8&:)'2 [(8?. 3G8- >G-YG81)- 8? 8+ ;8&:)' +*#&"&AP DG1!$H7X&"''@"&A'' +%3)-(&()?8- 8? +%- YG8 %3%'8&8 8+ ;%+)' 1\?(1)a 8? +% 9(5G'% A0. +8 8-:%1)- J(&(8?J) % $XBIX[ YG8 >G-YG8. 8? 8+ ;8&:)' +*#&"&AP DG1!$H7X&"''@"&A''P -G ;%+)' 1\?(1)2 $XBIX[ '8-3)?J8 J(&(8?J) YG8 8+ ;%+)' 1\?(1) 8-:U 8? +%- 3)-(&()?8- A C D2 AL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd Q(?JR%>-RVR". /a+8?5:^RVTTfVR"TT``1(?R%>-RVR". /a+8?5:^RVTTfVR"TTTT %?- ` A

D

P*/(%, V\

<)- (?:8'8-% '8%+18?:8 YG8J%'?)- -K+) &)? 8+ 3'(18' 8+818?:)2 M)1) 8+ '8-G+:%J) J8;G8+:) 3)' E)$8 8- G? ;8&:)'. 8V:'%81)- 8+ 3'(18' 8+818?:)a 3'(18'). %-(5?%1)% G?% ;%'(%>+8 %GV(+(%'. % +% YG8 ++%1%1)- ^. 8+ ;8&:)' YG8 &)?:(8?8 +%- 3)-(&()?8J8+ ;%+)' 1\?(1)l +G85). +881)- 8+ 3'(18' 8+818?:) J8 8-8 ;8&:)' ^F dd W`Q(?JR%>-RVR". /a+8?5:^RVTTfVR"TT``1(?R%>-RVR". /a+8?5:^RVTTfVR"TTTT W` A

D

dd WR"T %?- ` A P*/(%, VN

*%'% (' :8'1(?%?J). '8&)'J81)- YG8 8+ ;%+)' YG8 ?)- (?:8'8-% J8;)+;8' :(8?8 YG8 ^%&8' '8Q8'8?&(% % +% 3)-(&(K? 8? 8+ ;8&:)' )'(5(?%+. "2 *)' 8++). J8;)+;8'81)'8%+18?:8 ^&A'VAa dd WR"Tk" %?- ` E P*/(%, VU

I+8;81)- :)J) 8-:) % G?% QG?&(K? J8 $XBIX[ R9G?&(K? AETa "T *'(18') &)13')>%1)- +% &)''8&&(K? J8 +)- %'5G18?:)-2 /T IG85) 1)-:'%1)- 8+ ;%+)' J8+ ;8&:)' )'(5(?%+. Z R?K:8-8 YG8 :8?81)- G?% (?-:'G&&(K? &)13G8-:% -(13+818?:8 J8 +% 3%+%>'% ; -(? 3G?:) C &)1% %+ Q(?%+a +% -G3'8-(K? J8+ 3G?:) C &)1% ^%&8 YG8. %+ 878&G:%' 8-:% (?-:'G&&(K?. -8 1G8-:'8 8+ ;%+)' J8 Zl :%1>(P? +) ^81)- YG(:%J) 8? +%-(5G(8?:8- +\?8%-. 3%'% ;8' 8? +% &)?-)+% J8 $XBIX[ &K1) ;% 8;)+G&()?%?J) 8+ '8-G+:%J)T2 AT X &)?:(?G%&(K?. 8? G?% ;%'(%>+8 % +% YG8 ++%1%1)Z!,7%/j!#8!;+0%#),)%$D &)+)&%1)- +)- 8+818?:)- J8+ ;8&:)' )'(5(?%+ J8-J8 +% 3)-(&(K? / ^%-:% 8+ Q(?%+2 ET 6? Z+1%/!#9*#%167%# 5G%'J%1)- G? ?G8;) ;8&:)' &)? 8+ ;%+)' %>-)+G:) J8 +%- J(Q8'8?&(%- '8-38&:) J8+ 3'(18' 8+818?:) J8 Z2 AD

.+,+/)% 0%1% 2#+%1+

FT 6? I)$)I% 5G%'J%1)- 8+ ;%+)' 1\?(1) J8 +)- ;%+)'8- %>-)+G:)- J8 +%J(Q8'8?&(%-2 HT 6? J%#),)%$!#j!;%#.)$)I%# 5G%'J%1)- G? ;8&:)' &)? +%- 3)-(&()?8- 8? +%- YG8 -8 8?&G8?:'% 8+ ;%+)' 1\?(1)2 @T 9(?%+18?:8. J8;)+;81)- 8? J +% 3)-(&(K? J8+ 3'(18' 8+818?:) J8 J%#),)%$!#j!;%#.)$)I%#. YG8 8- 8+ 8+818?:) 1U- &8'&%?) % Z&A'2 function p = distanciaAlPrimero2(v) if (nargin==0) v=rand(1,10)*10; end if (length(v)<=2) p=-1; return; end v vectorDesdeLaPosicion2=v(1, 2:length(v)) valoresAbsolutos=abs(vectorDesdeLaPosicion2-v(1)) minimo=min(valoresAbsolutos) posicionesDeLosMinimos=find(valoresAbsolutos==minimo) p=posicionesDeLosMinimos(1)+1 end P(#)*+# V6

b( 878&G:%1)- +% QG?&(K?. 8+ '8-G+:%J) 8- 8+ -(5G(8?:8a dd J(-:%?&(%X+*'(18')/RVT ;` " / A " E L f" H @ " ;8&:)'N8-J8I%*)-(&()?/ ` / A " E L f" H @ " ;%+)'8-X>-)+G:)- ` " / 0 A @

/

F

H

0

1(?(1) ` 0 3)-(&()?8-N8I)-$(?(1)- ` A D 3` E %?- ` E P*/(%, VV

E0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& NVO HT08%&: .%*0&: J:)%*S, (#, @(#)*+# R(8 '8$8%0*#8 :* 8- #T08%& R(8 :8 -8 .,:, )&0& .,%C08$%& 8: & #& .%*0&O •

b)+G&(K? "2

,? ?=18') 8- 3'(1) &G%?J) -K+) 3G8J8 J(;(J('-8 3)' -\ 1(-1) C 3)' "2 ,? ?=18') 8- J(;(-(>+8 3)' ):') &G%?J) 8+ '8-:) J8 +% J(;(-(K? 8?:8'% 8- 02 w% ;(1)- YG8 $XBIX[ J(-3)?8 J8 +% QG?&(K? I%8&"P W'. YG8 J8;G8+;8 8+ '8-:) J8 +% J(;(-(K? 8?:8'% J8 " 8?:'8 WF ,?% 3'(18'% Q)'1% J8 '8-)+;8' 8+ 3')>+81% 8- (' J(;(J(8?J) 8+ ?=18') $ 3)' ". 3)' A. 8:&P:8'%. ^%-:% ++85%' % $F b( 8+ ?=18') J8 J(;(-)'8- 8?&)?:'%J)- 8- /. 8?:)?&8- 8+ ?=18') 8- 3'(1)a function result = esPrimo1(n) numeroDeDivisores=0; for i=1:n if mod(n, i)==0 numeroDeDivisores=numeroDeDivisores+1; end end if numeroDeDivisores==2 result=1; else result=0; end end P*/(%, V6

,? 38YG8i) &%1>() YG8 3)J81)- ^%&8'+8 % +% QG?&(K? 8-:U 8? 8+ =+:(1) )Ea 8? +G5%' J8 3'85G?:%' &GU?:)- J(;(-)'8- ^%C C %-(5?%' % /!#617. 3)J81)- %-(5?%' J('8&:%18?:8 8+ '8-G+:%J) J8 &)13G:%' $6I!/%j!j)Z)#%/!#>>DP YG8 J8;G8+;8 " ) 0 8? QG?&(K? J8 YG8 8+ '8-G+:%J) -8% &(8':) ) Q%+-)a function result = esPrimo1(n) numeroDeDivisores=0; for i=1:n if mod(n, i)==0 numeroDeDivisores=numeroDeDivisores+1; end end result= numeroDeDivisores==2; end P(#)*+# VW

E"

.+,+/)% 0%1% 2#+%1+

•

b)+G&(K? /2

I% -)+G&(K? %?:8'()'. ?) )>-:%?:8. 8- 1GC (?8Q(&(8?:8. 3)'YG8 ^%&81)- -(813'8 $ J(;(-()?8-2 *)J'\%1)- 8138W%' % J(;(J(' 3)' / C 3%'%' % +% 1(:%J J8 $a -( ?) 8?&)?:'%1)- J(;(-)'8-. 8?:)?&8- 8+ ?=18') 8- 3'(1)2 function result = esPrimo3(n) numeroDeDivisores=0; for i=2:n/2 if mod(n, i)==0 numeroDeDivisores=numeroDeDivisores+1; end end result= numeroDeDivisores==0; end P(#)*+# V7 •

b)+G&(K? A2

XG?YG8 +% -)+G&(K? %?:8'()' 8- 1U- 8Q(&(8?:8. 3')>%>+818?:8 3)J%1)- %;8'(5G%' -( $ 8- 3'(1) %?:8- J8 ++85%' % +% 1(:%J J8 $2 6? +G5%' J8 '8&)''8' &)? G? E%/. 3)J81)G:(+(W%' G? OX)1! YG8 -8 J8:8?5% ) >(8? &G%?J) -8 ++85G8 % +% 1(:%J J8 $P ) >(8? &G%?J) -8 8?&G8?:'8 G? J(;(-)' 8?:'8 / C $gDa function result = esPrimo4(n) numeroDeDivisores=0; i=2; while (i<=n/2 && numeroDeDivisores==0) if mod(n, i)==0 numeroDeDivisores=numeroDeDivisores+1; end i=i+1; end result= numeroDeDivisores==0; end P(#)*+# VX •

b)+G&(K? E2

,?% ;%'(%?:8. %=? 1U- 'U3(J%. &)?-(-:8 8? >G-&%' ^%-:% +% '%\W &G%J'%J% J8 $. 8? +G5%' J8 ^%-:% +% 1(:%J2 I% QG?&(K? J8 $XBIX[ 3%'% +% '%\W &G%J'%J% 8- #Y/7&"'G function result = esPrimo5(n) tic; numeroDeDivisores=0; i=2; while (i<=sqrt(n) && numeroDeDivisores==0) if mod(n, i)==0 numeroDeDivisores=numeroDeDivisores+1;

E/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

end i=i+1; end result= numeroDeDivisores==0; toc; end P(#)*+# VY •

b)+G&(K? F2

,?% =+:(1% 3)-(&(K? 3%-% 3)' 8+ G-) J8 +% QG?&(K? )#J/)I!&"' J8 $XBIX[. YG8 J8;G8+;8 " -( " 8- 3'(1) C R 8? &%-) &)?:'%'()2

EA

.+,+/)% 0%1% 2#+%1+

J98%)*)*& N6O b8)$&% )&# -&: ! .%*08%&: #T08%&: .%*0&: J:)%*S, (#, @(#)*+# R(8 '8;(8-;, (# ;8)$&% )&# -&: ! .%*08%&: #T08%&: .%*0&:O •

b)+G&(K? " R8''K?8%T2

,?% -)+G&(K? (?&)''8&:%. 38') 8? +% YG8 8- QU&(+ &%8'. &)?-(-:8 8? J(-3)?8' J8 G? >G&+8 E%/ J8-J8 " ^%-:% $. 8 (' 3'85G?:%?J) -( ) 8- 3'(1)2 6? &%-) %Q('1%:(;). +) %i%J(1)- %+ '8-G+:%J)2 6- J8&('a function result = vectorNPrimerosPrimosMalo(n) result=[]; for i=1:n if (isprime(i)) result=[result i]; end end end P(#)*+# VZO ?#, ;8%:*+# *#)&%%8)$, '8- ,-/&%*$0& :&-*)*$,'&

6+ &KJ(5) %?:8'()' ?) QG?&()?% >(8?. 3)'YG8 J8;G8+;8 G? ;8&:)' J8 3'(1)-. 38') ?) &)? +)- $ 3'(18')-. -(?) &)? +)- YG8 8-:U? 8?:'8 " C $a dd ;8&:)'<*'(18')-*'(1)-$%+)R"0T %?- ` / A

F

@

P*/(%, VW

e>-P';8-8 YG8 G-%1)- R8? +% 9G?&(K? ADT +% QG?&(K? J8 $XBIX[ )#0/)I!. 8? +G5%' J8 &G%+YG(8'% J8 +%- YG8 ^81)- 8-&'(:) %?:8-2 •

b)+G&(K? /2

I% -)+G&(K? 8?:)?&8- 8- -8?&(++%a 8? +G5%' J8 (' J8 1%?8'% Q(7% J8-J8 " % $ &)? G? E%/P ('81)- %i%J(8?J) 8+818?:)- 1(8?:'%- YG8 ?) ^%C%1)- 8?&)?:'%J) $ ?=18')-a 8J8&('. 1(8?:'%- ROX)1!' 8+ ?=18') J8 8+818?:)- 8? 8+ ;8&:)' '8-G+:%J) -8% 18?)' YG8 $F

EE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = vectorNPrimerosPrimos1(n) result=[]; i=1; while (length(result)
X^)'%. 8+ '8-G+:%J) YG8 ?)- J% $XBIX[ 8-a dd ;8&:)'<*'(18')-*'(1)-"R"0T %?- ` /

A

F

@ "" "A "@ "D /A /D

P*/(%, V7

EF

.+,+/)% 0%1% 2#+%1+

J98%)*)*& NWO b8)$&% )&# -&: ! .%*08%&: #T08%&: .%*0&: &%'8#,'&: '8 0,A&% , 08#&% J:)%*S, (#, @(#)*+# R(8 '8;(8-;, (# ;8)$&% )&# -&: ! .%*08%&: #T08%&: .%*0&: &%'8#,'&: '8 0,A&% , 08#&%O •

b)+G&(K? "2

*%'% '8-)+;8' 8-:8 878'&(&() 3)J81)- %i%J(' G?% -8?&(++% +\?8% %+ &KJ(5) J8 +% 9G?&(K? E0 R3U5(?% EFT. 8? +% YG8 ++%1%1)- % +% QG?&(K? #%/7 J8 $XBIX[2 #%/7 )'J8?% G? G?% 1%:'(W J8 18?)' % 1%C)' 38'). -( G:(+(W%1)- 8+ 3%'U18:') 8!#,!$8P +);8&:)' )'J8?%)J8-&8?J8?:818?:8a function result = vectorNPrimerosPrimosOrdenado1(n) result=[]; i=1; while (length(result)
b)+G&(K? /2

6? 8+ &KJ(5) %?:8'()'. 8? +% +\?8% YG8 ^%C J8?:') J8+ )E. %i%J(1)- &%J% ;%+)' J8 ) YG8 ;%1)- 8?&)?:'%?J) %+ Q(?%+ J8+ ;8&:)' R /!#617>b/!#617 )cT2 6? +G5%' J8 ^%&8' 8-). 3)J81)- %i%J('+) %+ 3'(?&(3(). 8-&'(>(8?J) /!#617>b) /!#617ca function result = vectorNPrimerosPrimosOrdenado2(n) result=[]; i=1; while (length(result)
6+ '8-G+:%J) J8 +% QG?&()?8- Z!,7%/Q0/)I!/%#0/)I%#k/8!$+8%A R9G?&(K? E"T C Z!,7%/Q0/)I!/%#0/)I%#k/8!$+8%D R9G?&(K? E/T 8- 8V%&:%18?:8 8+ 1(-1)a

EH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd ;8&:)'<*'(18')-*'(1)-e'J8?%J)"R"0T

dd ;8&:)'<*'(18')-*'(1)-e'J8?%J)/R"0T

%?- `

%?- `

/D /A "D "@ "A "" @ F A /

/D /A "D "@ "A "" @ F A /

P*/(%, VY

E@

.+,+/)% 0%1% 2#+%1+

J98%)*)*& N7O D,-)(-,% 8- 8#[:*0& #T08%& .%*0& J:)%*S, (#, @(#)*+# R(8 '8;(8-;, 8- !,B.2(# #T08%& .%*0&< :*8#'& ! 8- ;,-&% .,:,'& )&0& .,%C08$%&O •

b)+G&(K? "2

,:(+(W%'81)- +% QG?&(K? )#J/)I!&"' 3%'% (' 58?8'%?J) ?=18')- 3'(1)- ^%-:% YG8 G? &)?:%J)' ++85G8 % $a function result = enesimoPrimo( n ) contador=0; i=2; while contador
EL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& NXO D&#$,% #T08%&: '*:$*#$&: 8# (# ;8)$&% J:)%*S, (#, @(#)*+# R(8 '8;(8-;, )(C#$&: #T08%&: '*:$*#$&: ,.,%8)8# 8# 8;8)$&% R(8 :8 .,:, )&0& .,%C08$%&O •

b)+G&(K? "2

,?% Q)'1% J8 ^%&8'+) % 1%?). YG8 :'%:%'81)- J8 (1(:%'. 8- +% -(5G(8?:8a '8&)''8'81)- 8+ ;8&:)' Z YG8 ?)- 3%-%? &)1) 3%'U18:') J8-J8 8+ 3'(?&(3() ^%-:% 8+ Q(?%+ &)? G? E%/l 8? &%J% (:8'%&(K?. 1('%1)- -( 8+ ;%+)' )@`#)I% C% -8 8?&G8?:'% 8? +6")1)+/ G?;%+)' ;8&:)' ^%>'81)3'8;(%18?:8 8+ 8-:U. ?) +) YG8 %i%J(1)-l -( ?)&)?-:'G(J) 8-:U. +) %i%J(1)-2 M)1)(?(&(%+(WU?J)+) '8-G+:%J). % ;%&\)a -( J8;)+;8'81)- 8+ :%1%i) J8+ ;8&:)' %GV(+(%'a

.&:*)*+# ;^ ,(=*-*,%^

N " "

U / /

V A A

6 " E

W E L

7 L f"

X f" H

Y H @

Z @

N\ "

I% -)+G&(K? 3)J81)- (13+818?:%'+% &)1) 8? +% 9G?&(K? EEa &'8%1)- 8+ ;8&:)' +6")1)+/ ;%&\)l +G85). 8? 8+ >G&+8. %+1%&8?%1)- 8? G? ;8&:)' +J+/),)%$!#j!l) +%;8&8- YG8 %3%'8&8 8+ ?=18') Z&)' 8? 8+ ;8&:)' +6")1)+/F b( ?) %3%'8&8 ?(?5G?% ;8W R8- J8&('. -( +% +)?5(:GJ J8+ ;8&:)' +J+/),)%$!#j!l) 8- &8')T. 8?:)?&8- +) %i%J(1)-2 X+ Q(?%+. J8;)+;81)- +% +)?5(:GJ J8+ ;8&:)' +6")1)+/ &)1) '8-G+:%J)2 function result = numerosDistintos1( v ) auxiliar=[]; for i=1:length(v) aparicionesDeVi=find(auxiliar==v(i)); if length(aparicionesDeVi)==0 auxiliar=[auxiliar v(i)]; end end result=length(auxiliar); end P(#)*+# 66

,? 3%' J8 87813+)- J8 +% 878&G&(K? -)?a dd V V` "

dd W`s" " " " / A "t

/

A

"

E

L

f"

H

@

"

W` "

"

"

"

/

A

dd ?G18')-N(-:(?:)-"RVT

dd ?G18')-N(-:(?:)-"RWT

%?- `

%?- `

L

A

P*/(%, VZ

ED

"

.+,+/)% 0%1% 2#+%1+

J98%)*)*& NYO I8:)&0.&:*)*+# 8# @,)$&%8: .%*0&: c"d J:)%*S, (#, @(#)*+# R(8 '8;(8-;, (# ;8)$&% )&# -&: @,)$&%8: .%*0&: '8#T08%& R(8 :8 .,:, )&0& .,%C08$%&O •

b)+G&(K? "2

I) YG8 ^%&81)- ^%>(:G%+18?:8 % 1%?) 8-. &)1) -8 1G8-:'% % &)?:(?G%&(K?. 8?&)?:'%' 8+ 18?)' ?=18') 3'(1) 3)' 8+ YG8 $ 8- J(;(-(>+8a &G%?J) +) 8?&)?:'%1)-. +) 5G%'J%1)-. &%+&G+%1)- 8+ &)&(8?:8 C -85G(1)- ^%-:% YG8 8+ &)&(8?:8 -8% "2

O%1)- % 3')&8J8' 8V%&:%18?:8 J8 +% 1(-1% Q)'1%. %3');8&^%?J) +% QG?&(K? !$!#)I%0/)I% YG8 8-&'(>(1)- 8? +% 9G?&(K? EA R3U5(?% ELTa 1(8?:'%- 8+ &)&(8?:8 RYG8 (?(&(%+18?:8 8- $. 38') YG8 -8 ;% %&:G%+(W%?J) -85=? ;%C%1)- 8?&)?:'%?J) Q%&:)'8- 3'(1)-T -8% J(-:(?:) J8 ". >G-&%1)- R8? 8+ OX)1! %?(J%J)T 8+ 3'(18' ?=18') 3'(1) YG8 J(;(J8 %+ &)&(8?:8a &G%?J) +) 8?&)?:'%1)-. +) %i%J(1)- %+ /!#617 C %&:G%+(W%1)- 8+ ,%,)!$7! %+ ;%+)' YG8 :8?\% J(;(J(J) 3)' 8+ ?=18') ;8&:)' 3'(1) YG8 %&%>%1)J8 8?&)?:'%'2

function result = factoresPrimos1( n ) result=[]; cociente=n; while (cociente~=1) i=1; while (mod(cociente, enesimoPrimo(i))~=0) i=i+1; end result=[result enesimoPrimo(i)]; cociente=floor(cociente/enesimoPrimo(i)); end end P(#)*+# 6WO DC-)(-& '8 -&: @,)$&%8: .%*0&: '8 !

I)- J)- 87813+)- 1%?G-&'(:)- YG8 ;8\%1)- %''(>% -)?a

F0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd Q%&:)'8-*'(1)-"R"/0T

dd Q%&:)'8-*'(1)-"R/@T

%?- `

%?- `

/

/

/

A

F

A

P*/(%, 6\

F"

A

A

.+,+/)% 0%1% 2#+%1+

J98%)*)*& NZO I8:)&0.&:*)*+# 8# @,)$&%8: .%*0&: c""d J:)%*S, (#, @(#)*+# R(8 '8;(8-;, (#, 0,$%*Q )&# '&: @*-,:] 8# -, .%*08%, ,.,%8)8%C# -&: @,)$&%8: .%*0&: '8- #T08%& R(8 :8 .,:, )&0& .,%C08$%&_ 8# -, :8/(#',< -&: 8=.#$8: '8 '*)F&: @,)$&%8: .%*0&:O >&% 8980.-&< .,%, 8- #T08%& NU\< R(8 8: UVjVjW< :8 '8;&-;8%C -, :*/(*8#$8 0,$%*Q] U V •

V N

W N

b)+G&(K? "2

N8+ 878'&(&() %?:8'()' :8?81)- +% QG?&(K? YG8 J8;G8+;8 G? ;8&:)' &)? +)- Q%&:)'83'(1)- J8+ $ YG8 3%-%1)- &)1) 3%'U18:')2 N8+ "/0. 3)' 87813+). )>:8?81)- 8+ -(5G(8?:8 ;8&:)'a

.&:*)*+# N U V 6 W %8:(-$^ / / / A F I) YG8 ^%'81)- -8'U 8-&'(>(' G?% ?G8;% QG?&(K? YG8 ^%5% +) -(5G(8?:8a "T }G%'J%'81)- +)- Q%&:)'8- 3'(1)- J8 $ 8? G? ;8&:)' E+,7%/!#P YG8 &)?-:'G('81)- ++%1%?J) % +% 9G?&(K? EF R3%5(?% F0T2 /T M'8%'81)- J)- ;8&:)'8-a G?) 3%'% 5G%'J%' +)- Q%&:)'8- YG8 8?&)?:'81)- R8+ /. 8+ A C 8+ F 8? 8+ 87813+) J8+ ?=18') "/0T C ):') 3%'% 5G%'J%' +)8V3)?8?:8- RA. " C " 8? 8+ 1(-1) 87813+)T2 I+%1%'81)- % 8-:)- ;8&:)'8-. '8-38&:(;%18?:8. E)1+(+,7%/!# C E)1+]"J%$!$7!#F MG%?J) +)- ^%C%1)&)13+8:%J). +)- G:(+(W%'81)- 3%'% J8;)+;8' +% 1%:'(W '8-G+:%?:82 AT o8&)''8'81)- :)J)- +)- ;%+)'8- YG8 :8?5%1)- 8? 8+ ;8&:)' E+,7%/!#F b( 8+ ;%+)' )@`#)I% ?) 8-:U 8? E)1+(+,7%/!#P +) %i%J(1)- %+ Q(?%+ C %i%J(1):%1>(P? G? " %+ Q(?%+ J8 E)1+]"J%$!$7!#F b( 8+ ;%+)' C% 8-:G;(8'%. 8?:)?&8>%-:% &)? (?&'818?:%' 8? G?) 8+ ;%+)' &)''8-3)?J(8?:8 8? E)1+]"J%$!$7!#F ET 9(?%+18?:8. J8;)+;8'81)- G?% 1%:'(W Q)'1%J% 3)' E)1+(+,7%/!# C ()1+]"J%$!$7!#F

6-:) 8- +) YG8 -8 ^%&8 8? +% QG?&(K? -(5G(8?:8a

F/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = factoresPrimos2( n ) factores=factoresPrimos1(n); filaFactores=[]; filaExponentes=[]; for i=1:length(f actores) factorI=factores(i); posicionDelF actor=find(f ilaFactores= =factorI); if length(posicionDelFactor)==0 filaFactores=[filaFactores factorI]; filaExponent es=[filaExpo nentes 1]; else filaExponentes(posicionDelFactor(1))= filaExponentes(posicionDelFactor(1))+1; end end result=[fila Factores; filaExponent es]; end

P(#)*+# 67O I8;&-()*+# '8 -&: @,)$&%8: .%*0&: 8# '&: ;8)$&%8:

r%5%1)- G?% :'%W% J8 87813+) &)? 8+ ?=18') "/02 M)1) J8:%++8. ?K:8-8 YG8 8? +% ;%'(%>+8 J%#),)%$j!1(+,7%/ 5G%'J%1)- 8+ '8-G+:%J) J8 878&G:%' +% QG?&(K? E)$8 J8 $XBIX[. YG8 J8;G8+;8 G? ;8&:)' &)? +%- 3)-(&()?8- J8 +)- 8+818?:)- YG8 &G13+8? &(8':% &)?J(&(K?2 b( ?(?5G?) J8 +)- 8+818?:)- +% &G13+8. J%#),)%$j!1(+,7%/ 8-:%'U ;%&\)2 D&08#$,%*&:

@,)$&%8: s/ / / A Ft

6+ )E 8- &(8':) 6+ )E 8- Q%+-) 6+ )E 8- Q%+-) 6+ 8- )E&(8':)

E

6+ )E 8- &(8':)

*

@,)$&%"

.&:*)*&#I8-P,)$&%

" " / / A A E A F F

/ / / / / / A

st st s"t s"t s"t s"t st st

F F

st st

@*-,P,)$&%8: st

s/t s/t s/t s/t s/t s/t s/At s/At s / A Ft

@*-,J=.#$8: st

s"t s"t s/t s /t sAt sAt sA"t sA"t sA""t

h +Y6m #! 7!/I)$+ !1 *6,1! J%/Y6! #! X+ 11!H+8% + )>NP Y6! !# 1+ 1%$H)768 8!1 Z!,7%/ 8! !$7/+8+F

P*/(%, 6NO 3%,Q, '8 -, P(#)*+# 67 .,%, !'-=A

b( 878&G:%1)- +% QG?&(K? 8? $XBIX[. 8+ '8-G+:%J) 8-a dd Q%&:)'8-*'(1)-/R"/0T %?- ` / A

A "

F "

P*/(%, 6U

FA

.+,+/)% 0%1% 2#+%1+

J98%)*)*& U\O 1C=*0& )&0T# '*;*:&% J:)%*S, (#, @(#)*+# R(8 '8;(8-;, 8- 0C=*0& )&0T# '*;*:&% '8 ! A (O •

b)+G&(K? "2

I) ^%>(:G%+ 8- ^%&8' +% J8-&)13)-(&(K? 8? Q%&:)'8- 3'(1)- J8 $ C I C. +G85). :)1%' +)- Q%&:)'8- &)1G?8- &)? -G 18?)' 8V3)?8?:82 *)' 87813+). 3%'% &%+&G+%' 8+ 1UV(1) &)1=? J(;(-)' J8 EL C H0. ^%&81)-a EL`/E_A H0`//_A_F M)? +) YG8 8+ I,8 8- //_A`"/2 b( %3+(&%1)- +% 9G?&(K? EH % +)- ?=18')- EL C H0. )>:8?81)- +%- J)- -(5G(8?:81%:'(&8- % +%- YG8. 3)' 8?:8?J8'?)-. ++%1%'81)- I3T C I4RG

06Y

/ E

A "

07\

/ /

A "

F "

I) YG8 ;%1)- % ^%&8' 8- '8&)''8' +)- Q%&:)'8- R+% Q(+% "T J8 I3T C ;8' -( 8-:U? 8? +)Q%&:)'8- J8 I4RF 6? &%-) %Q('1%:(;). %i%J('81)- % G?% ;%'(%>+8 /!#617 J8 %&G1G+%&(K? 8+ Q%&:)' &)1=? 1G+:(3+(&%J) 3)' 8+ 18?)' 8V3)?8?:8 J8 +)- J)-2 function result = mcd1(n, m) fpN=factoresPrimos2(n); fpM=factoresPrimos2(m); factoresN=fpN(1, :); exponentesN=fpN(2, :); factoresM=fpM(1, :); exponentesM=fpM(2, :); result=1; for i=1:length(factoresN) posicionEnM=find(factoresM==factoresN(i)); if (length(posicionEnM)>0) exponente=min(exponentesN(i), exponentesM(posicionEnM(1))); result=result*factoresN(i)êxponente; end end end P(#)*+# 6X •

b)+G&(K? /2

e:'% -)+G&(K? 8+85%?:8 ;(8?8 J%J% 3)' +% %3+(&%&(K? J8+ +1H%/)7I% 8! ]6,1)8!#G 3%'% &%+&G+%' 8+ I,8 J8 $ C I -8 ^%&8 +) -(5G(8?:8a

FE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

"T b( I>>R. 8?:)?&8- I,8&$P I'>$ C 3%'%1)-2 /T b( ?). I,8&$P I'>I,8&IP /'P J)?J8 / 8- 8+ '8-:) J8 $ 8?:'8 IF b8 :'%:%. &)1) -8 ;8. J8 G?% QG?&(K? '8&G'-(;% 38') YG8 8- 1GC QU&(+ J8 (13+818?:%'a function result = mcd2Euclides(n, m) if m==0 result=n; else r=mod(n, m); result=mcd2Euclides(m, r); end end P(#)*+# 6Y

FF

.+,+/)% 0%1% 2#+%1+

J98%)*)*& UNO 3,S-8%& '8 ,98'%8Q J:)%*S*% (#, @(#)*+# R(8 '*S(98 (# $,S-8%& '8 ,98'%8QO 4,: ),:*--,: #8/%,: :8 *#'*),%C# )&# H A -,: S-,#),: )&# 5O •

b)+G&(K? "2

6+ :%>+8') J8 %78J'8W 8- G? &G%J'%J) J8 LVL &%-(++%-2 b%>(8?J) YG8 +% &%-(++% -G38'()' (WYG(8'J% 8- >+%?&%. % 3%':(' J8 8++% 3)J81)- &)+)'8%' :)J%- +%- J81U-2 N(&^% &%-(++% 8-:U 8? +% 3)-(&(K? R". "Ta -( ?)- J%1)- &G8?:%. -)? >+%?&%- +%- &%-(++%&GC% -G1% J8 Q(+% C &)+G1?% 8- 3%'. C ?85'%- +%- J81U-2 ,?% QG?&(K? YG8 J(>G7% 8+ :%>+8') 8- +% -(5G(8?:8a function tablero = tablero() tablero=char(8,8); for i=1:1:8 for j=1:1:8 if (mod(i+j, 2)==0) tablero(i,j)='B'; else tablero(i,j)='N'; end end end end P(#)*+# 6Z

e>-P';8-8 YG8 +% ;%'(%>+8 7+*1!/%P YG8 %+1%&8?% 8+ '8-G+:%J). -8 (?(&(%+(W% % G?% 1%:'(W J8 LVL &%'%&:8'8-. C% YG8 8? -G- 3)-(&()?8- &)+)&%'81)- +8:'%-2 b( +% 878&G:%1)-. 8+ '8-G+:%J) 8-a dd :%>+8') %?- ` [<[<[<[< <[<[<[<[ [<[<[<[< <[<[<[<[ [<[<[<[< <[<[<[<[ [<[<[<[< <[<[<[<[ P*/(%, 6V

FH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UUO 2-@*J:)%*S, (#, @(#)*+# 8# 123425 R(8 $&08 )&0& .,%C08$%&: -, .&:*)*+# c@*-, A )&-(0#,d '8 (# ,-@*- 8# 8- $,S-8%& '8 ,98'%8Q A 0(8:$%8 $&'&: :(: .&:*S-8: 0&;*0*8#$&: )&# (# ,:$8%*:)&O •

b)+G&(K? "2

6+ %+Q(+ -8 1G8;8 8? J(%5)?%+a G? %+Q(+ &)1) 8+ J8 +% Q(5G'%. -(:G%J) 8? +% Q(+% E. &)+G1?% E. 3G8J8 1);8'-8 % :)J%- +%- &%-(++%- -8i%+%J%- &)? 8+ %-:8'(-&)2 b( ?)Q(7%1)-. +% -G1% J8 C &)+G1?% +%-8-:U &%-(++%J8 +%8+J(%5)?%+ %-&8?J8?:8 -(813'8 L R(5G%+ YG8+%+%Q(+% 3)-(&(K? 8? +%J8YG8 -(:G%J) %+Q(+Tl '8-38&:) J8 +%-8-YG8 8-:U? 8? +% J8-&8?J8?:8. -G&8J8 YG8 +% '8-:% J8 -G- &)+G1?% C Q(+% 8- &8'). (5G%+ YG8 +% '8-:% J8 +% 3)-(&(K? )'(5(?%+ J8+ %+Q(+2 " / A E F H @ L " c c / c c A c c E X F c c H c c @ c c L c r8&^% 8-:% )>-8';%&(K?. +% -)+G&(K? 8- 1GC -8?&(++%a function t = alfil( col, fila ) t=tablero(); for i=1:1:8 for j=1:1:8 if (i+j==col+fila || i-j==col-fila) t(i,j)='*'; end end end end P(#)*+# W\O ?#, :&-()*+# @C)*- '8 *0.-808#$,%< .8%& #& 0(A 8@*)*8#$8< .,%, -&: 0&;*0*8#$&: '8- ,-@*-

w. -( ++%1%1)- % +% QG?&(K?. )>:8?81)-a dd %+Q(+RE. ET %?- ` c<[<[
dd %+Q(+RE. "T %?- ` [<[c[<[< <[c[<[<[ [c[<[<[< c[<[<[<[ [c[<[<[< <[c[<[<[ [<[c[<[< <[<[c[<[

P*/(%, 66

F@

.+,+/)% 0%1% 2#+%1+

(%J)- R8? +G5%' J8 3PA 3%-%1)- AP3T. 8+ '8-G+:%J) J8 +% J8'8&^% J8 +% Q(5G'% %?:8'()' &%1>(%a dd %+Q(+RE. ET %?- ` c<[<[
dd %+Q(+R".ET %?- ` [<[c[<[< <[c[c[<[ [c[<[c[< c[<[<[c[ [<[<[<[c

<[<[<[<[ [<[<[<[< <[<[<[<[

P*/(%, 6WO J- %8:(-$,'& '8%8)F& '8 -, P*/(%, 66 ),0S*, :* ,-$8%,0&: 8- &%'8# '8- ;,-&% '8 -&: .,%C08$%&: •

b)+G&(K? /2

XG?YG8 QG?&()?8-. +% -)+G&(K? %?:8'()' ?) 8-. J8 :)J)- 1)J)-. J81%-(%J) 8Q(&(8?:8. C% YG8 3%-% 3)' +%- HE &%-(++%- J8+ :%>+8')2 b( +) ^%&81)- % 1%?). ?) ?)- ^%&8 Q%+:% (' '8&)''(8?J) :)J%- +%- &%-(++%- 3%'% -%>8' -( G?% &%-(++% J%J% 8- %+&%?W%>+8 ) ?) 3)' 8+ %+Q(+2 *%'% 1%'&%'. -)>'8 G? :%>+8') J8 ;8'J%J C 1%?G%+18?:8. +%- &%-(++%- %+&%?W%>+83)' G? %+Q(+. >%-:% &)? YG8 ;%C%1)- 1);(P?J)?)- 8? &G%:') J('8&&()?8- C ;(-(:%?J) 1G&^%- 18?)- &%-(++%-a %''(>%. J8'8&^%l %>%7). J8'8&^%l %''(>%. (WYG(8'J%l %>%7). (WYG(8'J%2 6-:) +) 3)J81)- &)?-85G(' &)? &G%:') >G&+8- OX)1! R9G?&(K? F"TP G?) 3%'% +)- 1);(1(8?:)- 8? &%J% J('8&&(K?2 B8?(8?J) 8? &G8?:% YG8. 8? $XBIX[. +% 3'(18'% Q(+% R+% Q(+% "T 8- +% J8 %''(>%. +% 3'(18'% &)+G1?% R&)+G1?% "T 8- +% J8 +% (WYG(8'J% C YG8 3%'% &)+)&%' G? 8+818?:) 8? G?% 1%:'(W -8 3%-% 3'(18') +% Q(+% C +G85) +% &)+G1?%. :8?81)- YG8a "T $);8'?)- ^%&(% ,%%*S, A , -, '8%8)F, -(5?(Q(&% (?&'818?:%' +% &)+G1?% C J8&'818?:%' +% Q(+%2 ,-%1)- J)- ;%'(%>+8- ) C 5 3%'% (' 1%'&%?J) +% &%-(++% 8? +% YG8 YG8'81)- &)+)&%' 8+ %-:8'(-&)a 3%':(8?J) J8 +% 3)-(&(K? (?(&(%+ RYG8 ;(8?8 J%J% 3)' +)- 3%'U18:')- ,%1P E)1+T. J8&'818?:%1)- +% Q(+% R)T 8 (?&'818?:%1)- +% &)+G1?% R5T 1(8?:'%- 8-:81)- J8?:') J8 +)- +\1(:8- J8+ :%>+8')2 /T $);8'?)- ^%&(% ,S,9& A , -, '8%8)F, 8YG(;%+8 % (?&'818?:%' +% &)+G1?% 8 (?&'818?:%' +% Q(+%2 X^)'%. (?&'818?:%1)- ) C 5 8? &%J% ;G8+:% J8+ >G&+8 1(8?:'%- 8-:81)- J8?:') J8+)- +\1(:8- J8+ :%>+8')2 AT $);8'?)- ^%&(% ,%%*S, A , -, *QR(*8%', 8YG(;%+8 % J8&'818?:%' :%?:) +% &)+G1?% &)1) +% Q(+%2 X^)'%. '8-:%1)- " % ) C " % 5 8? &%J% ;G8+:% J8+ >G&+8 1(8?:'%- 8-:81)- J8?:') J8+)- +\1(:8- J8+ :%>+8')2 ET $);8'?)- ^%&(% ,S,9& A , -, *QR(*8%', (13+(&% 8+ J8&'818?:) J8 +% &)+G1?% C 8+ (?&'818?:) J8 +% Q(+%a 1(8?:'%- 8-:81)- J8?:') J8+)- +\1(:8J8+ :%>+8'). -G1%1)- " % ) C '8-:%1)- " % 5F

FL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function t = alfil2( col, fila ) t=tablero(); % Derecha, arriba i=fila; j=col; while (i>=1 && j<=8) t(i, j)='*'; i=i-1; j=j+1; end % Derecha, abajo i=fila; j=col; while (i<=8 && j<=8) t(i, j)='*'; i=i+1; j=j+1; end % Izquierda, arriba i=fila; j=col; while (i>=1 && j>=1) t(i, j)='*'; i=i-1; j=j-1; end % Izquierda, abajo i=fila; j=col; while (i<=8 && j>=1) t(i, j)='*'; i=i+1; j=j-1; end end P(#)*+# WNO 1&;*0*8#$&: '8- ,-@*-< )&#:8/(*'&: )&# 08#&% )&:$8 •

b)+G&(K? A2

6(13)':%?:8 8+ &KJ(5) YG8 8-&'(>%1)+85(>+8. QU&(+ J8 G-%' :8'&8'%38'-)?%C. 8? YG8 +% 18J(J% J8 +) 3)-(>+8. QU&(+ J8-8% 8?:8?J8'2 o8-38&:) J8+3)' &KJ(5) J8 +%J)- -)+G&()?8- YG8 ^81)- J%J) 3%'% 8+ 1);(1(8?:) J8+ %+Q(+. G? 38YG8i) J8:%++8 187)'%>+8 8- YG8 +% QG?&(K? '8&(>% +)- 3%'U18:')- 8? 8+ 1(-1) )'J8? 8? YG8 -8 G:(+(W%? 8? +%- 1%:'(&8- J8 $XBIX[a 8- J8&('. -( $XBIX[ G-% +% ?):%&(K? E)1+P ,%16I$+ 3%'% &)+)&%' G? ;%+)' 8? +% 1%:'(W. YG8J% 187)' YG8 +% QG?&(K? +1E)1 :)18 :%1>(P? +)- 3%'U18:')- 8? 8-8 )'J8?2 6-:) ^%'U 1U- J(Q\&(+ YG8 8+ G-G%'() J8 ?G8-:'% QG?&(K? -8 8YG(;)YG82

FD

.+,+/)% 0%1% 2#+%1+

w% YG8 +)- ;%+)'8- J8 +)- 3%'U18:')- ,%1 C E)1+ -8 G-%? -K+) 3%'% '8%+(W%' %-(5?%&()?8-. 3)J81)- 1)J(Q(&%' +% &%>8&8'% J8 +% QG?&(K? 3%'% YG8 +)3%'U18:')- -8 3%-8? 8? 8+ )'J8? ^%>(:G%+2 6- J8&('. J87%' +% &%>8&8'% &)1) 8? +% 9G?&(K? F/a function t = alfil3( fila, col) % Todo el código de la función exactamente igual

p end P(#)*+# WUO 4, 0*:0, P(#)*+# WN< .8%& )&# -&: .,%C08$%&: *#$8%),0S*,'&:

H0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UVO J- ),S,--& '8 ,98'%8Q J:)%*S*% (#, @(#)*+# 8# 123425 R(8 $&08 )&0& .,%C08$%&: -, .&:*)*+# c@*-, A )&-(0#,d '8 (# ),S,--& 8# 8- $,S-8%& '8 ,98'%8Q A 0(8:$%8 $&'&: :(: .&:*S-8: 0&;*0*8#$&: )&# (# ,:$8%*:)&O •

b)+G&(K? "2

N8 1%?8'% 58?8'%+. 8? 8-:8 :(3) J8 3')>+81%- R&)1) 8? 8+ %?:8'()'. J8+ %+Q(+T -8 :'%:% J8 8?&)?:'%' %+5=? 3%:'K? YG8 '8+%&()?8 +% 3)-(&(K? J8 )'(58? &)? +%3)-(>+8- 3)-(&()?8- J8 J8-:(?)2 6? 8+ &%-) J8+ &%>%++) J8+ %78J'8W. 8+ 1);(1(8?:) 8- 8? I. % J8'8&^% 8 (WYG(8'J% C ^%&(% %''(>% C %>%7). &)1) -8 1G8-:'% 8? 8+ :%>+8') -(5G(8?:8. J8 1%?8'% YG8 8+ ?=18') J8 &%-(++%- J8 +% I YG8 3G8J8 1);8'-8 8- :'8-a J)- % +% J8'8&^%~(WYG(8'J% C G?% %''(>%~%>%7). ) G?% % +% J8'8&^%~(WYG(8'J% C J)- %''(>%~%>%7)2 " / A E F H @ L " / A E F H @ L

c

c

c

c M

c

c c

c

*)' &%1>(%' G? 3)&) 8+ 3G?:) J8 ;(-:% J8 +% -)+G&(K? '8-38&:) J8+ 878'&(&() %?:8'()' J8+ %+Q(+. ^%'81)- %^)'% +) -(5G(8?:8a "T X 3%':(' J8 +% 3)-(&(K? (?(&(%+ RYG8 ;8?J'U 8? 8+ )'J8? E)1+P ,%1T. 1);8'81)G?% &)+G1?% % +% J8'8&^% R8? 8+ 87813+) J8 %''(>%. ('81)- % +% &%-(++% E.FT2 ,?% ;8W %YG\. &)+)&%1)- G? %-:8'(-&) J)- Q(+%- %''(>% C J)- Q(+%- %>%7)2 X-\. ^%>'81)- &)+)&%J) +)- %-:8'(-&)- 8? R/.FT C RH.FT2 /T O)+;81)- % +% 3)-(&(K? (?(&(%+ C 1);81)- J)- &%-(++%- % +% J8'8&^%2 IG85). &)+)&%1)- 8+ %-:8'(-&) G?% Q(+% %''(>% C G?% Q(+% %>%7)2 AT e:'% ;8W J8-J8 +% 3)-(&(K? (?(&(%+. ?)- 1);81)- G?% % +% (WYG(8'J% C &)+)&%1)- G? %-:8'(-&) J)- Q(+%- %''(>% C J)- Q(+%- %>%7)2 ET *)' =+:(1). ?)- 1);81)- J)- &)+G1?%- % +% (WYG(8'J% C &)+)&%1)- 8+ %-:8'(-&) J)- Q(+%- %''(>% C J)- Q(+%- %>%7)2 e>;(%18?:8. :8?81)- YG8 &)?:')+%' YG8 ?) ?)- -%+5%1)- J8 +)- +\1(:8- J8+ :%>+8'). YG8 ;(8?8? J%J)- 3)' +)- ;%+)'8- " % L 3%'% +% Q(+% C +% &)+G1?%2 I% -)+G&(K? YG8 J%1)- 8? +% 9G?&(K? FA -(1G+% 8-:)- &G%:') >+)YG8- J8 1);(1(8?:)-2 ,:(+(W%1)- J)- ;%'(%>+8- %GV(+(%'8- ) C 5 3%'% J8?):%' '8-38&:(;%18?:8 +% Q(+% C &)+G1?% 8? YG8 J8>81)- &)+)&%' +)- %-:8'(-&)-2 6? 8+ 3'(18'). 3)' 87813+). %-(5?%1)- % 5 8+ ;%+)' J8+ 3%'U18:') ,%1 (?&'818?:%J) 8? "l -( 8-:%1)- J8?:') J8+ :%>+8') R8- J8&('. -( 5i>T'. 8?:)?&8- '8-:%1)- / % +% Q(+% R;%'(%>+8 )T. ;)+;81)- % &)13')>%' YG8 8-:%1)- J8?:') J8+ :%>+8') R)a>AT C. 8? &%-) %Q('1%:(;). &)+)&%1)- 8+ %-:8'(-&)2 r%&81)- % &)?:(?G%&(K? +) 1(-1) 3%'% +% &%-(++% -(:G%J% J)- Q(+%- 3)' J8>%7) J8 +% )'(5(?%+ R )>E)1+VDT2 H"

.+,+/)% 0%1% 2#+%1+

function t = caballo1(fila, col) t=tablero(); % 1 a la derecha, 2 arriba y abajo j=col+1; if j<=8 i=fila-2; if i>=1 t(i, j)= '*' ; end i=fila+2; if (i<=8) t(i, j)= '*' ; end end % 2 a la derecha, 1 arriba y abajo j=col+2; if j<=8 i=fila-1; if i>=1 t(i, j)= '*' ; end i=fila+1; if (i<=8) t(i, j)= '*' ; end end % 1 a la izquierda, 2 arriba y abajo j=col-1; if j>=1 i=fila-2; if i>=1 t(i, j)= '*' ; end i=fila+2; if (i<=8) t(i, j)= '*' ; end end % 2 a la izquierda, 1 arriba y abajo j=col-2; if j>=1 i=fila-1; if i>=1 t(i, j)= '*' ; end i=fila+1; if (i<=8) t(i, j)= '*' ; end end end P(#)*+# WVO 1&;*0*8#$&: '8- ),S,--&

H/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

•

b)+G&(K? /2

b( ?)- Q(7%1)- 8? +)- >+)YG8- J8 &KJ(5) J8 +% 9G?&(K? FA. ;81)- YG8 +)- J)1);(1(8?:)- % +% J8'8&^% -)? &%-( 8V%&:%18?:8 (5G%+8- 8?:'8 -\. &)1) :%1>(P? +)J)- 1);(1(8?:)- % +% (WYG(8'J%2 6? +% 9(5G'% EH '8-%+:%1)- 8? %1%'(++) +%J(Q8'8?&(%- 8?:'8 +)- 1);(1(8?:)- ^%&(% +% J8'8&^%a &G%?J) -8 -G1% " % +% &)+G1?%. -8 '8-:% C -G1% / % +% Q(+%l &G%?J) -8 -G1% / % +% &)+G1?%. -8 '8-:% C -G1% " % +% Q(+%2 % 1 a la derecha, 2 arriba y abajo j=col+1; if j<=8 i=fila-2; if i>=1 t(i, j)= '*' ; end i=fila+2; if (i<=8) t(i, j)= '*' ; end end

% 2 a la derecha, 1 arriba y abajo j=col+2; if j<=8 i=fila-1; if i>=1 t(i, j)= '*' ; end i=fila+1; if (i<=8) t(i, j)= '*' ; end end

P*/(%, 67O 4&: 0&;*0*8#$&: , -, '8%8)F, :&# 0(A .,%8)*'&: 8# -, P(#)*+# WV

*)J81)- %5'G3%' +)- J)- :')W)- J8 &KJ(5) 8? G?) -)+). &)? G? >G&+8 E%/ &GC% ;%'(%>+8 J8 &)?:')+. % +% YG8 3)J81)- ++%1%' #6I+P ;%C% J8-J8 " ^%-:% / C YG8 G:(+(W%'81)- 3%'% -G1%'+% % +% ;%'(%>+8 5F 6- J8&('. -G-:(:G(' %1>)- Q'%518?:)- J8 &KJ(5) 3)' G?) -)+). &)1) 8? +% 9(5G'% E@a % Movimientos a la derecha for suma=1:2 j=col+suma; if j<=8 i=fila-2; % Si suma=1, restar 2; si suma=2, restar 1 if i>=1 t(i, j)='*'; end i=fila+2; % Si suma=1, sumar 2; si suma=2, sumar 1 if (i<=8) t(i, j)='*'; end end end P*/(%, 6XO >,:& N '8- ,/%(.,0*8#$& 8# (#& '8 -&: '&: S-&R(8: '8 -, P*/(%, 67

6? +% Q(5G'% %?:8'()'. -G1%1)- +% ;%'(%>+8 #6I+ % 5a +% 3'(18'% ;8W -8 +8 -G1% ". C +% -85G?J% /2 b(? 81>%'5). ?)- Q%+:% %&:G%+(W%' %J8&G%J%18?:8 +)- ;%+)'8- YG8 J8>8? '8-:%'-8 C -G1%'-8 C YG8 ^81)- '8-%+:%J) 8? 1)'%J)2 6? 8-:8 &%-). &G%?J) #6I+>A ^%C YG8 '8-:%'~-G1%' / ) " -85=? #6I+ -8%. '8-38&:(;%18?:8. " ) /2 6-:8 ;%+)' YG8 J8-8%1)- -G-:(:GC% %+ f/ C %+ k/ YG8 %3%'8&8? 8? 1)'%J) +) &)?-85G(1)- &)? +% 8V3'8-(K? C@#6I+F 6+ &KJ(5) 3%'% 8+ 1);(1(8?:) % +% J8'8&^%. 8?:)?&8-. YG8J% J8 +% -(5G(8?:8 1%?8'%a

HA

.+,+/)% 0%1% 2#+%1+

function t = caballo2(fila, col) t=tablero(); % Movimientos a la derecha for suma=1:2 j=col+suma; if j<=8 i=fila-(3-suma); if i>=1 t(i, j)='*'; end i=fila+(3-suma); if (i<=8) t(i, j)='*'; end end end % 1 a la izquierda, 2 arriba y abajo j=col-1; if j>=1 i=fila-2; if i>=1 t(i, j)='*'; end i=fila+2; if (i<=8) t(i, j)='*'; end end % 2 a la izquierda, 1 arriba y abajo j=col-2; if j>=1 i=fila-1; if i>=1 t(i, j)='*'; end i=fila+1; if (i<=8) t(i, j)='*'; end end end P(#)*+# W6O 1&;*0*8#$&: '8- ),S,--&< ,/%(.,#'& -&: 0&;*0*8#$&: , -, '8%8)F, 8# (# :&-& S-&R(8

N8+ 1(-1) 1)J). %5'G3%1)- +)- 1);(1(8?:)- % +% (WYG(8'J%. J8 1)J) YG8 +% QG?&(K? YG8J% %-\a

HE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function t = caballo2(fila, col) t=char(8,8); for i=1:1:8 for j=1:1:8 t(i,j)='-'; end end t(fila, col)='C'; % Movimientos for suma=1:2 a la derecha j=col+suma; if j<=8 i=fila-(3-suma); if i>=1 t(i, j)='*'; end i=fila+(3-suma); if (i<=8) t(i, j)='*'; end end end % Movimientos a la izquierda for resta=1:2 j=col-resta; if j>=1 i=fila-(3-resta); if i>=1 t(i, j)='*'; end i=fila+(3-resta); if (i<=8) t(i, j)='*'; end end end end P(#)*+# WWO 1&;*0*8#$&: '8- ),S,--&< )&# -&: 0&;*0*8#$&: , -, '8%8)F, A , -, *QR(*8%', 8# '&: "#$

e>-8';% YG8. &)? )>78:) J8 Q%&(+(:%' +% +8&:G'% J8+ '8-G+:%J). 8? 8+ &KJ(5) J8+ %?:8'()' ^81)- -G-:(:G(J) +% ++%1%J% % +% QG?&(K? 7+*1!/%&' 3)' G?% (?(&(%+(W%&(K? :%>+8') 18J(%?:8 5G()?8-. C YG8 ^81)- %i%J(J) G?% (?-:'G&&(K? R'8-%+:%J% 8? 1)'%J)T 3%'% &)+)&%' G?% M 8? 8+ +G5%' 8? YG8 -8 8?&G8?:'% 8+ &%>%++)2 N)- 87813+)- J8 878&G&(K? -)? +)- -(5G(8?:8-a

HF

.+,+/)% 0%1% 2#+%1+

dd &%>%++)/RE. ET

dd &%>%++)/RE. LT

%?- `

%?- `

ffffffff ffcfcfff fcfffcff fffMffff fcfffcff ffcfcfff ffffffff ffffffff

ffffffff ffffffcf fffffcff fffffffM fffffcff ffffffcf ffffffff ffffffff

P*/(%, 6Y •

b)+G&(K? A2

6? G?% ;G8+:% J8 :G8'&% 1U-. ;81)- :%1>(P? -8187%?W%- 8?:'8 +)- J)- >G&+8- E%/ J8 +% 9G?&(K? FF2 M)1) ;81)- 8? +% 9(5G'% ED. 8? G?) ++%1%1)- % +% ;%'(%>+8 #6I+ C 8? ):') /!#7+ R8? %1%'(++)Tl ):'% J(Q8'8?&(% R8? 1)'%J)T. 8- YG8 8? G?) -G1%1)C 8? ):') '8-:%1)-l +% =+:(1% J(Q8'8?&(% R8? ;8'J8T 8- YG8 8? G?) &)13%'%1)- 5i>T C 8? ):') 5a>AF % Movimientos a la derecha for suma=1:2 j=col+suma; if j<=8 i=fila-(3-suma); if i>=1 t(i, j)='*'; end i=fila+(3-suma); if (i<=8) t(i, j)='*'; end end end

% Movimientos a la izquierda for resta=1:2 j=col-resta; if j>=1 i=fila-(3-resta); if i>=1 t(i, j)='*'; end i=fila+(3-resta); if (i<=8) t(i, j)='*'; end end end

P*/(%, 6ZO 4&: S()-8: '8 -&: 0&;*0*8#$&: , -, '8%8)F, A , -, *QR(*8%', :&# 0(A .,%8)*'&:

[G8?). 3G8- 8- -8?&(++) %5'G3%' %1>)- >G&+8-. &)1) -8 ^%&8 8? +% 9G?&(K? FHa +%J)- &)?J(&()?8- R8? ;8'J8T +%- %5'G3%1)- 8? G?% -)+% R 5a>A nn 5i>T'M &)1) G?% ;8W ?)- (?:8'8-% -G1%' C ):'% '8-:%'. ?)- (?;8?:%1)- G?% ;%'(%>+8 ?G8;% #)H$% YG8 :)18 ;%+)' f" C k" C YG8 G-%1)- &)1) ;%'(%>+8 J8 &)?:')+ J8 G? ?G8;) >G&+8 E%/ R8? %1%'(++)Tl 8-:% ;%'(%>+8 #)H$% +% G:(+(W%1)- R8? 1)'%J)T 3%'% 1G+:(3+(&%' 3)' E+,7%/. YG8 -G-:(:GC8 % +%- %?:(5G%- ;%'(%>+8- #6I+ C /!#7+2

HH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function t = caballo3(fila, col) t=char(8,8); for i=1:1:8 for j=1:1:8 t(i,j)='-'; end end t(fila, col)='C'; for signo=-1:+2:1 for factor=1:2 j=col+signo*factor; if j>=1 && j<=8 i=fila-(3-factor); if i>=1 t(i, j)='*'; end i=fila+(3-factor); if (i<=8) t(i, j)='*'; end end end end end P(#)*+# W7O 3&'&: -&: 0&;*0*8#$&: '8- ),S,--& 8# '&: "#$ ,#*','&:

H@

.+,+/)% 0%1% 2#+%1+

J98%)*)*& U6O 1,$%*Q *'8#$*',' J:)%*S*% (#, @(#)*+# 8# 123425 R(8< :*# (:,% -, @(#)*+# *C*) '8;(8-;, (#, 0,$%*Q *'8#$*',' '8 !+!O •

b)+G&(K? "2

I% QG?&(K? !W!&$' J8;G8+;8 J('8&:%18?:8 +% 1%:'(W (J8?:(J%Ja dd 8C8RFT %?- ` " 0 0 0 0

0 " 0 0 0

0 0 " 0 0

0 0 0 " 0

0 0 0 0 "

P*/(%, W\

*%'% &G13+(' 8+ 8?G?&(%J). &)?-:'G('81)- G?% 1%:'(W J8 $"$ &8')- C. +G85). '8&)''8'81)- +% J(%5)?%+ 3'(?&(3%+ R8? -G- 3)-(&()?8- &)(?&(J8? +% Q(+% C +% &)+G1?%T C &)+)&%1)- G? "2 6? G?% 3'(18'% -)+G&(K?. '8&)''81)- :)J%- +%- 3)-(&()?8- J8 +% 1%:'(W &)? J)>G&+8- %?(J%J)- &)?:')+%J)- 3)' ) C 5G -( )>>5. 8?:)?&8- +% &%-(++% 8- J8 +% J(%5)?%+ 3'(?&(3%+ C &)+)&%1)- G? "a function result = matrizIdentidad1(n) result=zeros(n); for i=1:n for j=1:n if i==j result(i, j)=1; end end end end P(#)*+# WXO 1,$%*Q *'8#$*',' %8)&%%*8#'& $&', -, 0,$%*Q •

b)+G&(K? /2

M+%'%18?:8. ?) 8- ?8&8-%'() '8&)''8' :)J%- +%- &%-(++%- J8 +% 1%:'(W2 *)J81)'8&)''8'. -8?&(++%18?:8. +% J(%5)?%+ 3'(?&(3%+ &)? G? -)+) >G&+8 E%/2 [%-:% &)? '8&)''8' J8-J8 " ^%-:% $ &)? G?% ;%'(%>+8 ) C &)+)&%+ 8+ " 8? &)P )'G

HL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = matrizIdentidad2(n) result=zeros(n); for i=1:n result(i, i)=1; end end P(#)*+# WYO 1,$%*Q *'8#$*','< %8)&%%*8#'& :&-,08#$8 -, '*,/&#,- .%*#)*.,-

HD

.+,+/)% 0%1% 2#+%1+

J98%)*)*& UWO I*,/&#,- .%*#)*.,J:)%*S*% (#, @(#)*+# 8# 123425 R(8< :*# (:,% -, @(#)*+# 724D) '8;(8-;, -&: ;,-&%8: :*$(,'&: 8# -, '*,/&#,- .%*#)*.,- '8 (#, 0,$%*Q R(8 :8 .,:, )&0& .,%C08$%&O •

b)+G&(K? "2

I% QG?&(K? 8)+H&.' J8;G8+;8 J('8&:%18?:8. 8? Q)'1% J8 ;8&:)'. +)- ;%+)'8G>(&%J)- 8? +% J(%5)?%+ 3'(?&(3%+ J8 +% 1%:'(W .a dd $`s" / A El F H @ Ll D "0 "" "/l "A "E "F "Ht

dd J(%5R$T

$`

%?- `

" F D "A

/ H "0 "E

A E @ L "" "/ "F "H

" H "" "H

P*/(%, WNO D&#:$%())*+# '8 (#, 0,$%*Q c*QR(*8%',d A 8=$%,))*+# '8 :( '*,/&#,- .%*#)*.,- )&# 724D

M)1) 8+ 8?G?&(%J) ?)- 3')^\>8 G-%' +% QG?&(K? 8)+H. '8&)''8'81)- &)? G? -)+) >G&8 E%/ &)?:')+%J) 3)' G?% ;%'(%>+8 ) +%- 3)-(&()?8- &)P )'G function diagonal = diagonalPrincipal(M) diagonal=[]; for i=1:length(M) diagonal=[diagonal M(i, i)]; end end P(#)*+# WZO J=$%,))*+# '8 -, '*,/&#,- .%*#)*.,-

X+ 878&G:%'. )>:8?81)- 8-:)a dd $

dd J(%5)?%+*'(?&(3%+R$T

$`

%?- `

" F D "A

/ H "0 "E

A E @ L "" "/ "F "H

"

H "" "H

P*/(%, WU

b( YG8'81)- )>:8?8' 8+ ;8&:)' :'%-3G8-:). 3%'% J8;)+;8' 8+ '8-G+:%J) (5G%+ YG8 +) J8;G8+;8 +% QG?&(K? 8)+H R9(5G'% F"T. >%-:% &)? %i%J(' +% +\?8% '8-%+:%J%a

@0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function diagonal = diagonalPrincipal(M) diagonal=[]; for i=1:length(M) diagonal=[diagonal M(i, i)]; end diagonal=diagonal'; end P(#)*+# 7\O J=$%,))*+# '8 -, '*,/&#,- .%*#)*.,- )&0& (# ;8)$&% ;8%$*),•

b)+G&(K? /2

bG3)?5%1)- YG8 J8>81)- &)13')>%' YG8 +% 1%:'(W YG8 -8 3%-% &)1) 3%'U18:') -8% &G%J'%J%2 b( :8?81)- +% -(5G(8?:8 1%:'(W ?) &G%J'%J% QG

N U V N " / A U E F H V @ L D 6 "0 "" "/ I% QG?&(K? 1!$H7X&Q' ?)- J8;G8+;8 8+ ?=18') J8 Q(+%- J8 +% 1%:'(Wa dd <`s" / Al E F Hl @ L Dl "0 "" "/t

dd +8?5:^R
<`

%?- `

" E @ "0

/ F L ""

A H D "/

E

P*/(%, WVO D&#:$%())*+# '8 (#, 0,$%*Q #& )(,'%,', A )C-)(-& '8 :( -&#/*$('

b( YG8'81)- &)?)&8' -G ?=18') J8 &)+G1?%-. J8>81)- 8V:'%8' G?% Q(+% C &%+&G+%' -G +)?5(:GJ2 *%'% 8V:'%8' G?% Q(+% J8 +% 1%:'(W G-%1)- .9:[\o&$pI!/%j!()1+P G'G dd
dd +8?5:^R
%?- `

%?- `

"

/

A

A

P*/(%, W6O J=$%,))*+# '8 -, @*-, N '8 -, 0,$%*Q H c*QR(*8%',d A )C-)(-& '8 -, -&#/*$(' '8 8:, @*-,

X-\. %i%J(1)- % +% QG?&(K? %?:8'()' 8+ )E YG8 '8-%+:%1)-a

@"

.+,+/)% 0%1% 2#+%1+

function diagonal = diagonalPrincipal(M) if length(M)~=length(M(1, :)) disp('La matriz debe ser cuadrada'); return; end diagonal=[]; for i=1:length(M) diagonal=[diagonal M(i, i)]; end diagonal=diagonal'; end P(#)*+# 7N

6+ '8-G+:%J) &)? +%- 1%:'(&8- . R&G%J'%J%T C Q R?) &G%J'%J%T 8-a dd $

dd <

$`

<`

" F D "A

/ H "0 "E

A E @ L "" "/ "F "H

dd J(%5)?%+*'(?&(3%+R$T

" E @ "0

/ F L ""

A H D "/

dd J(%5)?%+*'(?&(3%+R8 -8' &G%J'%J%

%?- ` " H "" "H P*/(%, WWO L8:(-$,'& '8 724D#!4EF$2!5294E:&S%8 (#, 0,$%*Q )(,'%,', c*QR(*8%',d A (#, #& )(,'%,',

@/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& U7O 3%,Q, '8 (#, 0,$%*Q J:)%*S*% (#, @(#)*+# 8# 123425 R(8 ),-)(-8 -, $%,Q, '8 (#, 0,$%*QO •

b)+G&(K? "2

I% :'%W% J8 G?% 1%:'(W 8- +% -G1% J8 +)- 8+818?:)- -(:G%J)- 8? -G J(%5)?%+ 3'(?&(3%+. 3)' +) YG8 8-:% QG?&(K? 8- &%-( :'(;(%+2 [%-:% &)? '8&G38'%' +% J(%5)?%+ 3'(?&(3%+ C -G1%' -G- 8+818?:)-2 ,? -)+G&(K? G? 3)&) +%'5% 8- +% -(5G(8?:8a function result = traza1(M) if length(M)~=length(M(1, :)) disp('La matriz debe ser cuadrada'); return; end diagonal=[]; for i=1:length(M) diagonal=[diagonal M(i, i)]; end result=0; for i=1:length(diagonal) result=result+diagonal(i); end end P(#)*+# 7UO DC-)(-& '8 -, $%,Q, '8 (#, 0,$%*Q c"d •

b)+G&(K? /2

6? G?% -85G?J% %3')V(1%&(K?. 3)J81)- '8&G38'%' +% J(%5)?%+ 3'(?&(3%+ ++%1%?J) % +% QG?&(K? 8)+H%$+10/)$,)J+1 YG8 &)?-:'G(1)- 8? +% 9G?&(K? H" R) % +% QG?&(K? 8)+H J8 $XBIX[T C -G1%' -G- ;%+)'8-a function result = traza2(M) diagonal=diagonalPrincipal(M); result=0; for i=1:length(diagonal) result=result+diagonal(i); end end P(#)*+# 7VO DC-)(-& '8 -, $%,Q, '8 (#, 0,$%*Q c""d •

b)+G&(K? A2

*)' =+:(1). 8? +G5%' J8 -G1%' +)- 8+818?:)- &)? G? >G&+8. &)1) ^%&81)- 8? +% 9G?&(K? H/ C 8? +% 9G?&(K? HA. 3)J81)- -G1%' 18J(%?:8 +% QG?&(K? #6I J8 $XBIX[a @A

.+,+/)% 0%1% 2#+%1+

function result = traza3(M) diagonal=diagonalPrincipal(M); result=sum(diagonal); end P(#)*+# 76O DC-)(-& '8 -, $%,Q, '8 (#, 0,$%*Q c"""d

6+ &KJ(5) J8 +% QG?&(K? %?:8'()' +) 3)J81)- %5'G3%' 8? G?% -)+% +\?8%a function result = traza4(M) result=sum(diagonalPrincipal(M)); end P(#)*+# 7WO DC-)(-& '8 -, $%,Q, '8 (#, 0,$%*Q c"bd

e. &)1) J8&\%1)-. G-%' 8)+H 8? +G5%' J8 ?G8-:'% QG?&(K? 8)+H%$+10/)$,)J+1G function result = traza5(M) result=sum(diag(M)); end P(#)*+# 77O DC-)(-& '8 -, $%,Q, '8 (#, 0,$%*Q cbd

6? 58?8'%+. +%- )38'%&()?8- :%? -8?&(++%- +%- 3)J81)- 8-&'(>(' J('8&:%18?:8 8? +% +\?8% J8 &)1%?J)- J8 $XBIX[a dd $ $` " F D "A

/ H "0 "E

A E @ L "" "/ "F "H

dd -G1RJ(%5R$TT %?- ` AE P*/(%, W7O DC-)(-& '8 -, $%,Q, '8 G '8:'8 -, -h#8, '8 )&0,#'&:

@E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UXO ?#&: A )8%&: ,-$8%#,'&: J:)%*S*% (#, @(#)*+# R(8 )&#:$%(A, (#, 0,$%*Q )(,'%,', '8 ,#)F(%, .,%< @&%0,', .&% N A \ ,-$8%#,$*;&:O >&% 8980.-&< :* !'?H

•

N U V 6

N " 0 " 0

U 0 " 0 "

V " 0 " 0

6 0 " 0 "

W " 0 " 0

7 0 " 0 "

W 7

" 0

0 "

" 0

0 "

" 0

0 "

b)+G&(K? "2

B8?81)- 1G&^%- Q)'1%- J8 '8-)+;8' 8-:8 878'&(&()2 6? G?% 3'(18'%. 3)J81)&)18?W%' &'8%?J) G?% 1%:'(W J8 &8')- RQG?&(K? ^!/%#' C &)+)&%' G? " 8? +% 3)-(&(K? R". "T2 IG85). ;%1)- %;%?W%?J) J8 / 8? / &)+G1?%- ^%-:% ++85%' %+ +\1(:8 J8'8&^) R$@ATF 6-:) +) ^%'\%1)- 3%'% :)J%- +%- Q(+%- (13%'8-2 *%'% +%- 3%'8-. &)+)&%1)- G? " 8? +% -85G?J% &)+G1?% C ;%1)- %;%?W%?J) J8 / 8? / ^%-:% ++85%' % +% &)+G1?% $F function result = alternar1(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); % Filas impares for fila=1:2:n-1 for columna=1:2:n-1 result(fila, columna)=1; end end % Filas pares for fila=2:2:n for columna=2:2:n result(fila, columna)=1; end end end P(#)*+# 7XO ?#&: A )8%&: ,-$8%#,'&: c"d •

b)+G&(K? /2

S5G%+ YG8 ?)- 3%-%>% 8? 8+ 878'&(&() -)>'8 +)- 1);(1(8?:)- J8+ &%>%++) R3U5(?% H"T. +)- J)- >G&+8- -)? 1GC 3%'8&(J)-2 b( +)- &)13%'%1)- R9(5G'% F@T. )>-8';%1)- YG8 -(. 8? +)- J)- >G&+8- J8 +% (WYG(8'J%. 8-&'(>(1)- $ 8? +G5%' J8 $@AP 8+ '8-G+:%J) -(5G8 -(8?J) ;U+(J)2

@F

.+,+/)% 0%1% 2#+%1+

% Filas impares for fila=1:2:n-1 for columna=1:2: n-1 result(fila, columna)=1; end end

% Filas pares for fila=2:2:n for columna=2:2:n result(fila, columna)=1; end end

P*/(%, WXO 4&: S()-8: '8 -,: @*-,: #: A -,: .,%8: :&# 0(A .,%8)*'&:

6- J8&('. YG8 3)J81)- 1)J(Q(&%' 8+ >G&+8 J8 +% (WYG(8'J% 3%'% YG8 YG8J8 &)1) -8 1G8-:'%a % Filas impares

% Filas pares

for fila=1:2:n for columna=1:2: n result(fila, columna)=1; end end

for fila=2:2:n for columna=2:2:n result(fila, columna)=1; end end

P*/(%, WYO 4&: S()-8: '8 -,: @*-,: #: A -,: .,%8: :&# 0(A .,%8)*'&:

X1>)- >G&+8- 3G8J8? %5'G3%'-8 8? G?) -)+). YG8 '8&)''% :)J%- +%- Q(+%- RJ8-J8 " ^%-:% $T C YG8 %&:=8 J8 J(Q8'8?:8 1%?8'% -85=? +% Q(+% -8% (13%' ) 3%' R8- J8&('. -85=? I%8&E)1+P D' -8% " ) 0Ta function result = alternar2(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); for fila=1:n if mod(fila, 2)==1 % Si la fila es impar for columna=1:2:n result(fila, columna)=1; end else % Si es par for columna=2:2:n result(fila, columna)=1; end end end end P(#)*+# 7YO ?#&: A )8%&: ,-$8%#,'&: c""d •

b)+G&(K? A2•

*)J81)-(13+(Q(&%' 3)&)+%8+&)+G1?% &KJ(5) J8 %?:8'()' :8?81)YG8. &G%?J) +% E)1+ 8- G? (13%'. 8?+%+%QG?&(K? YG8 -8 &)+)&% 8+ -( 3'(18' " 8-8? +% &G8?:% " C YG8. &G%?J) +% E)1+ 8- 3%'. 8+ 3'(18' " -8 3)?8 8? +% &)+G1?% /2 IG85). -8% 3%' ) (13%' +% &)+G1?%. -8 ;% (?&'818?:%?J) +% &)+G1?% J8 / 8? / ^%-:% ++85%' % $2 e -8%a

@H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = alternar3(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); for fila=1:n if mod(fila, 2)==1 columna=1; elsecolumna=2; end for j=columna:2:n result(fila, j)=1; end end end

P(#)*+# 7ZO ?#&: A )8%&: ,-$8%#,'&: c"""d •

b)+G&(K? E2

b(13+818?:8 3)' ;%'(%' G? 3)&). 3)J81)- '88-&'(>(' +% -)+G&(K? %?:8'()' C G:(+(W%' G? OX)1! 8? ;8W J8 G? E%/G -(13+818?:8 J8>81)- (?(&(%+(W%' +% ;%'(%>+8 E)1+ %?:8J8+ >G&+8. 8-&'(>(' %J8&G%J%18?:8 -G &)?J(&(K? J8 -%+(J% RE)1+i>$T 8 (?&'818?:%' %+ Q(?%+ J8+ OX)1! 3%'% YG8 ?) -8 Q)'18 G? >G&+8 (?Q(?(:)a function result = alternar4(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); fila=1; while fila<=n if mod(fila, 2)==1 columna=1; else columna=2; end for j=columna:2:n result(fila, j)=1; end fila=fila+1; end end P(#)*+# X\O ?#&: A )8%&: ,-$8%#,'&: c"bd

@@

.+,+/)% 0%1% 2#+%1+

•

b)+G&(K? F2

e:'% Q)'1% 1U- J8 -)+G&()?%' 8+ 878'&(&() &)?-(-:8 8? 58?8'%' J)- ;8&:)'8J(-:(?:)-a G?) 3%'% +%- Q(+%- (13%'8- C ):') 3%'% +%- 3%'8-2 IG85). '8&)''81)- +%Q(+%- J8 +% 1%:'(W R3'8;(%18?:8 (?(&(%+(W%J% %. 3)' 87813+). &8')-T C ;%1)-G-:(:GC8?J) &%J% Q(+% 3)' E)1+\IJ+/ ) E)1+0+/G function result = alternar5(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); filaImpar=[]; for columna=1:2:n filaImpar(columna)=1; end filaImpar=[filaImpar 0]; filaPar=[]; for columna=2:2:n filaPar(columna)=1; end for fila=1:n if mod(fila, 2)==1 result(fila, :)=filaImpar; else result(fila, :)=filaPar; end end end P(#)*+# XNO ?#&: A )8%&: ,-$8%#,'&: cbd] :(:$*$(*0&: @*-,:

M)1) 38YG8i) J8:%++8. ?K:8-8 +% ?8&8-(J%J J8 %i%J(' G? &8') 1%?G%+18?:8 % +%Q(+%- (13%'8- R+\?8% '8-%+:%J% 8? 1)'%J)T 3%'% YG8 -8 YG8J8 J8 +% 1(-1% +)?5(:GJ YG8 +%- 3%'8-2 *)' ):') +%J). ;P%-8 +% Q)'1% 8? YG8 -8 1)J(Q(&% G?% Q(+% &)?&'8:% 8? $XBIX[a +% +\?8% '8-%+:%J% 8? ;8'J8 1)J(Q(&% J8 +% ;%'(%>+8 /!#617 +% Q(+% ?=18') E)1+M %+ &)+)&%' J)- 3G?:)- RaT J8-3GP- J8 +% &)1%. (?J(&%1)- % $XBIX[ YG8 -G-:(:GC% :)J% +% Q(+%2 •

b)+G&(K? H2 S5G%+ YG8 ^81)- '8++8?%J) 3)' Q(+%- 8? +% -)+G&(K? %?:8'()' R9G?&(K? @"T. :%1>(P? 3)J81)- '8++8?%' 3)' &)+G1?%-2 6? 8-:8 &%-) (?(&(%+(W%1)- J)- ;%'(%>+8,%16I$+\IJ+/ C ,%16I$+0+/ C. +G85). '8&)''81)- :)J%- +%- &)+G1?%-. -G-:(:GC8?J) 3)' +% YG8 &)''8-3)?J%2

@L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = alternar6(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); columnaImpar=[]; for fila=1:2:n columnaImpar(fila)=1; end columnaImpar=[columnaImpar 0]'; columnaPar=[]; for fila=2:2:n columnaPar(fila)=1; end columnaPar=columnaPar'; for columna=1:n if mod(columna, 2)==1 result(:, columna)=columnaImpar; else result(:, columna)=columnaPar; end end end P(#)*+# XUO ?#&: A )8%&: ,-$8%#,'&: cb"d] :(:$*$(*0&: )&-(0#,:

e>-P';8-8 8? +% Q(5G'% -(5G(8?:8 +% J(Q8'8?&(%. 8? +)- =+:(1)- >G&+8- E%/ J8 +% 9G?&(K? @" R8? YG8 -G-:(:G\%1)- Q(+%-T C J8 +% 9G?&(K? @/ R-G-:(:G(1)- &)+G1?%-T. -)>'8 &K1) -G-:(:G(' G?% Q(+% ) G?% &)+G1?%a 3%'% 1)J(Q(&%' G?% Q(+% &)13+8:%. 3'(18') ;% 8+ ?=18') J8 Q(+% C +G85) J)- 3G?:)-l 3%'% 1)J(Q(&%' G?% &)+G1?% &)13+8:%. 3'(18') +)- J)- 3G?:)- C J8-3GP- 8+ ?=18') J8 &)+G1?%a result(fila, :)= filaImpar;

result(:, columna)= columnaImpar;

P*/(%, WZO B(:$*$()*+# '8 (#, @*-, c#T08%&< '&: .(#$&:d A '8 (#, )&-(0#, c'&: .(#$&:< )&-(0#,d •

b)+G&(K? @2

,?% =+:(1% -)+G&(K? &)?-(-:8 8? (?(&(%+(W%' +% 1%:'(W % &8')- R) % G?)-T C '8&)''8' J8-3GP- +%- $"$ &%-(++%- J8 +% 1%:'(W. &)+)&%?J) G? " R) G? 0 -85=? &)''8-3)?J%Ta 8+ " -8 3)?8 8? +%- &%-(++%- &GC% -G1% J8 Q(+% C &)+G1?% -8% 3%'2

@D

.+,+/)% 0%1% 2#+%1+

function result = alternar7(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=zeros(n); for fila=1:n for columna=1:n if mod(fila+columna, 2)==0 end result(fila, columna)=1 end end end P(#)*+# XVO ?#&: A )8%&: ,-$8%#,'&: cb""d] )&-&),0&: (# N 8# -,: ),:*--,: )(A,: "2E4A 5#EI(!4:(0,# .,%

I% ;8'-(K? 8? +% YG8 &)+)&%1)- 0 8? ;8W J8 " ?8&8-(:% J)- &%1>()-a 3'(18'). (?(&(%+(W%' +% 1%:'(W % " R1%'&%J) 8? %1%'(++)T C +G85) &)+)&%' 8+ 0 8? +%- &%-(++%&GC% -G1% J8 Q(+% C &)+G1?% -8% ?)? R1)'%J)Ta function result = alternar8(n) if mod(n, 2)~=0 disp('n debe ser par'); end result=ones(n); for fila=1:n for columna=1:n if mod(fila+columna, 2)==1 result(fila, columna)=0; end end end end P(#)*+# X6O ?#&: A )8%&: ,-$8%#,'&: cb"""d] )&-&),0&: (# \ 8# -,: ),:*--,: )(A,: "2E4A 5#EI(!4:(0,# *0.,%

L0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UYO 1,$%*Q '8 b,#'8%0&#'8 b,#'8%0&#'8O J:)%*S*% (#, @(#)*+# R(8 %8)*S, )&0& .,%C08$%& (# ;8)$&% 8 A (# 8#$8%& ! A '8;(8-;, -, 0,$%*Q '8 b,#'8%0&#'8 '8 ! )&-(0#,:O J- ;8)$&% 8 %8.%8:8#$, -&: ;,-&%8: '8 -, :8/(#', )&-(0#,O >&% 8980.-&< :* 8'J- = K @L A !'M) -, 0,$%*Q '8 b,#'8%0&#'8 $*8#8 -&: ;,-&%8: '8 8 8# -, :8/(#', )&-(0#,< A ! )&-(0#,: 8# $&$,-]

•

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!!

!

!

! !

!

b)+G&(K? "2

X?:8- J8 %>)'J%' +% -)+G&(K?. )>-8';%1)- YG8 +% 3'(18'% &)+G1?% 8- +% -85G?J% &)? :)J)- -G- 8+818?:)- 8+8;%J)- % 0l +% -85G?J% 8- 8+ ;8&:)' 3%-%J) &)? :)J)- -G8+818?:)- 8+8;%J)- % "l +% :8'&8'% &)+G1?% 8- +% -85G?J% &)? :)J)- +)- 8+818?:)8+8;%J)- % J)-l 8:&P:8'%2 6- J8&('. 8? &%J% &)+G1?% &)+)&%1)- +% -85G?J% &)+G1?% &)? -G- 8+818?:)- 8+8;%J)- %+ ?=18') &)+G1?% 18?)- "2 6? $XBIX[ 3)J81)- )38'%' &)? :)J)- +)- 8+818?:)- J8 G? ;8&:)' ) J8 G?% 1%:'(W J8 1%?8'% 1GC &K1)J%2 bG3)?5%1)- YG8 Z>bA D C 3cF b( YG8'81)- )>:8?8' 8+ ;8&:)' s"F /F AF EFt. ^%&81)- +) -(5G(8?:8a dd ;

dd ;2€F

;`

%?- `

"

/

A

E

"

A/

/EA

"0/E

P*/(%, 7\O J# 8- -,'& '8%8)F& &S$8#80&: 8- ;8)$&% 8 '8 -, *QR(*8%',< )&# $&'&: :(: ;,-&%8: 8-8;,'&: , W

)+) J8 3):8?&(%a 8+ -\1>)+) 3G?:) (?J(&% YG8 +% )38'%&(K? %Q8&:% % :)J)- +)- 8+818?:)- J8+ ;8&:)'2 M)? G? -8?&(++) >G&+8 E%/ 3)J81)- (:8'%' &)? G? ;%'(%>+8 ,%1 J8-J8 " ^%-:% $. %i%J(8?J) 8? &%J% (:8'%&(K? 8+ ;8&:)' Z 8+8;%J) % ,%1@AG function result = vandermonde1(v, n) result=[]; for col=1:n result(:, col)=v.^(col-1); end end P(#)*+# XWO 1,$%*Q '8 b,#'8%0&#'8 %8--8#,#'& )&-(0#, , )&-(0#,

6+ '8-G+:%J) 3%'% 8+ 87813+) %?:8'()' 8-a

L"

.+,+/)% 0%1% 2#+%1+

dd ; ;` "

/

A

E

dd ;%?J8'1)?J8"R;. FT %?- ` " " " " / E " A D " E "H

" " L "H /@ L" HE /FH

P*/(%, 7N •

b)+G&(K? /2

e:'% 1%?8'% J8 &)?-85G(' 8+ 1(-1) '8-G+:%J) 8- '8++8?%' +% 1%:'(W 3)' Q(+%-a 8-:%?J) 8? +% Q(+% ). 8+ ;%+)' YG8 &)''8-3)?J8 % G?% &(8':% &)+G1?% 8- 8+ ;%+)' )@ `#)I% J8+ ;8&:)' Z. 8+8;%J) % +% &)+G1?% J8 YG8 -8 :'%:8 18?)- "2 6- J8&('a function result = vandermonde2(v, n) result=[]; for fila=1:length(v) for col=1:n result(fila, col)=v(fila)^(col-1); end end end P(#)*+# X7O 1,$%*Q '8 b,#'8%0&#'8 %8--8#,#'& .&% @*-,:

L/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& UZO 1,$%*Q '8 P*S&#,))* J:)%*S*% (#, @(#)*+# R(8< $&0,#'& )&0& .,%C08$%& (# #T08%& 8#$8%& !) '8;(8-;, (#, 0,$%*Q '8 '*08#:*+# !k! R(8 )&#$8#/, '8 @&%0, &%'8#,', -&: !N! .%*08%&: $[%0*#&: '8 -, :8%*8 '8 P*S&#,))*O >,%, #^V< .&% 8980.-&]

•

!

!

!

!

!

!

!"

!"

!"

b)+G&(K? "2

6? G?% 3'(18'% -)+G&(K?. '8&)''81)- :)J%- +%- 3)-(&()?8- J8 +% 1%:'(W &)? J)>G&+8- E%/ %?(J%J)-2 *)' &%J% (:8'%&(K? ;%1)- (?&'818?:%?J) G? &)?:%J)'. YG8 G:(+(W%1)- 3%'% &%+&G+%' 8+ ;%+)' YG8 &)''8-3)?J%2 *)J81)- G:(+(W%' &G%+YG(8'% J8 +%- QG?&()?8- J8 9(>)?%&&( YG8 (13+818?:%1)- 8? 878'&(&()- %?:8'()'8-a function result = matrizFibonacci1(n) result=[]; contador=1; for fila=1:n for col=1:n result(fila, col)=fib(contador); contador=contador+1; end end end P(#)*+# XXO 1,$%*Q '8 P*S&#,))*< ($*-*Q,#'& (#, @(#)*+# ,(=*-*,%

N)- 87813+)- J8+ '8-G+:%J) -)?a dd 1%:'(W9(>)?%&&("RAT

dd 1%:'(W9(>)?%&&("RFT

%?- `

%?- `

" " / A F L "A /" AE

" " / A F L "A /" AE FF LD "EE /AA A@@ H"0 DL@ "FD@ /FLE E"L" H@HF "0DEH "@@"" /LHF@ EHAHL @F0/F

P*/(%, 7U •

b)+G&(K? /2

e:'% Q)'1% J8 '8-)+;8' 8+ 878'&(&() 8- (' &)+)&%?J). 8? &%J% 3)-(&(K? J8 +% 1%:'(W. +% -G1% J8 +)- J)- ;%+)'8- %?:8'()'8-2 r%&8' 8-:) &)? G? ;8&:)' 8- -8?&(++) RC% +) '8-)+;(1)- 8? 8+ 678'&(&() "". 3U5(?% A"T2 r%&8'+) &)? G?% 1%:'(W :(8?8 G?% 38YG8i% J(Q(&G+:%J %J(&()?%+. C% YG8 ^%C YG8 :8?8' 8? &G8?:% +)- Q(?%+8- J8 Q(+%2

LA

.+,+/)% 0%1% 2#+%1+

6? 8+ -(5G(8?:8 &KJ(5). (?(&(%+(W%1)- 3'(18') +%- J)- 3'(18'%- &)+G1?%- J8 +% 3'(18'% Q(+%l +G85). &)13+8:%1)- +% 3'(18'% Q(+% 8? 8+ 3'(18' >G&+8 E%/F X &)?:(?G%&(K?. '8&)''81)- J8-J8 +% Q(+% / ^%-:% +% $a 8? +%- &)+G1?%- " C / J8 8-:%Q(+%- :8?81)- +% 3'8&%G&(K? J8 +88' ;%+)'8- J8 +% Q(+% %?:8'()'l 8? +%- '8-:%?:8-. +881)- +)- J)- ;%+)'8- (?18J(%:%18?:8 %?:8'()'8- J8 +% 1(-1% &)+G1?%2 function result = matrizFibonacci2(n) result=[]; result(1, 1)=1; result(1, 2)=1; for col=3:n result(1, col)=result(1, col-2)+result(1, col-1); end for fila=2:n for col=1:n if col==1 result(fila, 1)=result(fila-1, n-1)+result(fila-1, n); elseif col==2 result(fila, 2)=result(fila-1, n)+result(fila, col-1) else result(fila, col)=result(fila, col-2)+result(fila, col-1); end end end end P(#)*+# XYO 1,$%*Q '8 P*S&#,))*< )&0.($,', 08'*,#$8 -, :(0, '8 -,: '&: .&:*)*: ,#$8%*&%8: c"d •

b)+G&(K? A2 6? G?% -)+G&(K? 3%'8&(J% % +% %?:8'()'. 38') %+5) 1U- -8?&(++%. 8+(1(?%1)- +)- J)- )E C. 8? +G5%' J8 &)18?W%' 8+ >G&+8 %?(J%J) 8? ,%1>AP +) 8138W%1)- 8? ,%1>CG function result = matrizFibonacci3(n) result=[]; result(1, 1)=1; result(1, 2)=1; for col=3:n result(1, col)=result(1, col-2)+result(1, col-1); end for fila=2:n result(fila, 1)=result(fila-1, n-1)+result(fila-1, n); result(fila, 2)=result(fila-1, n)+result(fila, 1); for col=3:n result(fila, col)=result(fila, col-2)+ result(fila, col-1); end end end P(#)*+# XZO 1,$%*Q '8 P*S&#,))*< )&0.($,', 08'*,#$8 -, :(0, '8 -,: '&: .&:*)*: ,#$8%*&%8: c""d

LE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& V\O >%&'()$& '8 0,$%*)8:O J:)%*S*% (#, @(#)*+# 8# 123425 R(8 ),-)(-8 8- .%&'()$& '8 '&: 0,$%*)8:O •

b)+G&(K? "2

$XBIX[ C% J(-3)?8 J8+ )38'%J)' c 3%'% 1G+:(3+(&%' 1%:'(&8- J('8&:%18?:82 e>;(%18?:8. +) YG8 ?)- 3(J8? 8- +% 8-&'(:G'% J8 G?% QG?&(K? YG8 1G+:(3+(YG8 J)1%:'(&8- -(? G:(+(W%' 8-8 )38'%J)'2 O8%1)- &K1) +) ^%&81)- % 1%?). %-G1(8?J) G?% 1%:'(W 9 J8 $"I C ):'% < J8 I"$a !!!

!!"

!!"

!!!

!!!

!!!

!

!

! ! ! !

!!!

!!!

!!"

!!!

!!"

!!!

!!!

!!!

!

!

!!"

!

!

! ! ! !

!!! !!!

!

!!"

b(8?J) [ +% 1%:'(W '8-G+:%J). -G- J)- 3'(18'%- 3)-(&()?8- -)?a [AA>+AA?*AAV+ADL*DAVBV+A$L*$A [AD>+AA?*ADV+ADL*DDVBV+A$L*$D

6? 58?8'%+. 8? +% 3)-(&(K? [)5 ;% +% -G1% J8 +)- 3')JG&:)- J8 .)5 3)' Q5)2 <8&8-(:%'81)- :'8- >G&+8-a G?) YG8 '8&)''% +%- Q(+%- J8 .. ):') YG8 '8&)''% +%&)+G1?%- J8 Q C ):') 1U- YG8 -8 8?&%'5G8 J8 1G+:(3+(&%' +)- 8+818?:)- J8 +% Q(+% C &)+G1?% &)?-(J8'% C J8 %&G1G+%' 8+ '8-G+:%J) 3%'% &)+)&%'+) 8? +% 3)-(&(K? )P 5G function R = productoDeMatrices(M, N) columnasM=length(M(1, :)); filasM=length(M(:, 1)); columnasN=length(N(1, :)); R=zeros(filasM, columnasN); for i=1:filasM for j=1:columnasN for k=1:columnasM R(i, j)=R(i, j)+M(i, k)*N(k, j); end end end end P(#)*+# Y\O 1(-$*.-*),)*+# '8 '&: 0,$%*)8:

*)J81)- &)13')>%' YG8 +% QG?&(K? 8-:U >(8? ^8&^% 3(J(P?J)+8 % $XBIX[ YG8 ?)J(5% -( :)J)- +)- 8+818?:)- J8 +% 1%:'(W [ &)(?&(J8? &)? :)J)- +)- 8+818?:)- YG8 $XBIX[ &%+&G+% 3%'% .LQa 8? +% Q(5G'% -(5G(8?:8 1)-:'%1)- J)- 1%:'(&8- . C QM 1U- %>%7). +)- '8-G+:%J)- J8 878&G:%' ?G8-:'% QG?&(K? R(WYG(8'J%T C J8 878&G:%' +% QG?&(K? J8 1G+:(3+(&%&(K? J8 1%:'(&8- J8 $XBIX[ R .LQ'l 8? +% Q(+% (?Q8'()'. +8 38J(1)- % $XBIX[ YG8 &)13%'8 +)- J)- '8-G+:%J)- G:(+(W%?J) 8+ )38'%J)' J8

LF

.+,+/)% 0%1% 2#+%1+

&)13%'%&(K? R``Ta 8+ '8-G+:%J) RG?% 1%:'(W J8 G?)-T (?J(&% YG8 %1>%- 1%:'(&8-)? (5G%+8- C YG8. 3)' :%?:). ^81)- (13+818?:%J) >(8? 8+ &KJ(5) J8 +% QG?&(K?2 dd $

dd <

$`

<`

" E @ "0 / F L "" A H D "/

" E @

/ F L

A H D

dd 3')JG&:)N8$%:'(&8-R$.
"0 "" "/ dd $c<

%?- `

%?- `

"HH "LL /"0 "LL /"E /E0 /"0 /E0 /@0

"HH "LL /"0 "LL /"E /E0 /"0 /E0 /@0

dd 3')JG&:)N8$%:'(&8-R$.
" "

" "

" 7V" P*/(%,

"

•

b)+G&(K? /2

*)J81)- 1)J(Q(&%' G? 3)&) 8+ &KJ(5) %?:8'()'a G?% ;8W YG8 :8?81)- +% Q(+% J8 . RC YG8 5G%'J%1)-. 3)' 87813+). 8? G? ;8&:)' ++%1%J) E)1+j!.' C +% &)+G1?% J8 Q RYG8 5G%'J%1)- 8? ,%16I$+j!QT. 3)J81)- ^%&8' J('8&:%18?:8 8+ 3')JG&:) J8 %1>);8&:)'8-a function R = productoDeMatrices2(M, N) filasM=length(M(:, 1)); columnasN=length(N(1, :)); R=zeros(filasM, columnasN); for i=1:filasM filaDeM=M(i, :); for j=1:columnasN columnaDeN=N(:, j); R(i, j)=filaDeM*columnaDeN; end end end P(#)*+# YNO 1(-$*.-*),)*+# '8 0,$%*)8: ,.%&;8)F,#'& 8- .%&'()$& ;8)$&%*,-

LH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& VNO 3%*C#/(-& '8 3,%$,/-*, J:)%*S*% (#, @(#)*+# R(8 $&08 (# .,%C08$%& ! A )&#:$%(A, (#, 0,$%*Q )&# 8$%*C#/(-& '8 3,%$,/-*, '8 '*08#:*+# !O >&% 8980.-&< .,%, !'@< -, 0,$%*Q R(8 :8 8:.8%, 8:] N U V 6 •

N " " " "

U 0 " / A

V 0 0 " /

6 0 0 0 "

b)+G&(K? "2

6? 3'(18' +G5%'. &)?-:'G(1)- G?% 1%:'(W J8 $"$ ++8?% J8 &8')-2 IG85). &)+)&%1)- " 8? +% 3'(18'% &)+G1?%2 N8-3GP-. 3%'% &%J% &)+G1?% J8-J8 / ^%-:% $. &)+)&%1)- 8? &%J% &%-(++% 8+ ;%+)' YG8 ^%C% 8? +% Q(+% -G38'()'2 *)' 87813+). G>(&%J)- 8? +% -85G?J% &)+G1?% C -85G?J% Q(+% R1%'&%J% % &)?:(?G%&(K? 8? %1%'(++)T. &)+)&%1)8? 8-% 3)-(&(K? 8+ ;%+)' YG8 :(8?8 8?&(1% 1U- "2

N U V 6

N " " " "

U 0 0 0 0

V 0 0 0 0

6 0 0 0 0

N8 8-:8 1)J). +% 1%:'(W YG8J%'U J8 +% -(5G(8?:8 1%?8'%a N U V 6 N " 0 0 0 U " " 0 0 V " 0 0 0 6 " 0 0 0 X &)?:(?G%&(K?. >%7%1)- % +% &8+J% '8-%+:%J% % &)?:(?G%&(K? 8? %1%'(++) C. 8? 8++%. &)+)&%1)- 8+ " YG8 :(8?8 8?&(1% 1U- "a

N U V 6 N " 0 0 0 U " " 0 0 V " / 0 0 6 " 0 0 0 M)?:(?G%1)- J8 8-% 1%?8'% ^%-:% ++85%' % +% =+:(1% Q(+%2 IG85). 3%-%1)- % +% &)+G1?% A C % +% Q(+% A2 *')-85G(1)- J8 +% 1(-1% 1%?8'% ^%-:% '8&)''8' :)J%- +%&)+G1?%-a

L@

.+,+/)% 0%1% 2#+%1+

function result = tartaglia1( n) result=zeros(n); result(:, 1)=ones(n, 1); for col=2:n for fila=col:n result(fila, col)=result(fila-1, col)+1; end end end P(#)*+# YUO ?#, :&-()*+# .,%, 8- $%*C#/(-& '8 3,%$,/-*,< %8--8#,#'& .&% )&-(0#,: •

b)+G&(K? /2

*)J81)- 3%':(' :%1>(P? J8 G?% 1%:'(W (J8?:(J%J &)? +% 3'(18'% &)+G1?% % "2 *)' 87813+)a

N U V 6 W N " 0 0 0 0 U " " 0 0 0 V " 0 " 0 0 6 " 0 0 " 0 W " 0 0 0 " *%'% &)13+8:%' 8-:% 1%:'(W >%-:% &)? &)18?W%' 3)' +% Q(+% A2 XJ81U-. 3%'% &)13+8:%' &%J% Q(+% 8138W%'81)- 8? +% &)+G1?% / C ++85%'81)- ^%-:% +% &)+G1?% YG8 &)(?&(J% &)? +% +% &)+G1?% Q(+%f"a 8?Al +% 8? Q(+%+%E.Q(+% 3)'F.87813+). J8-J8 +% &)+G1?% / ^%-:% J8-J8 +%3)?81)/ ^%-:% +%;%+)'8E2 M)? 8-:% (J8%. 3)J81)- '8++8?%' 8V%&:%18?:8 J8 +% 1(-1% 1%?8'% YG8 %?:8-a function result = tartaglia2( n) result=eye(n); result(:, 1)=ones(n, 1); for fila=3:n for col=2:fila-1 result(fila, col)=result(fila-1, col)+1; end end end P(#)*+# YVO J- $%*C#/(-& '8 3,%$,/-*,< %8--8#,#'& ,F&%, .&% @*-,: •

b)+G&(K? A2

*)J81)- '8++8?%' +% 1%:'(W J8 ):'% 1%?8'%2 b( ?)- Q(7%1)-. 3)' 87813+). 8? +% Q(+% F. 8+ 3'(18' ;%+)' YG8 J8>81)- &)+)&%' 8? +% &)+G1?% / 8- 8+ ?=18') J8 Q(+%f"l 8+ -(5G(8?:8. 8? +% &)+G1?% A. 8- 8+ ?=18') J8 Q(+%f/l +G85). 8? +% &)+G1?% E. 8+ ?=18') J8 Q(+%fAa 8? 58?8'%+. &)+)&%1)- 8+ ?=18') J8 Q(+% 18?)- 8+ ?=18') J8 &)+G1?% J8&'818?:%J) 8? "2

LL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

N U V 6 W

N " " " " "

U 0 " AfR/f"T EfR/f"T FfR/f"T

V 0 0 " EfRAf"T FfRAf"T

6 0 0 0 " FfREf"T

W 0 0 0 0 "

6? ):'%- 3%+%>'%-a function result = tartaglia3( n) result=eye(n); result(:, 1)=ones(n, 1); for fila=3:n for col=2:fila-1 result(fila, col)=fila-(col-1); end end end P(#)*+# Y6O J- $%*C#/(-& '8 3,%$,/-*,< %8--8#,#'& '8 &$%, 0,#8%,

LD

.+,+/)% 0%1% 2#+%1+

J98%)*)*& VUO 3%*C#/(-& 8R(*-C$8%& J:)%*S*% (#, @(#)*+# R(8< ','& (# .,%C08$%& !< '8;(8-;, (#, 0,$%*Q @&%0,', .&% ,:$8%*:)&: R(8 @&%08# (# $%*C#/(-& 8R(*-C$8%&O >&% 8980.-&< .,%, !'@ A !'M< -,: @*/(%,: :&#] N U V 6 W 7 X Y Z

N U V 6 W 7 X

•

N U

c c c c

V 6

c c c c c c c c c c c c

N U V 6 W

c c c c c c c c c c

c c c c c

c c c c c c c c c c

b)+G&(K? "2

9(7U?J)?)- 8? +%- Q(5G'%- %?:8'()'8-. )>-8';%1)- YG8 $ '83'8-8?:%. 3)' G? +%J). 8+ ?=18') J8 Q(+%- J8 +% 1%:'(Wl 3)' ):'). 8+ ?=18') J8 +% &)+G1?% &8?:'%+l %J81U-. +% 1%:'(W :(8?8 D?$@A &)+G1?%-2 M%J% Q(+% 8-:U Q)'1%J% 3)' G? ?=18') J8&'8&(8?:8 J8 8-3%&()- 8? >+%?&). G? ?=18') &'8&(8?:8 J8 %-:8'(-&)- C. ):'% ;8W. G? ?=18') J8&'8&(8?:8 J8 8-3%&()- 8? >+%?&)2 b( )>-8';%1)- +% -(5G(8?:8 Q(5G'%. ;81)- YG8. 8? &%J% Q(+%. ^%C J)- >+)YG8J8 $@E)1+ >+%?&)- C. 8?:'8 %1>)- >+)YG8-. %-:8'(-&)- ^%-:% &)13+8:%' +% %?&^G'% R-( +% %?&^G'% 8- D$@A C ^%C J)- >+)YG8- J8 $@E)1+ >+%?&)-. ^%C D?&$@E)1+' >+%?&)-T. &)? +) YG8 8+ ?=18') J8 %-:8'(-&)- 8- &D$@A'@D?&$@E)1+'F N U V 6 W 7 X Y Z N U V 6 W

c c c c c c c c c c

c c c c c

c c c c c c c c c c

$@A >+%?&)-. " %-:8'(-&). $@A >+%?&)$@D >+%?&)-. A %-:8'(-&)-. $@D >+%?&)$@C >+%?&)-. F %-:8'(-&)-. $@C >+%?&)$@3 >+%?&)-. @ %-:8'(-&)-. $@3 >+%?&)$@N >+%?&)-. D %-:8'(-&)-. $@N >+%?&)-

X?&^G'%`D?$@A 6- J8&('. YG8 &%J% Q(+% +% &)?-:'G(1)- 8-&'(>(8?J) $@E)1+ >+%?&)- J8-J8 +% &)+G1?% "2 IG85). 8-&'(>(1)- %-:8'(-&)- J8-J8 +% &)+G1?% -(5G(8?:8 R $@E)1+VA' ^%-:% +% &)+G1?% $@E)1+VAV&D$@A'@D?&$@E)1+'@AF 9(?%+18?:8. 8-&'(>(1)- >+%?&)-2 B8?81)- 1G&^%- Q)'1%- J8 -)+G&()?%' 8+ 878'&(&()2 I) YG8 ^%'81)- 8? 3'(18' +G5%' -8'U &)?-:'G(' G?% 1%:'(W J8 $"&D$@A' %-:8'(-&)- C. +G85). 3)?8' +)- >+%?&)YG8 &)''8-3)?J%? 8? &%J% Q(+%a

D0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = trianguloEquilatero1(n) result=char(n, 2*n-1); for fila=1:n for col=1:2*n-1 result(fila, col)='*'; end end for fila=1:n for col=1:n-fila result(fila, col)=' '; end for col=n-fila+1+(2*n-1)-2*(n-fila):2*n-1 result(fila, col)=' '; end end end P(#)*+# YWO J- $%*C#/(-& 8R(*-C$8%&< :(:$*$(A8#'& ,:$8%*:)&: .&% 8:.,)*&: 8# S-,#)&O

r%5%1)- G?% :'%W% 3%'&(%+ 3%'% $>3a D&08#$,%*&:

@*-, )&-

#E@*-,

#E@*-,`N`cUl#ENdE Ulc#E@*-,d

N(18?-()?%1)- 8+ '8-G+:%J) &)1) G?% 1%:'(W J8 $"&D$@A' &%'%&:8'8C +% '8++8?%1)- J8 %-:8'(-&)- 8? 8+ 3'(18' E%/ 6?:'%1)- 8? 8+ >G&+8 '8-%+:%J) 8? %1%'(++) 8? +% 9G?&(K? LF

%8:(-$ " / A E F H @

"

"

"

c c c c c c c

/ A E

c c c c c c c c c c c c c c c c c c c c c

A

" / A E F H @ " / A E

"

/

A

A

c c c c

c c c c

c c c c

" / A E F H @ " / A E

"

c c c c c c c c c c c c c c c

A

c c c c c c c c c c c c c c

c c c c

c c c c

c c c c

" / A E F H @ " / A E

D"

c c c c c c c c c c c c c

c c c c

c c c c

c c c c

.+,+/)% 0%1% 2#+%1+

D&08#$,%*&:

@*-, )&-

I+85%1)- %+ >G&+8 ;8'J8

"

"

#E@*-,

#E@*-,`N`cUl#ENdE Ulc#E@*-,d Ef"k"kR/cEf"Tf/cREf "T`F

F

%8:(-$ " / A E F H @ " / A E

F

H

" / A E F H @ " / A E

"

F

@

/

"

/

(?&'818?:% E)1+ 3%'% 3')&8-%' +% Q(+% /2 6?:'%1)- J8 ?G8;) 8? 8+ >G&+8 %1%'(++) /

c c c c c c c c c c c c c c c c c c c c c c " / A E F H @

" / A E

/

c c c c c c c c c c c c c c c c c c c c c c c " / A E F H @

" / A E

r81)- '8&)''(J) +)>G&+8- %1%'(++) C ;8'J8 3%'% E)1+>A 2 b8

c c c c c c c c c c c c c c c c c c c c c c c c

/

c c c c c c c c c c c c c c c c c c c c c " / A E F H @

" / A E

c c c c c c c c c c c c c c c c c c c c

h #! ,%$7)$p+ 8! !#7+ I+$!/+ ,%$ 7%8+# 1+# E)1+# P*/(%, 76O 3%,Q, .,%)*,- '8 -, P(#)*+# YW •

b)+G&(K? /2

6? ):'% 3)-(>+8 -)+G&(K?. 3%':(1)- J8 G?% 1%:'(W J8 >+%?&)- C &)+)&%1)- %-:8'(-&)8? +%- 3)-(&()?8- YG8 &)''8-3)?J%?a

D/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = trianguloEquilatero2(n) result=char(n, 2*n-1); for fila=1:n for col=n-fila+1:n-fila+1+(2*n-1)-2*(n-fila)-1 result(fila, col)='*'; end end end P(#)*+# Y7O J- $%*C#/(-& 8R(*-C$8%&< )&-&),#'& ,:$8%*:)&: .&% @*-,: •

b)+G&(K? A2

*)J81)- %?%+(W%' 8+ 3')>+81% 3)' &)+G1?%- 8? +G5%' J8 3)' Q(+%-2 *%'% $>NP )>-8';%1)- YG8 8? +% &)+G1?% " ^%C " %-:8'(-&) %>%7) J8+ :)J)l 8? +% /. / %-:8'(-&)- %>%7) J8+ :)J)l ++85%1)- %-\ ^%-:% +% &)+G1?% F. 8? +% YG8 ^%C F %-:8'(-&)-2 6? +% H ^%C El 8? +% @. Al 8? +% L. /l C 8? +% D. "2 N U V 6 W 7 X Y Z N U V 6 W

c c c c c c c c c c c c c c c c c c c c c c c c c 6? +% -(5G(8?:8 QG?&(K?. &)?-:'G(1)- +% 1%:'(W J8 &%'%&:8'8- C. &)? )>78:) J8 %3'8&(%' 187)' 8+ '8-G+:%J). +% '8++8?%1)- &)? 5G()?8- 8? +G5%' J8 &)? >+%?&)-2 X &)?:(?G%&(K?. 8?8+8+&)?:8?(J) >G&+8 %1%'(++). &)?-:'G(1);%'(%>+8 X)1!/+ YG8 G-%'81)3%'% %+1%&8?%' J8 &%J% &)+G1?%2 XG?% &)?:(?G%&(K?. '8&)''81)+% 1%:'(W J8-J8 +%- &)+G1?%- " % $ C &)+)&%1)- 8? X)1!/+ +)- %-:8'(-&)- YG8 ^%5%? Q%+:% 3%'% +% &)+G1?% YG8 &)''8-3)?J% R>G&+8 ;8'J8T2 *)' =+:(1). &)+)&%1)- +% X)1!/+ '8&(P? Q)'1%J% 8? +% &)+G1?% (WYG(8'J% R ,%1T C 8? -G -(1P:'(&% J8'8&^% RDL$@ ,%1'G

DA

.+,+/)% 0%1% 2#+%1+

function result = trianguloEquilatero3(n) result=char(n, 2*n-1); for fila=1:n for col=1:2*n-1 result(fila, col)='-'; end end hilera=char(n); for fila=1:n hilera(fila)='-'; end for col=1:n for fila=n:-1:n-col+1 hilera(fila)='*'; end result(:, col)=hilera; result(:, 2*n-col)=hilera; end end P(#)*+# YXO J- $%*C#/(-& 8R(*-C$8%&< )&-&),#'& ,:$8%*:)&: .&% )&-(0#,:

N)- '8-G+:%J)- J8 87813+) -)? +)- -(5G(8?:8-a dd :'(%?5G+)6YG(+%:8')ARFT %?- `

dd :'(%?5G+)6YG(+%:8')AR"0T %?- `

----*------***----*****--****************

---------*----------------***--------------*****------------*******----------*********--------***********------*************----***************--************************************

P*/(%, 7W

DE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& VVO 1,$%*Q $%*,#/(-,% :(.8%*&% J:)%*S*% (#, @(#)*+# $&08 )&0& .,%C08$%& (# #T08%& ! A '8;(8-;, (#, 0,$%*Q '8 !+!) $%*,#/(-,% :(.8%*&%< )&# -, :*/(*8#$8 @&%0,]

•

!

!

!

!

!

!

!

!

!

!

!

!

! ! ! !

!

!

!

!

!

!

!

!

!

!

!

!! ! ! ! ! !

b)+G&(K? "2

*)J81)- 3%':(' J8 G?% 1%:'(W (J8?:(J%J2 IG85). 8? &%J% Q(+%. '8&)''81)- J8-J8 +% &)+G1?% E)1+VA ^%-:% +% &)+G1?% $P &)+)&%?J) 8? &%J% &%-(++% 8+ ?=18') YG8 :8?5% % +% (WYG(8'J% (?&'818?:%J) 8? "a function result = triangularSuperior1(n) result=eye(n); for fila=1:n for col=fila+1:n result(fila, col)=result(fila, col-1)+1; end end end P(#)*+# YYO 1,$%*Q $%*,#/(-,% :(.8%*&%< %8--8#,#'& .&% @*-,: A 80.8Q,#'& )&# (#, 0,$%*Q *'8#$*','

w 8+ '8-G+:%J) 8-a

dd :'(%?5G+%'bG38'()'"RFT %?- ` " 0 0 0 0

/ " 0 0 0

A / " 0 0

E A / " 0

F E A / "

P*/(%, 77 •

b)+G&(K? /2

B%1>(P? 3)J81)- 3%':(' J8 G?% 1%:'(W J8 &8')- C '8++8?%' &%J% Q(+% J8 Q)'1% 3%'8&(J%a 8? &%J% E)1+. 8138W%'81)- 8? +% &)+G1?% E)1+ J8-J8 " ^%-:% $2 6+ &KJ(5). 8? 3'(?&(3(). 3)J'\% -8' 8+ -(5G(8?:8a

DF

.+,+/)% 0%1% 2#+%1+

function result = triangularSuperior2(n) result=zeros(n); for fila=1:n for col=fila:n result(fila, col)=result(fila, col-1)+1; end end end P(#)*+# YZO B&-()*+# *#)&%%8)$, .,%, -, 0,$%*Q $%*,#/(-,% :(.8%*&%

X+ 878&G:%' +% 9G?&(K? LD. -(? 81>%'5). 8?&)?:'%1)- G? 8'')'a dd :'(%?5G+%'bG38'()'/RFT ggg X::813:8J :) %&&8-- '8-G+:R".0Tl (?J8V 1G-: >8 % 3)-(:(;8 (?:858' )' +)5(&%+2 6'')' (? ``d :'(%?5G+%'bG38'()'/ %: @ '8-G+:RQ(+%. &)+T`'8-G+:RQ(+%. &)+f"Tk"l P*/(%, 7XO 18#:,98 '8 8%%&% &S$8#*'& ,- 898)($,% -, P(#)*+# YZ

6+ 8'')' -8 3')JG&8 +% 3'(18'% ;8W YG8 -8 (?:8?:% %&&8J8' %+ 8+818?:) /!#617&E)1+P ,%1@A'G 8? 8-:8 1)18?:). ,%1>A C. &+%'%18?:8. ,%1@A>R. &)? +) YG8 8+ 8+818?:) YG8 :'%:%1)- J8 '8&G38'%' 8- /!#617&AP R'. YG8 8-:U QG8'% J8 +)- +\1(:8- J8 +% 1%:'(W2 ,?% Q)'1% J8 %''85+%' 8+ 3')>+81% 8- '8++8?%' J8 1%?8'% -83%'%J% +% 3'(18'% Q(+% C. +G85). &)?:(?G%' J8-J8 +% Q(+% / ^%-:% +% $a function result = triangularSuperior2(n) result=zeros(n); for col=1:n result(1, col)=col; end for fila=2:n for col=fila:n result(fila, col)=result(fila, col-1)+1; end end end P(#)*+# Z\O 4, @(#)*+# ,#$8%*&%< ,F&%, :*# 8- 8%%&% •

b)+G&(K? A2

B%1>(P? 3)J81)- '8++8?%' 3)' &)+G1?%-a 3%':(8?J) J8 G?% 1%:'(W J8 &8')-. 8+ 3'(18' Z+1%/ J8 &%J% &)+G1?% 8- 8+ 3')3() ?=18') J8 &)+G1?%2 *%'% &)13+8:%' +% &)+G1?%. ;%1)- J8&'818?:%?J) 8+ Z+1%/ ^%-:% ++85%' % 02 6- J8&('a

DH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result = triangularSuperior3(n) result=zeros(n); for col=1:n valor=col; for fila=1:col result(fila, col)=valor; valor=valor-1; end end end P(#)*+# ZNO 1,$%*Q $%*,#/(-,% :(.8%*&%< %8--8#,#'& .&% )&-(0#,: •

b)+G&(K? E2

6? G?% Q)'1% 1U- J8 -)+G&()?%'+). &)13+8:%1)- 3'(18') +% 3'(18'% Q(+% C +G85) '8&)''81)- :)J%- +%- &)+G1?%- J8-J8 +% Q(+% /2 6? &%J% 3)-(&(K?. &)+)&%1)- 8+ ;%+)' YG8 ^%C% 8?&(1% 18?)- "a function result = triangularSuperior4(n) result=zeros(n); for col=1:n result(1, col)=col; end for col=1:n for fila=2:col result(fila, col)=result(fila-1, col)-1; end end end P(#)*+# ZUO 1,$%*Q $%*,#/(-,% :(.8%*&%< %8--8#,#'& .&% )&-(0#,: $%,: %8--8#,% ,#$8: -, .%*08%, @*-, •

b)+G&(K? F2

G(WU +% -)+G&(K? 1U- -8?&(++% -8% +% -(5G(8?:8a -( ?)- Q(7%1)-. 8+ ;%+)' YG8 %3%'8&8 8? &%J% &%-(++% J8+ :'(U?5G+) -G38'()' 8- +% J(Q8'8?&(% 8?:'8 8+ ?=18') J8 &)+G1?% C 8+ ?=18') J8 Q(+% 1U- "a

N N U V 6 W

U

V

6

/f"k" Ef/k" AfAk"

*)' :%?:)a

D@

W

.+,+/)% 0%1% 2#+%1+

function r=triangularSuperior5(n) r=[]; for fila=1:n for col=fila:n r(fila, col)=col-fila+1; end end end P(#)*+# ZVO ?#, :&-()*+# :8#)*--, .,%, -, 1,$%*Q $%*,#/(-,% :(.8%*&%

DL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& V6O I*,/&#,-8: R(8 :8 *#)%808#$,# c"d J:)%*S*% (#, @(#)*+# R(8 )&#:$%(A, (#, 0,$%*Q '8 !+! )(A, '*,/&#,.%*#)*.,- 8:$[ @&%0,', .&% (#&:< A 8- %8:$& '8 '*,/&#,-8: 8:$C# @&%0,',: .&% :( '*:$,#)*, , -, '*,/&#,- .%*#)*.,-O >&% 8980.-&< .,%, !'MH

•

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

b)+G&(K? "2

6-:8 878'&(&() 8- G?% 58?8'%+(W%&(K? J8+ %?:8'()'a %^)'% -8 :'%:% J8 '8++8?%' ?) -K+) 8+ :'(U?5G+) -G38'()'. -(?) :%1>(P? 8+ (?Q8'()'2 *%':(8?J) J8 +% =+:(1% -)+G&(K? J%J% %+ 878'&(&() J8 +% 1%:'(W :'(%?5G+%' -G38'()'. 8+ ;%+)' YG8 J8>81)- &)+)&%' 8? &%J% &%-(++% 8- +*#&,%1@E)1+'VAa function r=diagonalesQueSeIncrementan1(n) r=[]; for fila=1:n for col=1:n r(fila, col)=abs(col-fila)+1; end end end P(#)*+# Z6 •

b)+G&(K? /2

*)J81)- ^%&8'+) :%1>(P? 1U- &)13+(&%J)a 8? +% 3'(18'% &)+G1?%. &)+)&%1)- +)?=18')- J8-J8 " 8138W%?J) 8? +% Q(+% " C :8'1(?%?J) 8? +% Q(+% $l 8? +% -85G?J%. &)+)&%1)- +)- ?=18')- J8-J8 " 8138W%?J) 8? +% Q(+% / R8+ 1(-1) ?=18') YG8 +% &)+G1?%T C ++85%?J) ^%-:% +% Q(+% $F N8 8-:% 1%?8'% &)13+8:%1)- 8+ :'(U?5G+) (?Q8'()'a function r=triangularInferior1(n) r=[]; for col=1:n valor=1; for fila=col:n r(fila, col)=valor; valor=valor+1; end end end P(#)*+# ZWO P%,/08#$& '8 )+'*/& .,%, %8--8#,% .&% )&-(0#,: 8- $%*C#/(-& *#@8%*&%

6Q8&:(;%18?:8. -( 878&G:%1)- )>:8?81)- 8+ -(5G(8?:8 '8-G+:%J)a

DD

.+,+/)% 0%1% 2#+%1+

dd J(%5)?%+8-G8b8S?&'818?:%?/RLT %?- ` " / A E F H @ L

0 " / A E F H @

0 0 " / A E F H

0 0 0 " / A E F

0 0 0 0 " / A E

0 0 0 0 0 " / A

0 0 0 0 0 0 " /

0 0 0 0 0 0 0 "

P*/(%, 7YO 2- 898)($,% 8- )+'*/& '8 -, P(#)*+# ZW< &S$8#80&: 8- $%*C#/(-& *#@8%*&%

*%'% &)13+8:%' 8+ '8-:). ?)- 3)J81)- Q(7%' 8? %+5G?%- J8 +%- -)+G&()?8- J%J%- %+ 678'&(&() AA C &)13+8:%' 8+ &KJ(5)a function r=diagonalesQueSeIncrementan2(n) r=[]; for col=1:n valor=1; for fila=col:n r(fila, col)=valor; valor=valor+1; end end for fila=1:n for col=fila+1:n r(fila, col)=r(fila, col-1)+1; end end end P(#)*+# Z7O 4, P(#)*+# ZW< )&0.-8$,', .,%, R(8 :8 %8--8#8 8- $%*C#/(-& :(.8%*&% •

b)+G&(K? A2

N8+ 878'&(&() %?:8'()' :8?81)- ;%'(%- QG?&()?8- 3%'% &)?-:'G(' +% 1%:'(W :'(%?5G+%' -G38'()'. C &)? +% 9G?&(K? DF &)?-:'G(1)- +% :'(%?5G+%' (?Q8'()'2 *)J81)&)1>(?%' +)- '8-G+:%J)- J8 %1>%- QG?&()?8- 8? G?% -)+% 1%:'(Wa +) YG8 ^%'81)-8'U :)1%'. J8 &%J% 1%:'(W. 8+ 1UV(1) ;%+)' J8 +% 1(-1% 3)-(&(K?a

3%*,#/(-,% :(.8%*&% 3%*,#/(-,% *#@8%*&% N U V 6 W N 0 0 0 0 0 N U V 6 U N 0 0 0 0 0 N U V V U N 0 0 0 0 0 N U 6 V U N 0 0 0 0 0 N W 6 V U N 6-:) 8- +) YG8 ^%&81)- 8? +% QG?&(K? -(5G(8?:8 18J(%?:8 +% QG?&(K? I+" J8 $XBIX[a

"00

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r=diagonalesQueSeIncrementan3(n) r=max(triangularInferior1(n), triangularSuperior1(n)); end P(#)*+# ZXO D&#:$%())*+# '8 -, 0,$%*Q .8'*', , .,%$*% '8 -,: '&: $%*,#/(-,%8:

"0"

.+,+/)% 0%1% 2#+%1+

J98%)*)*& VWO I*,/&#,-8: R(8 :8 *#)%808#$,# c""d J:)%*S*% (#, @(#)*+# R(8 )&#:$%(A, (#, 0,$%*Q '8 !+! )(A, '*,/&#,.%*#)*.,- 8:$[ @&%0,', .&% -&: ;,-&%8: .,:,'&: 8# (# .,%C08$%& (< A 8- %8:$& '8 '*,/&#,-8: 8:$C# @&%0,',: .&% :( '*:$,#)*, , -, '*,/&#,- .%*#)*.,- 0C: (O >&% 8980.-&< .,%, !'M A ('?H

•

!

!

!

!

!"

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!

!"

!

!

!

!

b)+G&(K? "2

*%':(8?J) J8 &G%+YG(8'% J8 +%- -)+G&()?8- J%J%- %+ 878'&(&() %?:8'()'. +) =?(&) YG8 :8?81)- YG8 ^%&8' 8- '8&)''8' +% 1%:'(W )>:8?(J% C -G1%'. % &%J% &%-(++%. 8+ ;%+)' J8 I@A2 *)' 87813+). 3%'% $>N C I>4G "kHf" /kHf" AkHf" EkHf" FkHf" " / A E F /kHf" "kHf" /kHf" AkHf" EkHf" / " / A E AkHf" /kHf" "kHf" /kHf" AkHf" A / " / A EkHf" AkHf" /kHf" "kHf" /kHf" E A / " / FkHf" EkHf" AkHf" /kHf" "kHf" F E A / " ,?% 3)-(>+8 -)+G&(K?. 8? +% YG8 ++%1%1)- % +% 9G?&(K? DE R3U5(?% DDT. 8-a

function r=diagonalesQueSeIncrementanB1(n, m) r=diagonalesQueSeIncrementan1(n); for fila=1:n for col=1:n r(fila, col)=r(fila, col)+m-1; end end end P(#)*+# ZY

"0/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& V7O HT08%&: &%'8#,'&: J:)%*S*% (#, @(#)*+# R(8 $&08 (# ,%/(08#$& ! A '8;(8-;, (#, 0,$%*Q '8 !+! )&# $&'&: -&: #T08%&: '8:'8 N F,:$, !=O >&% 8980.-&< .,%, !'@] N U V 6 •

N " F D "A

U / H "0 "E

V A @ "" "F

6 E L "/ "H

b)+G&(K? "2

M)? +) YG8 C% -%>81)-. 8-:8 878'&(&() 8- 3'U&:(&%18?:8 :'(;(%+2 *)' 87813+). 3)J81)- '8&)''8' :)J%- +%- &%-(++%- &)? J)- >G&+8- %?(J%J)- RG?) 3%'% +%- Q(+%- C ):') 3%'% +%- &)+G1?%-T. &)+)&%?J) 8? &%J% G?% G? Z+1%/ YG8 ;%1)(?&'818?:%?J) 8? &%J% (:8'%&(K?a function r = numerosOrdenados1(n) r=zeros(n); valor=1; for fila=1:n for col=1:n r(fila, col)=valor; valor=valor+1; end end end P(#)*+# ZZ •

b)+G&(K? /2

e:'% -)+G&(K? %+5) 1U- 8?'8;8-%J% 8- +% -(5G(8?:8a -( ?)- Q(7%1)-. 8+ 3'(18' ?=18') J8 &%J% &)+G1?% 8- -G ?=18') J8 &)+G1?%2 IG85). ^%&(% %>%7). ;%? (?&'818?:%?J) J8 $ 8? $a

N U V

N U V 6 " / A E "kE /kE AkE EkE

6 6-:) 8- +) YG8 ^%&81)- 8? +% -)+G&(K? -(5G(8?:8a 3'(18'). ++8?%1)- 8? G? >G&+8 %3%':8 +% 3'(18'% Q(+%l +G85). &)?:(?G%1)- '8&)''(8?J) &%J% &)+G1?% % 3%':(' J8 +% -85G?J% Q(+%. 3)?(8?J) 8? &%J% 3)-(&(K? 8+ ;%+)' YG8 :8?5% 8?&(1% (?&'818?:%J) 8? $G

"0A

.+,+/)% 0%1% 2#+%1+

function r = numerosOrdenados2(n) r=zeros(n); for col=1:n r(1, col)=col; end for col=1:n for fila=2:n r(fila, col)=r(fila-1, col)+n; end end end P(#)*+# N\\

"0E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& VXO HT08%&: &%'8#,'&: '8:)8#'8#$808#$8 J:)%*S*% (#, @(#)*+# R(8 $&08 (# ,%/(08#$& ! A '8;(8-;, (#, 0,$%*Q '8 !+! )&# $&'&: -&: #T08%&: '8:'8 N F,:$, !=) &%'8#,'&: '8 0,A&% , 08#&%O >&% 8980.-&< .,%, !'@] N U V 6 •

N "H "/ L E

U "F "" @ A

V "E "0 H /

6 "A D F "

b)+G&(K? "2

o88-&'(>('81)- +% 3'(18'% -)+G&(K? J%J% %+ 878'&(&() %?:8'()'2 X^)'%. 8+ ;%+)' 3)' 8+ YG8 %''%?&%1)- -8'U $D C +) ('81)- J8&'818?:%?J) 8? &%J% (:8'%&(K?a function r = numerosOrdenadosDescendentemente1(n) r=zeros(n);

end

valor=n^2; for fila=1:n for col=1:n r(fila, col)=valor; valor=valor-1; end end

P(#)*+# N\N •

b)+G&(K? /2

e:'% Q)'1% J8 ^%&8'+). 3%'8&(J% % +% -)+G&(K? / J8+ 878'&(&() %?:8'()'. 8- '8++8?%' 3)' &)+G1?%-a 3'(18') &)13+8:%1)- +% =+:(1% Q(+% 8? G? >G&+8 %3%':8l +G85). 8? &%J% &)+G1?%. ;%1)- J8-J8 +% 38?=+:(1% Q(+% ^%-:% +% 3'(18'%. &)+)&%?J) 8? &%J% 3)-(&(K? 8+ ;%+)' YG8 :(8?8 J8>%7) 1U- $G function r = numerosOrdenadosDescendentemente2(n) r=zeros(n); for col=1:n r(n, col)=n-col+1; end for col=1:n for fila=n-1:-1:1 r(fila, col)=r(fila+1, col)+n; end end end P(#)*+# N\U

"0F

.+,+/)% 0%1% 2#+%1+

J98%)*)*& VYO m*/Q,/ J:)%*S*% (#, @(#)*+# 8# 123425 R(8 '8;(8-;, (#, 0,$%*Q '8 !+! )&# -&: #T08%& '8:'8 8- N F,:$, != )&-&),'&: 8# -,: @*-,: 8# Q*/Q,/O >&% 8980.-&< .,%, !'@] N U V 6 •

N " L D "H

U / @ "0 "F

V A H "" "E

6 E F "/ "A

b)+G&(K? "2

b( ?)- Q(7%1)- 8? +% 1%:'(W J8 87813+). +)- ;%+)'8- 8? +%- Q(+%- (13%'8- -)? &'8&(8?:8-. C J8&'8&(8?:8- 8? +%- 3%'8-2 *)J81)- (' '8&)''(8?J) +% 1%:'(W 3)' Q(+%-a -( +% Q(+% 8- (13%'. '8&)''81)- -G- &%-(++%- J8-J8 +% &)+G1?% " ^%-:% +% $l -( 8- 3%'. '8&)''81)- J8-J8 +% $ ^%-:% +% "2 6? &%J% &%-(++%. &)+)&%1)- G? ;%+)' YG8 (?(&(%+(W%1)- % " C YG8 ;%1)- (?&'818?:%?J) 8? &%J% (:8'%&(K?2 function r = zigzag(n) r=zeros(n); valor=1; for fila=1:n if mod(fila, 2)==1 for col=1:n r(fila, col)=valor; valor=valor+1; end else for col=n:-1:1 r(fila, col)=valor; valor=valor+1; end end end end P(#)*+# N\V

"0H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& VZO I*:$,#)*,: J:)%*S*% (#, @(#)*+# R(8 )&#:$%(A, (#, 0,$%*Q '8 !+!) )&# ! *0.,%< 8# -, R(8 ),', 8-808#$& 8: (# #T08%& R(8 %8.%8:8#$, -, '*:$,#)*, ,- 8-808#$& )8#$%,'8 -, 0,$%*QO 4, '*:$,#)*, 8: -, :(0, '8 -,: '*:$,#)*,: 8# @*-,: A )&-(0#,:O >&% 8980.-&< .,%, !'MH N U V 6 W •

N E A / A E

U A / " / A

V / " 0 " /

6 A / " / A

W E A / A E

b)+G&(K? "2

6+ 878'&(&() 8- 1GC -8?&(++(:)a &)?)&(8?J) +% Q(+% C &)+G1?% I)7+8 RYG8 8- &$VA'gD'. '8&)''8'81)- :)J%- +%- &%-(++%- &)+)&%?J). &)1) ;%+)'. +% -G1% J8 -G &)+G1?% 18?)- +% 1(:%J 1U- +% Q(+% 18?)- +% 1(:%J. %1>%- 8? ;%+)' %>-)+G:)a function r = distancias1(n) r=zeros(n); mitad=(n+1)/2; for fila=1:n for col=1:n r(fila, col)=abs(fila-mitad)+abs(col-mitad); end end end P(#)*+# N\6

w %+ 878&G:%' +% QG?&(K?. )>:8?81)-a dd J(-:%?&(%-"RFT %?- ` E A / A

A / " /

/ " 0 "

A / " /

E A / A

E 7ZA P*/(%,

/

A

E

•

b)+G&(K? /2

*)J81)- '8-)+;8'+) J8 ):'% 1%?8'%a 3%':(8?J) J8 +% &)+G1?% &8?:'%+ C% '8++8?%. 3)J81)- 1);8'?)- 3)' +%- J8 +% (WYG(8'J% RJ8-J8 +% I)7+8@A ^%-:% "T C +%- J8 +% J8'8&^% RJ8-J8 I)7+8VA ^%-:% $'a 8? +%- J8 +% (WYG(8'J%. &)+)&%1)- 8+ ;%+)' YG8

"0@

.+,+/)% 0%1% 2#+%1+

:8?5%? % +% J8'8&^% 1U- "2 IG85). 8? +%- J8 +% J8'8&^%. &)+)&%1)- 8+ ;%+)' YG8 :8?5%? % +% (WYG(8'J% 1U- "a

N U V 6 W N /k" / /k" U "k" " "k" V 0k" 0 0k" 6 "k" " "k" W /k" / /k" I% 3'(18'% &)+G1?% +% 3)J81)- &)13+8:%' 8? J)- 3%':8-a 3%'% +% 3%':8 -G38'()' ('81)- J8-J8 " ^%-:% I)7+8@AP &)+)&%?J) ;%+)'8- J8-J8 I)7+8@A ^%-:% " R>%7%?J) J8 " 8? "Tl 3%'% +% 3%':8 (?Q8'()'. '8&)''81)- J8-J8 I)7+8VA ^%-:% $. &)+)&%?J) ;%+)'8- J8-J8 " ^%-:% ++85%' % +% Q(+% $F M)? 8+ -(5G(8?:8 Q'%518?:) J8 &KJ(5) '8++8?%1)- +% &)+G1?% &8?:'%+a function r = distancias2(n) r=zeros(n); mitad=(n+1)/2; for fila=1:mitad-1 r(fila, mitad)=mitad-fila; end for fila=mitad+1:n r(fila, mitad)=fila-mitad; end end P(#)*+# N\WO L8--8#,0&: -, )&-(0#, )8#$%,- 08'*,#$8 '&: S()-8:

6? 8Q8&:). 8+ '8-G+:%J) 3%'% $>N 8-a dd J(-:%?&(%-/RFT %?- ` 0 0 0 0 0

0 0 0 0 0

/ " 0 " /

0 0 0 0 0

0 0 0 0 0

P*/(%, X\

*%'% &)13+8:%' +% 1(:%J (WYG(8'J% %i%J(1)- G? 3)&) J8 &KJ(5)a

"0L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r = distancias2(n) r=zeros(n); mitad=(n+1)/2; for fila=1:mitad-1 r(fila, mitad)=mitad-fila; end for fila=mitad+1:n r(fila, mitad)=fila-mitad; end for col=mitad-1:-1:1 for fila=1:n r(fila, col)=r(fila, col+1)+1; end end end P(#)*+# N\7O D&0.-8$,0&: 8- )+'*/& '8 -, ‚6'')'m <) -8 8?&G8?:'% 8+ )'(58? J8 +% '8Q8'8?&(%2 .,%, )&0.-8$,% -, 0*$,' *QR(*8%',

6+ '8-G+:%J). J8 1)18?:). 8- 8+ -(5G(8?:8a dd J(-:%?&(%-/RFT %?- ` E A / E A

A / " A /

/ " 0 / "

0 0 0 0 0

0 0 0 0 0

P*/(%, XN

w. C% 3)' =+:(1). &)13+8:%1)- &)? ):') >G&+8 3%'% '8++8?%' +% 1(:%J J8'8&^%a

"0D

.+,+/)% 0%1% 2#+%1+

function r = distancias2(n) r=zeros(n); mitad=(n+1)/2; for fila=1:mitad-1 r(fila, mitad)=mitad-fila; end for fila=mitad+1:n r(fila, mitad)=fila-mitad; end for col=mitad-1:-1:1 for fila=1:n r(fila, col)=r(fila, col+1)+1; end end for col=mitad+1:n for fila=1:n r(fila, col)=r(fila, col-1)+1; end end end P(#)*+# N\X

""0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 6\O I*:$,#)*, 8# -8$%,: J:)%*S*% (#, @(#)*+# R(8 )&#:$%(A, (#, 0,$%*Q '8 !+!) )&# ! *0.,%< 8# -, R(8 ),', 8-808#$& 8: (#, -8$%, R(8 %8.%8:8#$, -, '*:$,#)*, ,- 8-808#$& )8#$%,'8 -, 0,$%*QO 4, '*:$,#)*, 8: -, :(0, '8 -,: '*:$,#)*,: 8# @*-,: A )&-(0#,:O J)8%& :8 )&%%8:.&#'8 )&# -, -8$%, 4< 8- N )&# -, 3< 8$)[$8%,O >&% 8980.-&< .,%, !'MH N U V 6 W •

N 8 J & J 8

U J & > & J

V & > % > &

6 J & > & J

W 8 J & J 8

b)+G&(K? "2

*%'% 3+%?:8%' +% -)+G&(K?. J8>81)- -%>8' 3'(18') YG8 &%J% &%'U&:8' J8 +)- YG8 1%?(3G+% $XBIX[ :(8?8 G? ?=18') 8?:8') %-)&(%J) R+) YG8 -8 ++%1% 8+ ,f8)H% 9qr\\'2 X-\. 3)' 87813+). +%- +8:'%- 1%C=-&G+%- 813(8W%? 8? 8+ HF R+% XT C :8'1(?%? 8? 8+ D0 R+% ZT2 I%- 1(?=-&G+%- 813(8W%? 8? +% D@2 6+ -(5G(8?:8 3')5'%1% 1G8-:'% +)- &%'%&:8'8- YG8 &)''8-3)?J8? % &%J% ;%+)' ?G1P'(&)a function caracteres() for i=1:255 linea=[int2str(i), '-> ', char(i)]; disp(linea); end end P(#)*+# N\YO >%&/%,0, .,%, :,),% -, -*:$, '8 )+'*/&: 2BD""

6? 8+ &KJ(5) J8 %''(>% ^81)- '8-%+:%J) +% QG?&(K? ,X+/&)'. YG8 J8;G8+;8 8+ &%'U&:8' &)''8-3)?J(8?:8 %+ ;%+)' YG8 -8 3%-% &)1) 3%'U18:')a %-\. 3)' 87813+). ,X+/&4N' 8- xXƒ. C ,X+/&SU'>s+sF *%'% 8-&'(>(' 8+ &KJ(5) YG8 -)+G&()?8 8-:8 878'&(&() 3')&8J8'81)- J8 Q)'1% 1GC 3%'8&(J% %+ 878'&(&() %?:8'()'a %^)'%. -(? 81>%'5). 8? +G5%' J8 &)+)&%' ?=18')YG8'81)- &)+)&%' +8:'%-2 6+ &KJ(5) J8 +% QG?&(K? 8- 1GC 3%'8&(J) %+ J8 +% 9G?&(K? "0E R3U5(?% "0@Ta +% J(-:%?&(% J8 &%J% &%-(++% %+ &8?:') +% 5G%'J%1)- 8? +% ;%'(%>+8 8)#7+$,)+l +G85). 8+ ;%+)' YG8 &)+)&%1)- 8- 8+ &KJ(5) XbMSS &)''8-3)?J(8?:8 % 8-% 8)#7+$,)+ 38'). &)1) J8>81)- 8138W%' 3)' +% +8:'% x%ƒ 3%'% '83'8-8?:%' 8+ &8'). +8 -G1%1)- D@ RC% YG8 ,X+/&SUVR'>,X+/&SU'>s+s'F

"""

.+,+/)% 0%1% 2#+%1+

function r = distanciaEnLetras1(n) r=char(n); mitad=(n+1)/2; for fila=1:n for col=1:n distancia=abs(fila-mitad)+abs(col-mitad); r(fila, col)=char(97+distancia); end end end P(#)*+# N\Z

""/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 6NO 5(:),'&% '8 ),'8#,: J:)%*S*% (#, @(#)*+# 8# 123425 R(8 S(:R(8< 8# -, ),'8#, R(8 :8 .,:, )&0& .%*08% .,%C08$%&< -, ),'8#, R(8 :8 .,:, )&0& :8/(#'&O 4, &.8%,)*+# '8S8 '8;&-;8% (# EN :* #& -, 8#)(8#$%,< & -, .&:*)*+# 8# -, R(8 ,.,%8)8O >&% 8980.-&] *!5#!P$4$/QF$#3E*(4. 7* G;RS;
•

$XBIX[ :'%:% +%- &%J8?%- J8 &%'%&:8'8- &)1) ;8&:)'8-2 *%'% 8+ 87813+) %?:8'()'. -8 :'%:% J8 >G-&%' G? -G>;8&:)' J8?:') J8 G? ;8&:)'2 N

U

* '

V

6

W

) > +

7

X

Y

Z

8 1 % -

N\

NN

NU

J

8

NV

N6

NW

N7

NX

NY

NZ

$

X

B

I

X

[

b( 8+ 3%:'K? YG8 >G-&%1)- Rx$XBIX[ƒ. 8? 8+ 87813+)T :(8?8 H &%'%&:8'8-. 8+ 3')>+81% -8 '8JG&8 % 8V:'%8' -G>;8&:)'8- J8 H &%'%&:8'8- J8 +% &%J8?% 5'%?J8 8138W%?J) 8? +% 3)-(&(K? "2 b( +) 8?&)?:'%1)- 8? 8-% 3)-(&(K?. J8;)+;81)- G? "l -( ?). %;%?W%1)- ^%-:% +% /2 M)?:(?G%1)- %-\ ^%-:% YG8 +) 8?&)?:'81)- ) ^%-:% YG8 ++85G81)- % G?% 3)-(&(K? J8-J8 +% YG8 ?) 3)J%1)- +88' H &%'%&:8'8- R8- J8&('. +% "FT2 6+ 878'&(&() 3)J81)- '8-)+;8'+) J8 +% -(5G(8?:8 Q)'1%a 8? J%#),)%$()$+1 5G%'J%1)+% 3)-(&(K? J8+ =+:(1) &%'U&:8' % 3%':(' J8+ &G%+ ?) 3)J81)- -85G(' >G-&%?J) R"E. 8? 8+ 87813+)Tl +G85). 8?:'%1)- % G? OX)1! 8? 8+ YG8 38'1%?8&8'81)- ^%-:% 8?&)?:'%' 8+ 3%:'K? ) ^%-:% YG8. -(? 8?&)?:'%'+). ++85G81)- % +% J%#),)%$()$+1F N8?:') J8+ >G&+8. ;%1)- 8V:'%C8?J) -G>&%J8?%-. J8-J8 +% 3)-(&(K? )P J8 +% 1(-1% +)?5(:GJ YG8 8+ 3%:'K?. C +%- &)13%'%1)- &)? 8+ J+7/%$F I% &)13%'%&(K? +% ^%&81)- &)? +% QG?&(K? #7/,IJ J8 $XBIX[. YG8 J8;G8+;8 " -( +%- J)- &%J8?%- YG8 -8 3%-%? &)1) 3%'U18:')- -)? (5G%+8- C 0 8? &%-) &)?:'%'()2 function r = encontrar1(texto, patron) r=-1; i=1; posicionFinal=length(texto)-length(patron)+1; while (r==-1 && i<=posicionFinal) subcadena=texto(1, i:i+length(patron)-1); if strcmp(subcadena, patron)==1 r=i; end i=i+1; end end P(#)*+# NN\O 5T:R(8', '8 (# .,$%+# 8# (#, ),'8#,

,?% 3)-(>+8 :'%W% &)? 8+ 87813+) %?:8'()' 8-a

""A

.+,+/)% 0%1% 2#+%1+

D&08#$,%*& X?:8- J8+ OX)1!f" 6?:'%1)- %+ OX)1!

% f" f" f" f"

M)? „ J8?):%1)- 8+ 8-3%&() 8? >+%?&)

#7/,IJ J8;G8+;8 ". 3G8- J+7/%$ 8(5G%+ % #6*,+8!$+

*

:(S),'8#,

" / A E

.&:P*#,- .,$%&# $XBIX[ "E $XBIX[ "E $XBIX[ "E $XBIX[ "E $XBIX[

f"

F

"E

$XBIX[

+81%-f

f" f" f" f" f" f" f" f"

H @ L D "0 "" "/ "A

"E "E "E "E "E "E "E "E

$XBIX[ $XBIX[ $XBIX[ $XBIX[ $XBIX[ $XBIX[ $XBIX[ $XBIX[

81%-fJ 1%-fJ8 %-fJ8f -fJ8f$ fJ8f$X J8f$XB 8f$XBI f$XBIX

"E

"E

"E

$XBIX[

$XBIX[

"

"E

P*/(%, XUO 3%,Q, '8 -, P(#)*+# NN\

""E

*')>+8 ')>+81 )>+81% >+81%-

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 6UO I8$8))*+# '8 .,-h#'%&0&: J:)%*S*% (#, @(#)*+# R(8< $&0,#'& (#, ),'8#, '8 ),%,)$8%8: )&0& .,%C08$%&< '8;(8-;, (# N :* -, ),'8#, 8: (# .,-h#'%&0&< A \ 8# ),:& )&#$%,%*&< :*# )&#:*'8%,% -&: 8:.,)*&: 8# S-,#)&O b)+G&(K? "2

•

M)?-(J8'81)- 8+ 3%+\?J')1) J8 -(8:8 &%'%&:8'8- +$)1)$+G

N U V 6 W 7 X % ? ( + ( ? % I% 3%+%>'% 8- 3%+\?J')1) 3)'YG8 8+ &%'U&:8' " 8- (5G%+ %+ @. 8+ / (5G%+ %+ H C 8+ A (5G%+ %+ F2 6+ &%'U&:8' E ?) ^%&8 Q%+:% &)13%'%'+) 3)'YG8 8+ ?=18') J8 &%'%&:8'8J8 +% 3%+%>'% 8- (13%' C +% !1! YG8J% 8? 18J()2 *%'% G? 3%+\?J')1) &)? G? ?=18') 3%' J8 +8:'%-. &)1) !//!. ?) ^%C &%'U&:8' 8? 8+ &8?:')2 6+ &%'U&:8' " 8- (5G%+ %+ E C 8+ / 8- (5G%+ %+ A2

N U V 6 8 ' ' 8 I) 3'(18') YG8 ^%'81)- -8'U YG(:%' :)J)- +)- 8-3%&()- 8? >+%?&) % +% '(-:'% J8 &%'%&:8'8- YG8 +8 ++85G8 % +% QG?&(K?2 o8&)''8'81)- +% '(-:'% )'(5(?%+ J8 3'(?&(3() % Q(?a -( 8+ &%'U&:8' )@`#)I% ?) 8- G? 8-3%&(). +) %i%J(1)- % +% '(-:'% 1)J(Q(&%J%l -( -\ +) 8-. 3%-%1)- %+ -(5G(8?:8 &%'U&:8' -(? %i%J('+)a N )'(5(?%+ -(? 8-3%&()-

W

7

X

* '

U

) > +

8

1 % -

N

V

W

7

X

) > +

8

1 % -

U

* '

V

6

6

Y

Y

Z

Z

N\

NN

NU

J

8

N\

NN

NU

J

8

$

NV

N6

NW

N7

NX

NY

NZ

$

X

B

I

X

[

NV

N6

NW

N7

NX

X

B

I

X

[

6+ -(5G(8?:8 :')W) J8 &KJ(5) '8%+(W% +% QG?&(K? J8-&'(:%a &'8% +% ;%'(%>+8 +6")1)+/ &)1) G? ;8&:)' J8 &%'%&:8'8-l +G85). '8&)''8 8+ :8V:) )'(5(?%+ C. -( 8+ &%'U&:8' ?) 8G?% 8-3%&(). +) %i%J8 % +6")1)+/F function r = palindromo1(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end auxiliar end P(#)*+# NNNO >%*08%& 8-*0*#,0&: -&: 8:.,)*&: 8# S-,#)&

""F

.+,+/)% 0%1% 2#+%1+

I% +\?8% '8-%+:%J% 8? %1%'(++) 8? 8+ &KJ(5) %?:8'()'. 8? +% YG8 %3%'8&8 +% 3%+%>'% u%GV(+(%'v -(? 3G?:) C &)1% %+ Q(?%+. -(';8 3%'% YG8 $XBIX[ 1G8-:'8 3)' +% &)?-)+% 8+ ;%+)' J8 8-% ;%'(%>+8a dd :8V:) :8V:) ` *')>+81%- J8 $XBIX[ dd 3%+(?J')1)"R:8V:)T %GV(+(%' ` *')>+81%-J8$XBIX[ P*/(%, XVO J-*0*#,0&: -&: 8:.,)*&: '8- $8=$& n>%&S-80,: '8 123425o

,?% ;8W 3'83')&8-%J% +% &%J8?%. '8&)''8'81)- +% 3'(18'% 1(:%J J8 +% 3%+%>'% 8 ('81)- &)13%'%?J) -G- &%'%&:8'8- &)? +)- J8 +% -85G?J% 1(:%J2 *%'% G?% 3%+%>'% J8 +)?5(:GJ 3%'. +% 3'(18'% 1(:%J ;% J8-J8 " ^%-:% +% +)?5(:GJ 8?:'8 /l 3%'% G?% J8 +)?5(:GJ (13%'. J8-J8 " ^%-:% +% 3%':8 8?:8'% J8 +% 1(:%J J8 +% +)?5(:GJa 8?:)?&8-. %?:8- J8 &)13')>%' -( +% &%J8?% J8 &%'%&:8'8- 8- ) ?) G? 3%+\?J')1). &%+&G+%'81)- +% 3)-(&(K? J8 +% &%J8?% 8? +% YG8 :8'1(?% +% 3'(18'% 1(:%J. C % +% YG8 ++%1%1)- 8%$8!0+/+/G function r = palindromo1(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end if mod(length(auxiliar), 2)==1 dondeParar=floor(length(auxiliar)/2); else dondeParar=length(auxiliar)/2; end end dondeParar P(#)*+# NNUO 2- )+'*/& '8 -, P(#)*+# NNN -8 ,e,'*0&: (#,: -h#8,: .,%, )&#&)8% '+#'8 .,%,% -, )&0.%&S,)*+#

b( 878&G:%1)- &)? G? 3%' J8 87813+)-. )>:8?81)- 8-:)a

""H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

N

U

* '

V

6

W

) > +

7

X

Y

Z

8 1 % -

N\

NN

NU

NV

N6

NW

N7

NX

J

8

$

X

B

I

X

[

T ,+/+,7!/!#

T ,+/+,7!/!#

dd :8V:) :8V:) ` *')>+81%- J8 $XBIX[ dd 3%+(?J')1)"R:8V:)T J)?J8*%'%' ` L

N X

U [

V M

6 N

W N

3 ,+/+,7!/!#

7 M

X [

Y X

3 ,+/+,7!/!#

dd 3%+(?J')1)"RyX[MNNM[XyT J)?J8*%'%' ` E P*/(%, X6O I8$8%0*#,)*+# '8 7#!7*F4$4$8# @(#)*+# '8 -, -&#/*$(' .,% & #&# '8 -, ),'8#,

X^)'%. ?)- YG8J% -)+%18?:8 &)13+8:%' 8+ &KJ(5) 3%'% YG8 -8 '8%+(&8 +% &)13')>%&(K?a +% QG?&(K? J8;)+;8'U " ) 0 -85=? 8+ 7!"7% 3%-%J) &)1) 3%'U18:') -8% ) ?). '8-38&:(;%18?:8. 3%+\?J')1)2 6+ '8-G+:%J) +) %+1%&8?%1)- 8? +% ;%'(%>+8 /. YG8 ;%+8 (?(&(%+18?:8 " R+\?8% '8-%+:%J% 8? %1%'(++)T C YG8 3)?81)- % 0 8? 8+ 1)18?:) 8? YG8 J8:8&:%1)- J)- &%'%&:8'8- ?) &)(?&(J8?:8- R8? 8+ )E '8-%+:%J) 8? ;8'J8Ta

""@

.+,+/)% 0%1% 2#+%1+

function r = palindromo1(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end if mod(length(auxiliar), 2)==1 dondeParar=floor(length(auxiliar)/2); else dondeParar=length(auxiliar)/2; end r=1; for i=1:dondeParar caracterIzda=auxiliar(i); caracterDcha=auxiliar(length(auxiliar)-i+1); if caracterIzda~=caracterDcha r=0; end end end P(#)*+# NNVO I8$8%0*#,)*+# '8 :* 8- P*+P# 8: & #& .,-h#'%&0& )&# (# S()-8 "#$

r%5%1)- G?% :'%W% J8 +% QG?&(K? 3%'% (+G-:'%' -G QG?&()?%1(8?:)2 bG3)?5%1)- YG8 7!"7% 3%-%J) 8- 0/%*1!I+# 8! .9:;9
TF *

),%,)$8%"Q',p^),%,)$8%I)F,

'&#'8>,%,%

%

6-:%1)- 8? +% +\?8% />A 6?:'%1)- %+ >G&+8 6? 8+ )E 1%'&%J) 8? ;8'J82 / -8 3)?8 % 0 o88?:'%1)8? 8+ >G&+8 C &)13%'%1)8? 8+ )E ;8'J8 … … … … … …

L

"

L

" "

*

[

L

0 "

*

[

9%+-)

L

0 /

'

X

9%+-)

L L L L L L

0 0 0 0 0 0

) > + 8 1 %

I B X $ 8 J

A E F H @ L

),%,)$8%"Q',

),%,)$8%I)F,

D&08#$,%*&:

9%+-) 9%+-) 9%+-) 9%+-) 9%+-) 9%+-) ]$ !#7! J6$7% #! +1,+$^+ 1+ ,%$8),)f$ 8! J+/+8+ 8!1 *6,1!P J6!# (`L`J)?J8*%'%'2 ;+ E6$,)f$ 7!/I)$+ ,%$ '`0. Y6! !# !1 Z+1%/ Y6! #! 8!Z6!1Z!F

b( >(8? 8+ &KJ(5) YG8 ^81)- 1)-:'%J) QG?&()?%. +) &(8':) 8- YG8 3G8J8 1)J(Q(&%'-8 3%'% YG8 -8% 1U- 8Q(&(8?:8a 8? 8Q8&:). C% J8-J8 +% 3'(18'% &)13%'%&(K? YG8 ""L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

%3%'8&8 8? +% :8'&8'% Q(+% J8 +% :%>+% -8 &)13'G8>% YG8 8+ :8V:) 3%-%J) ?) 83%+\?J')1)a 8- J8&('. J8-J8 8+ 1)18?:) 8? YG8 8?&)?:'%1)- J)- &%'%&:8'8- ?) &)(?&(J8?:8-. C% 3)J81)- :8'1(?%' +% 878&G&(K? J8 +% QG?&(K? J8;)+;(8?J) G? &8')2 •

b)+G&(K? /2

,?% Q)'1% J8 187)'%' 8+ '8?J(1(8?:) 8- Q)'W%' %+ &KJ(5) J8 +% 9G?&(K? ""A % YG8 :8'1(?8 8? &G%?:) J8:8&:8 G?% J(Q8'8?&(%2 ,?% Q)'1% J8 %''85+%'+) 8- (?&+GC8?J) G?% -8?:8?&(% /!76/$ 7G-:%18?:8 J8-3GP- J8 +% %-(5?%&(K? />Ra function r = palindromo2(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end if mod(length(auxiliar), 2)==1 dondeParar=floor(length(auxiliar)/2); else dondeParar=length(auxiliar)/2; end r=1; for i=1:dondeParar caracterIzda=auxiliar(i); caracterDcha=auxiliar(length(auxiliar)-i+1); if caracterIzda~=caracterDcha r=0; return; end end end P(#)*+# NN6O 2'*)*+# '8 (# $*PI$!.,%, .%&;&),% (#, n:,-*', *#)&#'*)*&#,-o '8 -, @(#)*+#

M)1) 8? ):')- +8?5G%78-. 8? &G%?:) $XBIX[ 8?&G8?:'% G?% (?-:'G&&(K? /!76/$ 8? +% 878&G&(K? J8 G?% QG?&(K?. :8'1(?% -G 878&G&(K? C '8:)'?% 8+ ;%+)' YG8 &)''8-3)?J% R8+ J8 /P 8? 8+ 87813+). YG8 8- &8')T2 6-) 8- +) YG8 -8 ++%1% G?% u-%+(J% (?&)?J(&()?%+v YG8. -( +) J8-8%1)-. 3)J81)- 8;(:%'+% 3G8-. 8? &(8':) 1)J). ;()+% +)- 3'(?&(3()- J8 +% 3')5'%1%&(K? 8-:'G&:G'%J%2 b)+G&(K? A2 •

*%'% 187)'%' 8+ '8?J(1(8?:) J8 +% QG?&(K?. YG8 3%'8 8? &G%?:) -8 -83% YG8 8+ :8V:) ?) 8- G? 3%+\?J')1) C 8;(:%' &)+)&%'. &)1) ^81)- ^8&^) 8? +% =+:(1% -)+G&(K?. G?% -%+(J% (?&)?J(&()?%+. -G-:(:G('81)- 8+ =+:(1) >G&+8 E%/ J8 +% 9G?&(K? ""A 3)' ):'% 8-:'G&:G'% J8 &)?:')+. J8 1%?8'% YG8 +% &)13%'%&(K? J8 +)- &%'%&:8'8- -8 878&G:8 I)!$7/+# +)- YG8 -8 8-:U? &)13%'%?J) -8%? (5G%+8-2

""D

.+,+/)% 0%1% 2#+%1+

6? +% -(5G(8?:8 QG?&(K?. &%1>(%1)- 8+ OX)1! function r = palindromo2(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end if mod(length(auxiliar), 2)==1 dondeParar=floor(length(auxiliar)/2); else dondeParar=length(auxiliar)/2; end r=1; i=1; while i<=dondeParar && r==1 caracterIzda=auxiliar(i); caracterDcha=auxiliar(length(auxiliar)-i+1); if caracterIzda~=caracterDcha r=0; end i=i+1; end end P(#)*+# NNWO B(:$*$(*0&: 8- T-$*0& "#$ '8 -, P(#)*+# NNV c.C/*#, NNYd .&% (# >U2E* •

b)+G&(K? E2

,?% Q)'1% 1U- J8 -)+G&()?%' 8+ 3')>+81% &)?-(-:8 8? &)+)&%' +% 3%+%>'% )'(5(?%+ RYG8 :8?81)- 5G%'J%J%. C% -(? 8-3%&()-. 8? G?% ;%'(%>+8 YG8. 3)' 87813+). -8 ++%18 8!1j!/!,X%'. 8? ):') ;8&:)'. 8? 8+ YG8 +% 5G%'J%1)- uJ%J% +% ;G8+:%v. C 3)' +) YG8 +) ++%1%'81)- 8!1[!Z!#G

N 8!1j!/!,X%% 8!1[!Z!#

U ?

V (

6 +

W (

7 ?

X %

Y -

% ? ( + ( ? % IG85). &)1) ^81)- ^8&^) %?:8-. 3)J81)- (' &)13%'%?J) 3)-(&(K? % 3)-(&(K? &)? G? E%/ J8 3'(?&(3() % Q(?. &)? G? E%/ &)? G? -%+:) (?&)?J(&()?%+ ) &)? G? OX)1!F B%1>(P? 3)J81)-. -(? 81>%'5). G:(+(W%' 8+ )38'%J)' `` J8 $XBIX[ 3%'% &)13%'%' +)- J)- ;8&:)'8-. YG8 8- +) YG8 ^%&81)- 8? +% -(5G(8?:8 QG?&(K?a

"/0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r = palindromo4(texto) delDerecho=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) delDerecho(pos)=texto(i); pos=pos+1; end end delReves=char(); for i=1:length(delDerecho) delReves(i)=delDerecho(length(delDerecho)-i+1); end delDerecho delReves r=delDerecho==delReves; end P(#)*+# NN7O B&-()*+# c*#)&0.-8$,d ,- .%&S-80, '8- .,-h#'%&0& 08'*,#$8 -, )&0.,%,)*+# '8 '&: ;8)$&%8:

6? 8+ &KJ(5) %?:8'()'. 5G%'J%1)- 8+ :8V:) )'(5(?%+ -(? 8-3%&()- 8? +% ;%'(%>+8 8!1j!/!,X%F IG85). 8? 8+ >G&+8 E%/ '8-%+:%J). &)+&)%1)- 8? 8!1[!Z!# 8+ :8V:) %+ '8;P-2 N8-3GP- J8 8-:8 E%/ %3%'8&8?. -(? 3G?:) C &)1% %+ Q(?%+. +)- ?)1>'8- J8 +%;%'(%>+8- 8!1j!/!,X% 8!1j!/!,X% C 8!1[!Z!# 3%'% YG8. &)? Q(?8- (?Q)'1%:(;)-. $XBIX[ ?)- 1G8-:'8 -G ;%+)'2 9(?%+18?:8. 8? +% -8?:8?&(% 1%'&%J% 8? ;8'J8. %-(5?%1)- % / 8+ ;8&:)' YG8 '8-G+:% J8 &)13%'%' R&)? 8+ )38'%J)' ``T +)- J);8&:)'8- 8!1j!/!,X% C 8!1[!Z!#F 6? +% Q(5G'% -(5G(8?:8 %3%'8&8? J)- 87813+)- J8 G-) J8 +% QG?&(K? %?:8'()'a 8? %1%'(++) +% 3%+%>'% R+% J8 +% (WYG(8'J% 8- G? 3%+\?J')1)l +% J8 +% J8'8&^%. ?)Tl 8? ;8'J8. +)- ;%+)'8- J8 +)- ;8&:)'8- 8!1j!/!,X% C 8!1[!Z!#l Q(?%+18?:8. 8? 1)'%J). 8+ ;8&:)' J8 " C 0 YG8 '8-G+:% J8 &)13%'%' %1>)- ;8&:)'8-. 3)-(&(K? % 3)-(&(K?2 dd 3%+(?J')1)ERy'8&)?)&8'yT

dd 3%+(?J')1)ERyJG%+(J%JyT

J8+N8'8&^) ` '8&)?)&8'

J8+N8'8&^) ` JG%+(J%J

J8+o8;8- ` '8&)?)&8'

J8+o8;8- ` J%J(+%GJ

%?- `

%?- `

"

"

"

"

"

"

"

"

"

"

P*/(%, XW

"/"

0

0

0

0

0

0

"

.+,+/)% 0%1% 2#+%1+

6+ :8V:) 3%-%J) &)1) 3%'U18:') -8'U G? 3%+\?J')1) -( +% -G1% J8 +)- 8+818?:)J8+ ;8&:)' '8-G+:%?:8 R8+ YG8 %3%'8&8 8? 1)'%J)T 8- (5G%+ % +% +)?5(:GJ J8+ ;8&:)' 8!1j!/!,X% R) 8!1[!Z!#P J%'\% (5G%+T2 *)' :%?:). ^%&81)- G? 38YG8i) &%1>() 8? +%=+:(1%- +\?8%- J8+ &KJ(5) J8 +% 9G?&(K? ""H C +% J87%1)- J8 8-:8 1)J)a function r = palindromo4(texto) delDerecho=char(); pos=1; for i=1:length(texto) if (~isspace(tex to(i))) delDerecho(pos)=texto(i); pos=pos+1; end end delReves=char(); for i=1:length(delDerecho) delReves(i)=delDerecho(length(delDerecho)-i+1); end r=delDerecho==delReves;

end

if (sum(r)==length(delDerecho)) r=1; else r=0; end

P(#)*+# NNXO 1&'*@*),)*+# '8- )+'*/& '8 -, P(#)*+# NN7 .,%, R(8 :8 '8;(8-;, (# N & (# \

6? 8+ :')W) 1%'&%J) 8? %1%'(++) 3'85G?:%1)- -( +% -G1% J8 +)- 8+818?:)- J8 / &)(?&(J8 &)? +% +)?5(:GJ J8+ ;8&:)' &)? 8+ :8V:) -(? 8-3%&()-a 8? &%-) %Q('1%:(;). 1)J(Q(&%1)- 8+ ;%+)' J8 / 3%'% YG8 ;%+5% "l 8? &%-) ?85%:(;). +) 1)J(Q(&%1):%1>(P? R^%-:% %^)'% 8'% G? ;8&:)' J8 G?)- C &8')-T 3%'% YG8 ;%+5% &8')2 ,? &%1>() %J(&()?%+. 3%'% YG8 8+ &KJ(5) %3%'8W&% 1U- &)13%&:). 8- 8+ YG8 -8 1G8-:'% % &)?:(?G%&(K?a function r = palindromo4(texto) delDerecho=char(); pos=1; for if i=1:length(tex to) (~isspace(tex to(i))) delDerecho(pos)=texto(i); pos=pos+1; end end delReves=char(); for i=1:length(delDerecho) delReves(i)=delDerecho(length(delDerecho)-i+1);

"//

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

end r= (sum(delDerecho==delReves)==length(delDerecho)); end P(#)*+# NNYO B(:$*$(*0&: ;,%*,: -h#8,: '8- @*#,- '8 -, P(#)*+# NNX .&% (#, :&-,

6? +% +\?8% %1%'(++% 8-:%1)- %-(5?%?J) % / 8+ '8-G+:%J) J8 &)13%'%' R``T +% -G1% J8+ ;8&:)' '8-G+:%?:8 J8. % -G ;8W. &)13%'%' +)- ;8&:)'8- 8!1j!/!,X% C 8!1[!Z!# &)? +% +)?5(:GJ J8+ ;8&:)' 8!1j!/!,X%a >U-(&%18?:8. ^%&81)- +) 1(-1) YG8 8? +%=+:(1%- +\?8%- J8 +% 9G?&(K? ""@. 38') 8? 18?)- 8-3%&()a

8!1j!/!,X% ' 8!1[!Z!# 8!1j!/!,X%>>8!1[!Z!#

N 8 ' "

U & 8 "

V ) & "

6 ? ) "

#6I&8!1j!/!,X%>>8!1[!Z!#' 1!$H7X&8!1j!/!,X%' / •

W ) ? "

7 & ) "

X 8 & "

Y ' 8 "

Z ' "

D D "

b)+G&(K? F2 M)? '8&G'-(;(J%J2

B%1>(P? 3)J81)- J8:8'1(?%' '8&G'-(;%18?:8 -( G? :8V:) 8- ) ?) G? 3%+\?J')1) 18J(%?:8 G?% QG?&(K? '8&G'-(;%a 8? 8Q8&:). G? :8V:) 8- G? 3%+\?J')1) -( -G 3'(18'% +8:'% 8- (5G%+ % +% =+:(1% C +) YG8 ^%C 8?:'8 18J(%- 8- G? 3%+\?J')1)2 6+ &%-) -8 >%-8 -8 J% &G%?J). 3%'% &)13%'%'. ?)- YG8J8 " ) ?(?5=? &%'U&:8'a function r = palindromoRecursivo(texto) auxiliar=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) auxiliar(pos)=texto(i); pos=pos+1; end end if length(auxiliar)<=1 r=1; else if auxiliar(1)==auxiliar(length(auxiliar)) auxiliar=auxiliar(1, 2:length(auxiliar)-1); r=palindromoRecursivo(auxiliar); else r=0; end end end P*/(%, X7O I8$8%0*#,)*+# %8)(%:*;, '8 -&: .,-h#'%&0&:

"/A

.+,+/)% 0%1% 2#+%1+

J98%)*)*& 6VO J- 0&#$8 ?# ;8)$&% 8: (# (#!P* :* :( .%*08%, 0*$,' 8: )%8)*8#$8< -, :8/(#', '8)%8)*8#$8 A< ,'80C:< 8- ;8)$&% 8: (# .,-h#'%&0&O J:)%*S*% (#, @(#)*+# R(8 '8$8%0*#8 :* 8- ;8)$&% 8 R(8 :8 .,:, )&0& .,%C08$%& 8: & #& (# 0&#$8O •

b)+G&(K? "2

I)- J)- ;8&:)'8- -(5G(8?:8- RJ8 +)?5(:GJ8- 3%' 8 (13%'T -)? . -85=? +% J8Q(?(&(K? %?:8'()'. 1)?:8-a

N %

U > N %

V & U >

6 J V &

W J 6 J

7 & W &

X > 7 >

Y % X %

$GC '8-G1(J%18?:8. 3)J'\%1)- 8-&'(>(' J8 +% -(5G(8?:8 Q)'1% +% 8V3'8-(K? 3%'% J8:8'1(?%' -( G? ;8&:)' Z 8- G? 1)?:8a !#0+1)$8/%I%&Z' C !#7+k/8!$+8%&I)7+8& ZP t\s'' C !#7+k/8!$+8%&+1[!Z!#&I )7+8&ZP tjs'''

6? +% 8V3'8-(K? %?:8'()'. !#0+1)$8/%I%&Z' J8;G8+;8 " -( 8+ ;8&:)' 3%-%J) 83%+\?J')1) C 0 8? &%-) &)?:'%'() RC 3G8J8 -8' &G%+YG(8'% J8 +%- &G%:') QG?&()?8YG8 ^81)- (13+818?:%J) 3%'% 8+ 3')>+81% %?:8'()'Tl !#7+k/8!$+8%&Z' J8;G8+;8 " -( 8+ ;8&:)'J8Z 8-:U )'J8?%J)' C 0 8? &%-) &)?:'%'()l I)7+8&ZP t\s' J8;G8+;8 +% 1(:%J (WYG(8'J% Zl I)7+8&ZP tjs' J8;G8+;8 +% 1(:%J J8'8&^% J8 Zl +1[!Z!#&Z' J8;G8+;8 8+ ;8&:)' Z %+ '8;P- R8+ 3'(18' 8+818?:) 8? 8+ =+:(1) +G5%'. 8+ -85G?J) 8? 8+ 38?=+:(1)p C 8+ =+:(1) 8? 8+ 3'(18')Ta +) YG8 8-:%1)- J(&(8?J) 8- YG8 Z 8- G? 1)?:8 -( 8- 3%+\?J')1). -( -G 1(:%J (WYG(8'J% 8-:U )'J8?%J% C -( -G 1(:%J J8'8&^%. %+ '8;P-. 8-:U :%1>(P? )'J8?%J%2 *)J81)- :'%JG&(' +% 8V3'8-(K? %?:8'()' J('8&:%18?:8 % G?% QG?&(K? $XBIX[a function r = monte(v) r=palindromo4(v) && estaOrdenado(mitad(v, 'I')) && estaOrdenado(alReves(mitad(v, 'D'))); end P(#)*+# NNZO I8$8%0*#,)*+# '8 :* (# ;8)$&% 8: & #& (# 0&#$8 08'*,#$8 -, ) (#)*+# '8 @(#)*:

X^)'% Q%+:%. 8;(J8?:818?:8. (13+818?:%' +%- QG?&()?8- !#7+k/8!$+8%P I)7+8 C +1[!Z!#F I% QG?&(K? 3%'% J8:8'1(?%' -( 8- 3%+\?J')1) 8- +% QG?&(K? J+1)$8/%I%3 R9G?&(K? ""LT2 I% QG?&(K? !#7+k/8!$+8% 8- 1GC -8?&(++%a '8&)''81)- 8+ ;8&:)' J8-J8 +% 3)-(&(K? / ^%-:% 8+ Q(?%+a -(. 8? %+5=? 1)18?:). 8?&)?:'%1)- YG8 8+ ;%+)' 8? +% 3)-(&(K? )VA 818?)' YG8 8+ ;%+)' J8 +% 3)-(&(K? ). 8?:)?&8- J8;)+;81)- G? &8') 18J(%?:8 G?% -%+(J% (?&)?J(&()?%+ R;P%-8 9G?&(K? ""E. ?=18') ""DTl -( ++85%1)- %+ Q(?%+ J8+ ;8&:)'. 8?:)?&8- 8- 3)'YG8 8+ ;8&:)' -\ 8-:U )'J8?%J) C J8;)+;81)- G? "a

"/E

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r = estaOrdenado(v) r=1; for i=2:length(v) if v(i)
I% QG?&(K? I)7+8 :)1% J)- 3%'U18:')-a 8+ ;8&:)' J8+ YG8 YG8'81)- 8V:'%8' +% 1(:%J C G? &%'U&:8' YG8 '83'8-8?:% YGP 1(:%J YG8'81)- 8V:'%8'a +% (WYG(8'J% RxSƒT ) +% J8'8&^% RxNƒTa function r = mitad(v, lado) if mod(length(v), 2)==0 pararEn=length(v)/2; else pararEn=floor(length(v)/2); end if lado=='D' pararEn=length(v)-pararEn+1; end r=[]; if lado=='I' for i=1:pararEn r=[r v(i)]; end else for i=length(v):-1:pararEn r=[v(i) r]; end end end P(#)*+# NUNO J=$%,))*+# '8 -, 0*$,' *QR(*8%', & '8%8)F, '8 (# ;8)$&%

9(?%+18?:8. +% QG?&(K? +1[!Z!# &)+)&% +)- 8+818?:)- J8 G? ;8&:)'. 8? )'J8? (?;8'-). 8? ):') ;8&:)'a function r = alReves(v) r=[]; for i=length(v):-1:1 r(length(v)-i+1)=v(i); end end P(#)*+# NUUO D&-&),)*+#< ,- %8;[:< '8 -&: 8-808#$&: '8 (# ;8)$&%

N8 8-:8 1)J). +% 878&G&(K? J8 +% QG?&(K? J% +)- -(5G(8?:8- '8-G+:%J)- 3%'% +)87813+)- YG8 -8 1G8-:'%?a

"/F

.+,+/)% 0%1% 2#+%1+

dd ;`s" / A E A /t † <) 8- G? 3%+\?J')1)

dd ;`s" / " E A /t † <) 8-:U )'J8?%J% +% 1(:%J (WYG(8'J%

;` ;` "

/

A

E

A

/ "

/

"

E

A

/

dd 1)?:8R;T dd 1)?:8R;T %?- ` %?- ` 0

0 dd ;`s" / A E A Ft † <) 8- G? 3%+\?J')1) C dd ;`s" / A E A / "t † 6- G? 1)?:8 ?) 8-:U )'J8?%J% +% 1(:%J J8'8&^% ;` ;` " / A E A / " " / A E A F dd 1)?:8R;T dd 1)?:8R;T %?- ` %?- ` " 0 P*/(%, XXO 2-/(#&: 8980.-&: '8 898)()*+# '8 -, @(#)*+# (#!P* cP(#)*+# NNZ< .C/*#, NU6d •

b)+G&(K? /2

b( )>-8';%1)- +)- 87813+)- %?:8'()'8-. ?)- J%1)- &G8?:% J8 YG8. 8? '8%+(J%J. 3%'% J8:8'1(?%' -( G? ;8&:)' 8- G? 1)?:8 >%-:% &)? &)13')>%' -( 8- G? 3%+\?J')1) C -( 8-:U )'J8?%J% -G 1(:%J (WYG(8'J% 3G8-. -( P-:% 8-:U )'J8?%J% C :)J) 8+ ;8&:)' 8- G? 3%+\?J')1). Q)'W)-%18?:8 +% 1(:%J J8'8&^% 8-:%'U )'J8?%J% J8 1%?8'% J8&'8&(8?:82 6- J8&('. YG8 % +% &)?7G?&(K? J8 QG?&()?8- YG8 8-&'(>\%1)- 8? +% 9G?&(K? ""D R3U5(?% "/ET +8 3)J81)- YG(:%' +% =+:(1% ++%1%J%a function r = monte(v) r=palindromo4(v) && estaOrdenado(mitad(v, 'I')); % && estaOrdenado(alReves(mitad(v, 'D'))); end P(#)*+# NUVO H& 8: #8)8:,%*& )&0.%&S,% 8- &%'8# 8# -, 0*$,' '8%8)F, •

b)+G&(K? A2

bG3)?5%1)- %^)'% YG8 YG8'81)- -%>8' +)- 1):(;)- 3)' +)- YG8 8+ ;8&:)' ?) 8- G? 1)?:8a 3G8J8 -8' YG8 ?) -8% G? 3%+\?J')1) ) -G- J)- 1(:%J8- ?) 8-:P? )'J8?%J%-2 6? 8-:8 &%-). J8>8'\%1)- %i%J(' %+5G?% (?-:'G&&(K? 3%'% YG8 -8 1G8-:'8? +)&)''8-3)?J(8?:8- 18?-%78-2 I%- QG?&()?8- J+1)$8/%I%3 RYG8 8- +% YG8 G:(+(W%1)-T C !#7+k/8!$+8% YG8J%? &)1) -(5G8a

"/H

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r = palindromo4(texto) delDerecho=char(); pos=1; for i=1:length(texto) if (~isspace(texto(i))) delDerecho(pos)=texto(i); pos=pos+1; end end delReves=char(); for i=1:length(delDerecho) delReves(i)=delDerecho(length(delDerecho)-i+1); end r= (sum(delDerecho==delReves)==length(delDerecho)); if r==0 disp('No es un monte porque:'); disp('-No es un palíndromo'); end end function r = estaOrdenado(v) r=1; for i=2:length(v) if v(i)
X^)'%. %+ 878&G:%' +% QG?&(K? I%$7! R9G?&(K? "/AT &)? 8+ ;8&:)' Z>bA D A 3 C Dc. 8-38'%1)- YG8 ?)- J(5% YG8 ?) 8- G? 1)?:8 3)'YG8 ?) 8- G? 3%+\?J')1) C %J81U?) 8-:U )'J8?%J)2 b(? 81>%'5). %+ 878&G:%'+% &)? 8-8 87813+). 8+ '8-G+:%J) 8-a dd ;`s" / " E A /t ;` "

/

"

E

A

/

dd 1)?:8R;T <) 8- G? 1)?:8 3)'YG8a f<) 8- G? 3%+\?J')1) %?- ` 0 P*/(%, XY

"/@

.+,+/)% 0%1% 2#+%1+

M)1) ;81)-. -8 ?)- J% -K+) G?) J8 +)- J)- 18?-%78- YG8 8-38'U>%1)-2 6-:) -G&8J8 3)'YG8. 8? +% 9G?&(K? "/A. +%- ++%1%J%- % J+1)$8/%I%3 C % !#7+k/8!$+8% 8-:U? -83%'%J%- &)? ‡‡a %+ G-%' 8-:)- J)- -\1>)+)- 3%'% 8?+%W%' J)- &)?J(&()?8-. $XBIX[ J8:(8?8 +% 878&G&(K? 8? 8+ 1)18?:) 8? YG8 8?&G8?:'% G?% Q%+-%2 6? 8+ 87813+) J8 Z>bA D C A D Cc. 3G8-:) YG8 8+ ;8&:)' ?) 8- G? 3%+\?J')1). C% ?) -8 8;%+=% +% -85G?J% QG?&(K?. YG8 J8:8'1(?% 8+ )'J8?2 *%'% YG8 -8 8;%+=8? :)J%- +%- &)?J(&()?8- J8>81)- G-%' G? -)+) ‡a function r = monte(v) end r=palindromo4(v) & estaOrdenado(mitad(v, 'I')); P(#)*+# NUWO D&# (# :&-& 4(9*$.4!7):*80.%8 :8 8;,-T,# ,0S,: @(#)*:

M)1) -8 ;8. +)- '8-G+:%J)- -)? J(Q8'8?:8-a .,-*#'%&0&6c;d qq 8:$,M%'8#,'&c0*$,'c;< r"rdd_

.,-*#'%&0&6c;d q 8:$,M%'8#,'&c0*$,'c;< r"rdd_

dd ;

dd ;

;`

;`

"

/

"

E

A

/

dd 1)?:8R;T <) 8- G? 1)?:8 3)'YG8a f<) 8- G? 3%+\?J')1) %?- `

"

/

"

E

A

/

dd 1)?:8R;T <) 8- G? 1)?:8 3)'YG8a f<) 8- G? 3%+\?J')1) f<) 8-:U )'J8?%J) %?- `

0 0 P*/(%, XZO 4&: %8:(-$,'&: .(8'8# :8% '*@8%8#$8: :8/T# (:80&: q & qq

"/L

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 66O DC-)(-& '8 .* csd 18'*,#$8 8- ,-/&%*$0& '8 1&#$8),%-& 8: .&:*S-8 ),-)(-,% 8- ;,-&% ,.%&=*0,'& '8 sO >,%$*0&: '8 (#, )*%)(#@8%8#)*, '8 %,'*& N *#:)%*$, 8# (# )(,'%,'& '8 -,'& UO >,%, ,.%&=*0,% 8- ;,-&% '8 s< -,#Q,0&: (# #T08%& /%,#'8 '8 ',%'&: ,-8,$&%*,08#$8 '8#$%& '8- )(,'%,'&O 2- $8%0*#,% 8- .%&)8:&< -, .%&.&%)*+# 8#$%8 8- #T08%& '8 ',%'&: '8#$%& '8- )h%)(-& A 8- #T08%& '8 ',%'&: $&$,-8: :8%C ,.%&=*0,',08#$8 */(,- , -, %,-)*+# 8#$%8 -, :(.8%@*)*8 '8- )h%)(-& A -, :(.8%@*)*8 '8- )(,'%,'&O >(8:$& R(8 )&#&)80&: -, :(.8%@*)*8 '8- )(,'%,'& cE47# + E47# ' =+= ' @0 A -, 8=.%8:*+# .,%, ),-)(-,% -, '8- )h%)(-& cVW$472#='VW-=d< .&'80&: '8:.89,% (# ;,-&% ,.%&=*0,'& .,%, sO Scírculo

!

Scuadrado # "

!

"

dardostotales

dardoscírculo

"

dardostotales

4 " #

dardoscírculo

!

!

4

dardoscírculo dardostotales

P*/(%, Y\O I8$8%0*#,)*+# '8- ;,-&% ,.%&=*0,'& '8 s

B8 .*'8 -, 8:)%*$(%, '8 (#, @(#)*+# 8# 123425 R(8 $&08 )&0& .,%C08$%& 8#T08%& '8 ',%'&: R(8 :8 '8:8, -,#Q,% c!d A '8;(8-;, 8- ;,-&% ),-)(-,'& .,%, sO •

b)+G&(K? "2

M)?)&(J) 8+ ;%+)' J8 $. 18J(%?:8 G? >G&+8 E%/ )>AG$ -(1G+%'81)- 8+ +%?W%1(8?:) J8 +)- $ J%'J)-2 X-G1(8?J) YG8 8+ &8?:') J8+ &\'&G+) RC J8+ &G%J'%J)T 8-:U? 8? +%&))'J8?%J%- &RP R'P &%J% J%'J) &%8'U 8? J)- &))'J8?%J%- %+8%:)'(%- &"P W'. -(8?J) &%J% ;%+)' J8 " C J8 W G? ?=18') 8?:'8 f" C k"2 *%'% J8:8'1(?%' -( G? J%'J) ^% &%\J) J8?:') J8+ &\'&G+) G:(+(W%'81)- 8+ :8)'81% J8 3(:U5)'%-a -( +% -G1% J8 +)&G%J'%J)- J8 " C J8 W 8- 18?)' YG8 +% ^(3):8?G-% RYG8 ;%+8 "T. 8+ J%'J) 8-:U J8?:'). C QG8'% 8? ):') &%-)2 I% -(5G(8?:8 QG?&(K? 8- G?% 3)-(>+8 -)+G&(K?a 8? 8++%. +%- &))'J8?%J%- " 8 W J8 &%J% J%'J) -8 58?8'%? 8? +%- J)- +\?8%- 1%'&%J%- 8? %1%'(++) &)? +% QG?&(K? /+$8&'. YG8 58?8'%? G? ?=18') %+8%:)'() 8?:'8 0 C "l &)1) -8 )>-8';%. 1G+:(3+(&%1)- " 3)' #)H$%u 8 W 3)' #)H$%h. YG8 -(';8? 3%'% J8:8'1(?%' -( +% &))'J8?%J% '8-38&:(;% 83)-(:(;% ) ?85%:(;% R8+ -(5?) -8 J8:8'1(?% 8? QG?&(K? J8 YG8 ):') ?=18') %+8%:)'() -8% ) ?) 1%C)' YG8 02FTl % &)?:(?G%&(K? &)13')>%1)- -( +% -G1% J8 -G- &G%J'%J)J8 " 8 W 8- 18?)' ) (5G%+ % " R)E 1%'&%J) 8? ;8'J8T. &%-) 8? 8+ YG8 (?&'818?:%1)+% ;%'(%>+8 $8. YG8 '83'8-8?:% 8+ ?=18') J8 J(-3%')- YG8 ^%? &%\J) 8!$7/% J8+ &\'&G+)2 X+ Q(?%+(W%' 8+ >G&+8. &%+&G+%1)- 8+ ;%+)' %3')V(1%J) J8 ] 18J(%?:8 +% 8V3'8-(K? J8 +% 9(5G'% L0a

"/D

.+,+/)% 0%1% 2#+%1+

function result=piMontecarlo(n) nd=0; result=0; for i=1:1:n if rand()<=0.5 signoX=-1; else signoX=+1; end if rand()<=0.5 signoY=-1; else signoY=+1; end x=rand()*signoX; y=rand()*signoY; if (x^2+y^2<=1) nd=nd+1; end end result=4*nd/n; end P(#)*+# NU7O DC-)(-& ,.%&=*0,'& '8 s 08'*,#$8 8- 0[$&'& '8 1&#$8),%-&

N)- 878&G&()?8- J(-:(?:%- J8 +% QG?&(K? 3%'% $>ARRFRRR ?)- J%? +)- -(5G(8?:8'8-G+:%J)-a dd 3($)?:8&%'+)R"00000T

dd 3($)?:8&%'+)R"00000T

%?- `

%?- ` A2"EA"H

A2"EEAH

P*/(%, YNO I&: ;,-&%8: '8 s S,:$,#$8 ,.%&=*0,'&: ,- ;,-&% %8,•

b)+G&(K? /2

*G8-:) YG8. %+ J8:8'1(?%' -( 8+ J%'J) 8-:U J8?:') ) QG8'% 8+8;%1)- %+ &G%J'%J) +%J)- &))'J8?%J%- J8+ J%'J) R+\?8%- 8? ;8'J8 J8 +% QG?&(K? %?:8'()'T. ?) 8- 3'8&(-) 58?8'%' 8+ -(5?). 3G8- 8? +% &)13%'%&(K? +% -G1% ?) -8'U ?G?&% G? ?=18') ?85%:(;)2 *)' :%?:). 8+ &KJ(5) 3G8J8 -(13+(Q(&%'-8 -(? 38'J8' 8Q8&:(;(J%Ja

"A0

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function result=piMontecarlo2(n) nd=0; result=0; for i=1:1:n x=rand(); y=rand(); if (x^2+y^2<=1) nd=nd+1; end end result=4*nd/n; end P(#)*+# NUXO 4, P(#)*+# NU7 .(8'8 :*0.-*@*),%:8 A #& /8#8%,% :*/#&: .,%, -,: )&&%'8#,',: •

b)+G&(K? A2

XJ81U- J8 &%+&G+%' 8+ ;%+)' %3')V(1%J) J8 ]. 3)J81)- ^%&8' YG8 $XBIX[ ?)J(>G78 8+ &\'&G+) J8 '%J() " C +)- 3G?:)- YG8 '83'8-8?:%? +)- +G5%'8- 8? YG8 ^%? &%\J) +)- J%'J)-2 *%'% 8++). G-%'81)- +% QG?&(K? J1%7&"P W'. YG8 J(>G7% G? 3G?:) 8? +%- &))'J8?%J%- YG8 -8 3%-%? &)1) 3%'U18:'). C G?% -8'(8 J8 (?-:'G&&()?8- 3%'% YG8 -8 J(>G78 8+ &\'&G+)2 $)J(Q(&%1)- 8+ &KJ(5) J8 +% 3'(18'% -)+G&(K? YG8 ^81)J%J) % 8-:8 878'&(&() R9G?&(K? "/H. 3U5(?% "A0T2 function result=piMontecarlo3(n) nd=0; result=0; for i=1:1:n if rand()<=0.5 signoX=-1; else signoX=+1; end if rand()<=0.5 signoY=-1; else signoY=+1; end x=rand()*signoX; y=rand()*signoY; plot(x, y); hold on; if (x^2+y^2<=1 ) nd=nd+1; end end t=0:pi/30:2*pi; x=cos(t); y=sin(t); plot(x, y, 'red'); result=4*nd/n; end P(#)*+# NUYO DC-)(-& ,.%&=*0,'& '8 s A :( %8.%8:8#$,)*+# /%C@*),

"A"

.+,+/)% 0%1% 2#+%1+

6? 8+ &KJ(5) %?:8'() -8 1%'&%? 8? %1%'(++) +%- (?-:'G&&()?8- J1%7 C X%18 %$F ˆ-:% 8?8&8-%'(% 3%'% YG8 :)J)- +)- 3G?:)- -8 3(?:8? 8? +% 1(-1% ;8?:%?%2 6? %WG+ %3%'8&8? :'8- +\?8%- YG8 G:(+(W%1)- 3%'% J(>G7%' G? &\'&G+) ')7) J8 '%J() "a 8? +% 3'(18'% &'8%1)- G? ;8&:)' 7 &)? :)J)- +)- ;%+)'8- J8-J8 0 ^%-:% /] (?&'818?:%?J) J8 ]~A0 8? ]~A02 6? +% -85G?J% &'8%1)- J)- ;8&:)'8- " 8 W &)?. '8-38&:(;%18?:8. 8+ &)-8?) C 8+ -8?) J8 &%J% ;%+)' %+1%&8?%J) 8? 7F 9(?%+18?:8. 8? +% :8'&8'% J(>G7%1)-. 8? ')7) R/!8' +)- ;8&:)'8- YG8 %&%>%1)- J8 &%+&G+%' C YG8 :8?81)- %+1%&8?%J)- 8? " 8 WF 6+ '8-G+:%J) 3)' &)?-)+% 8-a dd 3($)?:8&%'+)AR"00000T %?- ` A2"EHAH P*/(%, YU

w 8+ '8-G+:%J) 8? +% ;8?:%?% 5'UQ(&%. 8? +% YG8 -8 %3'8&(%? +)- &(8? 1(+ 3G?:)- C +% &('&G?Q8'8?&(% 8? ')7) 8-a

P*/(%, YVO L8.%8:8#$,)*+# '8 -, )*%)(#@8%8#)*, /&#*&0[$%*), A -&: N\\O\\\ ',%'&: -,#Q,'&:

"A/

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 6WO 4, :,-*', '8- -,S8%*#$& I*:.P&: '8 (#, 0,$%*Q '8 !+( cR(8 %8.%8:8#$, (# -,S8%*#$&d 8# -, R(8 F,A ;,-&%8: )8%& A (#&O 4&: ;,-&%8: (#& %8.%8:8#$,# 0(%&: A -&: ;,-&%8: )8%& %8.%8:8#$,# Q&#,: .&% -,: R(8 .(8'8 ),0*#,%:8O B8 .*'8 8:)%*S*% (#, @(#)*+# 8# 123425 R(8 $&08 )&0& .,%C08$%&: (#, 0,$%*Q R(8 %8.%8:8#$8 8-,S8%*#$&< -,: )&&%'8#,',: '8 -, 8#$%,', A -, '8 -, :,-*',< A R(8 .8%0*$,< 08'*,#$8 0&;*0*8#$&: ,-8,$&%*&: '8 (# &S98$&< --8/,% '8:'8 ,R(8--, F,:$, [:$,O 4, :*/(*8#$8(# 0,$%*Q c'8 -,'8R(8 :8 F,# &0*$*'& -&: )8%&: .&% )-,%*','d %8.%8:8#$, -,S8%*#$& N\=N\< )&# -, 8#$%,', 8# cN\< N\d A -, :,-*', 8# cN
b " " " " " "

" " " " " " " " " " "

" " " " " " " " "

N\

•

" " " " "

6

b)+G&(K? "2

6+ )>78:) 1K;(+ J(-3)?J'U 8? &%J% 1)18?:) J8 G?%- &))'J8?%J%-. YG8 &)(?&(J('U? %+ 3'(?&(3() &)? +%- J8 +% 8?:'%J% C YG8 -8 ('U? %&:G%+(W%?J) 1(8?:'%- ?) &)(?&(J%? &)? +%- J8 +% -%+(J%2 M%J% 1);(1(8?:) J8+ 1K;(+ +) 58?8'%'81)- &)? G? ?=18') %+8%:)'() YG8 '83'8-8?:%'U +% J('8&&(K? 8? +% YG8 8+ )>78:) -8 3G8J% 1);8'a %''(>%. %>%7). J8'8&^% 8 (WYG(8'J%2 b(. 3)' 87813+). +% J('8&&(K? 8- ^%&(% %''(>%. 8+ )>78:) ?) 8-:U 8? +% Q(+% " C +% &%-(++% J8 %''(>% 8-:U +(>'8. 8?:)?&8- %&:G%+(W%1)- +% &))'J8?%J% %&:G%+ J8+ )>78:) J8&'818?:%?J) 8? " -G Q(+%2 *')&8J8'81)- J8 8-:% 1%?8'% 3%'% +%- &G%:') J('8&&()?8-2 6? +% -(5G(8?:8 QG?&(K?. 3%-%1)- &)1) 3%'U18:')- 8+ +%>8'(?:) R8? Q)'1% J8 G?% 1%:'(W J8 G?)- C &8')-T C +%- &))'J8?%J%- J8 8?:'%J% C -%+(J% R&)1) -8?J);8&:)'8- &)? J)- &)13)?8?:8-T2 X+ 8?:'%' % +% QG?&(K? 1)-:'%1)- +)- ;%+)'8- J8 +)3%'U18:')- C 3)?81)- 8+ &')?K18:') RQG?&(K? 7),T2 6? I%Z)I)!$7%# ('81)5G%'J%?J) :)J)- +)- 1);(1(8?:)- '8%+(W%J)- 3)' 8+ )>78:). &GC% &))'J8?%J% %&:G%+ +% 5G%'J%1)-. 8? &%J% 1)18?:). 8? +% ;%'(%>+8 ,%%/8!$+8+9,76+1F 6?:)?&8-. 1(8?:'%- +% &))'J8?%J% J8+ )>78:) ?) &)(?&(J% &)? +% &))'J8?%J% J8 +% -%+(J%. 58?8'%1)- G? ?=18') %+8%:)'() 8?:'8 0 C " R18J(%?:8 /+$8&'T YG8 %+1%&8?%1)8? +% ;%'(%>+8 8)/!,,)%$2 6? QG?&(K? J8 -G ;%+)'. &)13')>%1)- -( 8-:U J8?:') J8 +)+\1(:8- J8+ +%>8'(?:). &%+&G+%1)- +% ?G8;% &))'J8?%J% RYG8 5G%'J%1)- 8? #)H6)!$7!T -G1%?J) ) '8-:%?J) G?% Q(+% ) &)+G1?% % +% ,%%/8!$+8+9,76+1F B'%^%>8' &%+&G+%J) +% ?G8;% 3)-(&(K?. -( P-:% ?) &)(?&(J8 &)? G? 1G') R8- J8&('. +% "AA

.+,+/)% 0%1% 2#+%1+

&%-(++% 8? 8+ +%>8'(?:) 8- &8')T. %&:G%+(W%1)- +% ,%%/8!$+8+9,76+1P %+1%&8?%1)- +% ?G8;% 3)-(&(K? 8? 8+ ;8&:)' J8 I%Z)I)!$7%# C 3%'%1)- 8+ &')?K18:') 3%'% -%>8' &GU?:) -8 ^% :%'J%J) 8? 8?&)?:'%' +% -%+(J%2 function [movimientos] = laberinto1( laberinto, entrada, salida ) entrada salida laberinto tic movimientos=[]; coordenadaActual=entrada; movimientos= [movimientos ; coordenadaAc tual]; while (coordenadaA ctual(1)~=sa lida(1) || coordenadaActual(2)~=salida(2)) direccion=rand(); % <=0.25: arriba; <=0.5: derecha; % <=0.75: abajo; <=1: izquierda if direccion<=0.25 & coordenadaActual(1)>1 siguiente(1)=coordenadaActual(1)-1; siguiente(2)=coordenadaActual(2); elseif direccion<= 0.5 & coordenadaA ctual(2)1 siguiente(1)=coordenadaActual(1); end siguiente(2)=coordenadaActual(2)-1; if laberinto(siguiente(1), siguiente(2))==0 coordenadaActual=siguiente; movimientos= [movimientos ; coordenadaA ctual]; end end toc end P(#)*+# NUZO 5T:R(8', ,-8,$&%*, '8- ),0*#& '8 :,-*', '8 (# -,S8%*#$&

b( 878&G:%1)- +% QG?&(K? &)? +% -(5G(8?:8 +\?8% J8 &)1%?J)a 8)#J&bvq%16,)f$ +1,+$^+8+ !$ v )$7D#7/&1!$H7X&1+*!/)$7%A&1+ *P !$7P #+1)8+''' v I%Z)I)!$7%#vc'

p8+ '8-G+:%J) 8-a

"AE

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

dd J(-3Rsyb)+G&(K? %+&%?W%J% 8? y (?:/-:'R+8?5:^R+%>8'(?:)"R+%>. 8?:. -%+(J%TTT y 1);(1(8?:)-ytT 8?:'%J% ` "0 "0 -%+(J% ` " " +%>8'(?:) ` 0 0 0 0 0 0 0 " 0 0

" " " " " " 0 " 0 0

0 0 0 0 0 0 0 " 0 0

0 " " " 0 " " " 0 0

0 " 0 0 0 " 0 0 0 0

0 " 0 0 0 " 0 0 0 0

" " " " 0 " 0 0 0 0

0 0 0 " 0 0 0 0 0 0

0 0 0 " 0 " " " " "

0 0 0 0 0 0 0 0 0 0

6+%3-8J :(18 (- 020/"D"A -8&)?J-2 b)+G&(K? P*/(%, Y6 %+&%?W%J% 8? """L 1);(1(8?:)6+ &)1%?J) 8)#J YG8 8-&'(>(1)- 8? +% &)?-)+% J8 $XBIX[ &)13)?8 G? ;8&:)' J8 :'8- &%J8?%- J8 &%'%&:8'8-a +% 3'(18'% 8- 8+ :8V:) q%16,)f$ +1,+$^+8+ !$l +% -85G?J%. +% :'%?-Q)'1%&(K? % :8V:) J8 +% +)?5(:GJ J8+ '8-G+:%J) J8 878&G:%' +% QG?&(K? 1+*!/)$7%A &)? +)- ;%+)'8- YG8 3%-%1)- &)1) 3%'U18:')-l +% :8'&8'%. +% &%J8?% I%Z)I)!$7%#F •

b)+G&(K? /2

bG3)?5%1)- YG8 -8 J8-8% YG8 +% -%+(J% J8 +% QG?&(K? 1G8-:'8 +%- &%-(++%- YG8 ^% '8&)''(J) 8+ )>78:) 3%'% ++85%' J8-J8 +% 8?:'%J% % +% -%+(J%2 6? 8-:8 &%-). G?% ;8W &%+&G+%J)- +)- I%Z)I)!$7%# ?8&8-%'()-. J8>81)- '8&)''8' 8-:8 ;8&:)'. :)1%' &%J% G?% J8 -G- &))'J8?%J%- C &)+)&%'. 8? +%- 3)-(&()?8- YG8 (?J(YG8. %+5=? ;%+)' R8+ /. 3)' 87813+)T -)>'8 8+ +%>8'(?:). J8 1%?8'% YG8 -8 '83'8-8?:8? +%- &%-(++%- ;(-(:%J%-2 6-:) 8- +) YG8 ^%&81)- 8? +% 9G?&(K? "A0 &)? 8+ >G&+8 %i%J(J) %+ Q(?%+a '8&)''81)8+ ;8&:)' J8 1);(1(8?:)- RQ)'1%J) % -G ;8W 3)' ;8&:)'8- J8 J)- &))'J8?%J%-T C. 3%'% &%J% &))'J8?%J% &)?:8?(J% 8? P+. ;%1)- % +% 3)-(&(K? &)''8-3)?J(8?:8 8? 8+ 1+*!/)$7% C &)+)&%1)- 8+ ;%+)' /2 9(?%+18?:8. %-(5?%1)- 8+ ?G8;) +%>8'(?:) % +% ;%'(%>+8 ,+I)$%. YG8 8- +% ;%'(%>+8 YG8 J8;G8+;8 8+ '8-G+:%J) J8 +% QG?&(K?2

"AF

.+,+/)% 0%1% 2#+%1+

function camino = laberinto2( laberint o, entrada, salida ) entrada salida laberinto tic movimientos=[]; coordenadaActual=entrada; movimientos= [movimientos ; coordenadaA ctual]; while (coordenadaA ctual(1)~=sa lida(1) || coordenadaActual(2)~=salida(2)) direccion=rand(); % <=0.25: arriba; <=0.5: derecha; % <=0.75: abajo; <=1: izquierda if direccion<=0.25 & coordenadaActual(1)>1 siguiente(1)=coordenadaActual(1)-1; siguiente(2)=coordenadaActual(2); elseif direccion<= 0.5 & coordenadaA ctual(2)1 siguiente(1)=coordenadaActual(1); siguiente(2)=coordenadaActual(2)-1; end if laberinto(siguiente(1), siguiente(2))==0 coordenadaActual=siguiente; movimientos= [movimientos ; coordenadaA ctual]; end end for i=1:length(m ovimientos() ) casilla=movimientos(i, :); laberinto(ca silla(1), casilla(2))= 2; end camino=laberinto; toc end P(#)*+# NV\O 1&'*@*),)*+# '8 -, P(#)*+# NUZ .,%, R(8 :8 0(8:$%8# -,: ),:*--,: ;*:*$,',:

*%'% G?% J8:8'1(?%J% 878&G&(K?. 8+ '8-G+:%J) Q(?%+ 8- 8+ -(5G(8?:8a %?- ` / " / " / "

/ / /

/ " "

/ " 0

/ " 0

" " "

0 0 /

0 / /

0 0 /

/ / / / " / /

/ / / / " / /

" / " " " / /

/ / " / / / /

/ / " / / / /

" / " / / / 0

" / / / / / 0

" / " " " " "

/ / / / / / /

" " " / " / /

P*/(%, YWO B8 F,# 0,%),'& -,: ),:*--,: ;*:*$,',: .&% -, P(#)*+# NV\

"AH

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

J98%)*)*& 67O 5T:R(8', S*#,%*, I*:.P&: '8 (# ;8)$&% &%'8#,'& '8 8#$8%&: '8 -&#/*$(' !O B8 .*'8 '*:8e,% (#, @(#)*+# R(8 $&08 )&0& .,%C08$%& 8- ;8)$&% 8 A (# ;,-&% + A '8;(8-;,< 08'*,#$8 (#, ST:R(8', S*#,%*,< -, .&:*)*+# 8# R(8 :8 8#)(8#$%, 8- ;,-&% + '8#$%& '8 8< & EN 8# ),:& '8 R(8 #& 8:$[O •

b)+G&(K? "2

bG3)?5%1)- YG8 :8?81)- 8+ -(5G(8?:8 ;8&:)' )'J8?%J)a

N U V 6 W 7 X Y Z N\ / / E H @ L L D "F "L bG3)?5%1)- YG8 J8-8%1)- >G-&%' 8+ ?=18') E J8?:') J8 P+ R) -8%. ">3T2 $8J(%?:8 G?% >=-YG8J% >(?%'(%. &)13%'%1)- 8+ 8+818?:) >G-&%J) &)? 8+ YG8 -8 8?&G8?:'% 8? +% 1(:%J J8+ ;8&:)' R8+ F{. YG8 8- G? @Ta &)1) "iN. >G-&%1)- %^)'% 8? +% 1(:%J (?Q8'()' R8- J8&('. 8?:'8 +%- 3)-(&()?8- " % ET C &)13%'%1)- &)? 8+ 8+818?:) YG8 8-:U 8? +% 1(:%J R8+ /{. YG8 8- G? /Ta &)1) Di". >G-&%1)- 8?:'8 8+ 8+818?:) A{ C 8+ E{2 M):(?G%1)- %-\ ^%-:% YG8 +) 8?&)?:'81)- ) ^%-:% YG8 ++85G81)- % +% &)?&+G-(K? J8 YG8 8+ ;%+)' " ?) -8 8?&G8?:'% 8? 8+ ;8&:)'2 ;`

6? +% -(5G(8?:8 QG?&(K? J8;)+;8'81)- 8+ '8-G+:%J) 8? +% ;%'(%>+8 /. YG8 (?(&%+(W%1)% f". 6? 1) C 1# 5G%'J%1)- +)- +\1(:8- (?Q8'()' C -G38'()' 8? +)- YG8 +% >=-YG8J% 8-:U %&):%J%2 $(8?:'%- ?) 8?&)?:'81)- 8+ ;%+)' R) -8%. 1(8?:'%- />@AT C +)- +\1(:8(?Q8'()' C -G38'()' ?) -8 &'G&8? R1)i>1#T. ;%1)- &)13%'%?J) 8+ 8+818?:) YG8 8?&)?:'%1)- 8? +% I)7+8a -( 8+ ;%+)' -(:G%J) 8? +% I)7+8 8- ". %&:G%+(W%1)- 8+ ;%+)' / R&)? +) YG8 -%+J'81)- J8+ >G&+8Tl -( 8- 18?)'. %&:G%+(W%1)- 8+ +\1(:8 (?Q8'()' 1). J8 3G8-%>81)- YG8 " ?) 8-:%'U % +% (WYG(8'J% J8 P+l -( 8- 1%C)'. %&:G%+(W%1)- 8+ +\1(:8 -G38'()' 1# 3)'YG8 " ?) 8-:%'U % +% J8'8&^%2

function r = busquedaBinaria1(v, x) r=-1; li=1; ls=length(v); while r==-1 && li<=ls mitad=floor((ls+li)/2); if v(mitad)==x r=mitad; elseif v(mitad)
b( YG8'81)- &)?)&8' 8? &GU?:%- (:8'%&()?8- -8 8?&G8?:'% 8+ ;%+)'. %i%J(1)- %+ &KJ(5) %?:8'()' +%- (?-:'G&&()?8- '8-%+:%J%- 8? %1%'(++)a

"A@

.+,+/)% 0%1% 2#+%1+

function r = busquedaBinaria1(v, x) r=-1; li=1; ls=length(v); iteraciones=0; while r==-1 && li<=ls mitad=floor((ls+li)/2); if v(mitad)==x r=mitad; elseif v(mitad)
6? +% -(5G(8?:8 Q(5G'% >G-&%1)-. 8? 8+ +%J) (WYG(8'J). 8+ ?=18') H 8?:'8 +)?=18')- " % "00l 8? 8+ J8'8&^). >G-&%1)- 8+ /00 8? 8+ 1(-1) '%?5) J8 ;%+)'8-a dd W`"a"00 † S?(&(%+(W%1)- 8+ ;8&:)' ^ &)? +)- ?%:G'%+8- J8+ " %+ "00 W` M)+G1?- " :^')G5^ /E " / A Ep M)+G1?- D@ :^')G5^ "00 D@ DL DD "00 dd >G-YG8J%[(?%'(%"RW. HT O%+)' 8?&)?:'%J) 8? E (:8'%&()?8-

dd >G-YG8J%[(?%'(%"RW. /00T O%+)' 8?&)?:'%J) 8? @ (:8'%&()?8-

%?- `

%?- `

H

f"

P*/(%, Y7O I&: %8:(-$,'&: ,- 898)($,% -, P(#)*+# NVU c:8 8#)(8#$%, 8# -, *QR(*8%',< A #& 8# -, '8%8)F,d •

b)+G&(K? /2

X &)?:(?G%&(K? J%1)- G?% ;8'-(K? '8&G'-(;% J8 +% QG?&(K? J8 >=-YG8J% >(?%'(% 38'). % J(Q8'8?&(% J8 +% %?:8'()'. ?) J8;)+;81)- +% 3)-(&(K? 8? +% YG8 -8 8?&G8?:'% 8+ 8+818?:). -(?) -)+%18?:8 G? " -( 8-:U ) G? f" 8? &%-) &)?:'%'()a

"AL

34 !5!/,),)%# /!#6!17%# 8! .9:;9<

function r = busquedaBinaria2(v, x) r=-1; li=1; ls=length(v); mitad=floor((ls+li)/2); if li>ls r=-1; return elseif v(mitad)==x r=1; return; elseif v(mitad)
6? 8+ &KJ(5) %?:8'()'. &%+&G+%1)- +% I)7+8 C &)13%'%1)- 8+ 8+818?:) -(:G%J) 8? 8-% 3)-(&(K? &)? "2 b( 8- 18?)' R)E %1%'(++)T. %&:G%+(W%1)- 8+ +\1(:8 (?Q8'()'l -( 81%C)' R!1#! ;8'J8T. %&:G%+(W%1)- 8+ -G38'()'2 *'8;(%18?:8 ^81)- &)13')>%J) +)J)- &%-)- >%-8 J8 +% '8&G'-(;(J%Ja -( -8 ^% 8?&)?:'%J) 8+ 8+818?:) 8? +% 1(:%J. J8;)+;81)- G? "l -( ?) -8 ^% 8?&)?:'%J) R8+ +\1(:8 (?Q8'()' 8- 1%C)' YG8 8+ -G38'()'T. J8;)+;81)- G? f"2 MG%?J) ?) 8-:%1)- 8? %+5G?) J8 +)- J)- &%-)- >%-8. 5G%'J%1)- 8? +6")1)+/ 8+ -G>;8&:)' YG8 ^%C 8?:'8 +%- 3)-(&()?8- 1) % 1# C ++%1%1)'8&G'-(;%18?:8 % +% QG?&(K?2 bG3)?5%1)- YG8 >G-&%1)- 8+ ?=18') /0 8? 8+ -(5G(8?:8 ;8&:)'a

N U V 6 W 7 X Y Z N\ / / E H @ L L D "F "L X+ ++%1%' % +% QG?&(K? 3)' 3'(18'% ;8W. />@AP 1)>AP 1#>ARP I)7+8>NF M)1) Z&N'>UiDR. -8 %&:G%+(W% 1)a 1)>NVA>4 C +6")1)+/>bT T S AN ATcP C -8 ++%1% % +% QG?&(K? &)? 8-:8 -G>;8&:)' C 8+ ;%+)' ">DR2 ;`

6?:'%1)- %+ -85G?J) ?(;8+ J8 '8&G'-(;(J%J2 X^)'%. Z 8- 8+ ;8&:)' +6")1)+/ YG8 ?)^% ++85%J) % +% QG?&(K? J8-J8 8+ 3'(18' ?(;8+a

N 6 "L W L LU DV "F X^)'%. />@A. 1)>AP 1#>NP I)7+8>C2 M)1) Z&C'>SiDR. 1)>CVA>3 C +6")1)+/>bAN ATc. C -8 ++%1% ?G8;%18?:8 % +% QG?&(K?a ;`

;`

N "F

U "L

6? 8-:8 :8'&8' ?(;8+ J8 '8&G'-(;(J%J. />@AP 1)>AP 1#>DP I)7+8>AF M)1) Z&A'>ANiDRP 1)>AVA>D C +6")1)+/>bATc. ++%1U?J)-8 ?G8;%18?:8 % +% QG?&(K?a "AD

.+,+/)% 0%1% 2#+%1+

N "L

;`

X^)'%. />@AP 1)>AP 1#>AP I)7+8>AF M)1) Z&A'>ATiDRP -8 ^%&8 1)>D C '8&)':%1)- 8+ ;8&:)' J8-J8 +% 3)-(&(K? / ^%-:% +% ". )>:8?(8?J) G? ;8&:)' ;%&\). &)? 8+ &G%+ ++%1%1)- ?G8;%18?:8 % +% QG?&(K?a ;` 6? 8-:% ?G8;% ++%1%J%. />@AP 1)>AP 1#>RP I)7+8>RF b8 8;%+=% 8+ 3'(18' &%-) >%-8 J8 +% '8&G'-(;(J%J R1)a1#T C. &)1) +% &)?J(&(K? 8- &(8':%. -8 ;% J8;)+;(8?J) 8+ f" ^%-:% ++85%' % +% ++%1%J% )'(5(?%+ J8-J8 +% +\?8% J8 &)1%?J)a dd ; ;` / / E H @ L L D "F "L dd >G-YG8J%[(?%'(%/R;. /0T %?- ` f" P*/(%, YXO L8:(-$,'& '8 898)($,% (#, ST:R(8', S*#,%*, %8)(%:*;, 8# (# ;8)$&%< )&# %8:(-$,'& *#@%()$(&:&

"E0

03-introduccion-a-la-programacion-con-matlab-46-ejercicios-resueltos-con-varias.pdf

Recommend Documents