%Exercice 1
A=round(255*rand(100,100));
image(A)
%Exercice 2
f1=@(x)exp(2*x)
f2=@(x) 1./x+6
%pour trouver les valeurs de x pour lesquelles les courbes d'équations
%se coupent il faut soit utiliser la méthode fonction :
function [x,y]=newton3(xint,e,pas)
x=xint;
y=exp(2*x)-1./x-6;
while abs(y)>=e
x=x-pas*(exp(2*x)-1./x-6)/(2*exp(2*x)+1./x.^2);
y=exp(2*x)-1./x-6;
end
%lors qu'on part de xinit=10 avec un pas de 0.01, on atteint à 0.1 près
%x=0.9813
%pour trouver la deuxième valeur il faut partir d'un xinit < 0.9813
%soit il faut utiliser la méthode graphique puisque le prof ne demande
%qu'une précision à 0.1
%pour faire apparaitre les deux courbes il faut :
x=-1:0.1:1;
plot(x,f1(x))
hold on
plot(x,f2(x))
%Exercice 3
function [S,n]=somme(p,q)
S=zeros(1,p);
i=1;
while sum(S)~=q
S(i,:)=round(rand(1,p));
a=sum(S);
f=sum(a==q);
if f>0
n=find(a==q);
else
i=i+1;
end
end
S
n
%Exercice 4
function Sout=alea(Sin)
n=length(Sin);
Sout='';
a=randperm(n);
for i=1:n
Sout=strcat(Sout,Sin(a(i)));
end
Sout
