Matlab - AYUDAAA!!! numeros primos...

function out=firtsprime(n)

%

% Visualiza primeros tres números primos en caso que el argumento de

% entrada sea menor a 3.

if n==1

    out=1;

    return

end

%

if n==2

    out=(1:2);

    return

end

%

% Incializa variables.

i=3;

val=3;

%

% Inicializa primeros 3 numeros primos.

prime=(1:3);

%

while length(prime)~=n

    val=val+2;

    fac=length(factor(val));

    if fac==1

        prime(i+1)=val;

        i=i+1;

    end

end

out=prime;

k=input('Dar los numeros primos hasta ');

p=[];

for a=1:k;

c=1:a;

b=a./c;

m=find((b./floor(b))==1);

if length(m)==2;

    p(a)=a;

end

end

r=find(p==0);

p(r)=[];

disp(p)

a=0; clear primo %0 números al comienzo 

k=input('ingrese límite inferior del intervalo');

kk=input('ingrese límite superior del intervalo');

con=0; %contador

 while k~=kk %mientras a no sea igual a 100 (no se tengan los 100 primos)

     if isprime(k) %si es primo

         a=a+1; %tengo otro primo más

primo(a)=k;

     end

     k=k+1;%seguir buscando 

 end

disp(primo)

disp(num2str(length(primo),'hay %d primos en este intervalo'))

function primos1(a,b)

primos=[ ];

for k=a:b

    s=0;

   for i=1:k

       if rem(k,i)==0

           s=s+1;

       end

   end

   if s==2

           primos=[primos,k]; %#ok<AGROW>

           s=0;

   end

end

display(primos)

numeros_primos=length(primos);

display(numeros_primos)

>> primos1(9,60)

primos =

    11    13    17    19    23    29    31    37    41    43    47    53    59

numeros_primos =

    13

a=0; %0 números al comienzo 

k=3; %número inicial pues el 2 es primo par

con=0; %contador

 while a~=100 %mientras a no sea igual a 100 (no se tengan los 100 primos)

     if isprime(k) %si es primo

         con=con+k; %lo que llevaba más el primo

         a=a+1; %tengo otro primo más

     end

     k=k+1;%seguir buscando 

 end

disp(con)

a=0; %0 números  primos al comienzo 

k=100; %empezando por cien

con=0; %contador

 while a~=10 %mientras a no sea igual a 10 (no se tengan los 10 primos)

     if isprime(k) %si es primo

         con=con+k; %lo que llevaba más el primo

         a=a+1; %tengo otro primo más

     end

     k=k+1;%seguir buscando 

 end

disp(con)

function primos2

primos=[ ];

k=100;

while 1

    s=0;

   for i=1:k

       if rem(k,i)==0

           s=s+1;

       end

   end

   if s==2

           primos=[primos,k]; %#ok<AGROW>

           s=0;

   end

   if length(primos)==100;

       break;

   end

k=k+1;

end

display(primos)

numeros_primos=length(primos);

display(numeros_primos)

>> primos2

primos =

  Columns 1 through 27

   101   103   107   109   113   127   131   137   139   149   151   157   163   167   173   179   181   191   193   197   199   211   223   227   229   233   239

  Columns 28 through 54

   241   251   257   263   269   271   277   281   283   293   307   311   313   317   331   337   347   349   353   359   367   373   379   383   389   397   401

  Columns 55 through 81

   409   419   421   431   433   439   443   449   457   461   463   467   479   487   491   499   503   509   521   523   541   547   557   563   569   571   577

  Columns 82 through 100

   587   593   599   601   607   613   617   619   631   641   643   647   653   659   661   673   677   683   691

numeros_primos =

   100

clear all

n=input('Ingrese n:');

x(1)=1;x(2)=1;

P=0;

i=2;

while x(i)<n

    x(i+1)=x(i)+x(i-1);

    if isprime(x(i))

       P=P+1;

       Primo(P)=x(i);

    end

    i=i+1;

end

if n>2

P

Primo

else

    disp('no hay primos aun')

end

>> primo_fibonaci

Ingrese n:100

P =

     5

Primo =

     2     3     5    13    89