Matlab - RAIZ

   
Vista:

RAIZ

Publicado por alvaro (21 intervenciones) el 13/06/2015 03:47:31
SALUDOS A TODOS
Ante todo muchas gracias por darse el tiempo para leer mi consulta
tengo un problema que no me sale . Quiero escribir una funcion que me muestre los 5 primeros numeros primos cuya raiz digital sea un numero primo , la raiz digital de un numero entero positivo se obtiene sumando los digitos del entero obtenido , hasta que dicha suma corresponda a un digito
un ejemplo para hallar la raiz digital :
para 24 = 2+4=6 , la raiz digital es 6
para 39=3+9=12=1+2 la raiz digital es 3

Muchas gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Royeth

RAIZ

Publicado por Royeth jesus.royeth@gmail.com (758 intervenciones) el 13/06/2015 05:29:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
np=0;%números primos
k=1; %contar
while np~=5
if isprime(k)
j=num2str(k);
for i=1:3
    j=sum(double(num2str(j))-48);
end
if isprime(j)
    np=np+1;
    A(np)=k;
end
end
k=k+1;
end
disp(A)

https://www.facebook.com/royethmatlab
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de JOSE JEREMIAS CABALLERO

RAIZ

Publicado por JOSE JEREMIAS CABALLERO jjcc94@hotmail.com (3433 intervenciones) el 13/06/2015 05:31:19
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
>> numeros_primos
clear all
 a=1:2000; b=isprime(a); primos=a(b);
 k=1;
for i=1:length(primos)
        n=num2str(primos(i));
    s=0;
    while 1
       for j=1:length(n);
           s=s+str2num(n(j));
       end
       if s<10 && isprime(s)
           T(1,k)=primos(i);
           T(2,k)=s;
           k=k+1;
           s=0;
           break;
       elseif s<10 && ~isprime(s)
               break;
       else
            n=num2str(s);
            s=0;
       end
       end
 
end







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
>> numeros_primos
 
T =
 
  Columns 1 through 13
 
           2           3           5           7          11          23          29          41          43          47          59          61          79
           2           3           5           7           2           5           2           5           7           2           5           7           7
 
  Columns 14 through 26
 
          83          97         101         113         131         137         149         151         167         173         191         223         227
           2           7           2           5           5           2           5           7           5           2           2           7           2
 
  Columns 27 through 39
 
         239         241         257         263         277         281         293         311         313         317         331         347         349
           5           7           5           2           7           2           5           5           7           2           7           5           7
 
  Columns 40 through 52
 
         353         367         383         389         401         419         421         439         443         457         461         479         491
           2           7           5           2           5           5           7           7           2           7           2           2           5
 
  Columns 53 through 65
 
         509         547         563         569         587         599         601         617         619         641         653         659         673
           5           7           5           2           2           5           7           5           7           2           5           2           7
 
  Columns 66 through 78
 
         677         691         709         727         743         761         797         821         839         853         857         887         907
           2           7           7           7           5           5           5           2           2           7           2           5           7
 
  Columns 79 through 91
 
         911         929         941         947         977         983         997        1013        1019        1031        1033        1049        1051
           2           2           5           2           5           2           7           5           2           5           7           5           7
 
  Columns 92 through 104
 
        1069        1087        1091        1103        1109        1123        1163        1181        1193        1213        1217        1229        1231
           7           7           2           5           2           7           2           2           5           7           2           5           7
 
  Columns 105 through 117
 
        1249        1283        1289        1301        1303        1307        1319        1321        1361        1373        1409        1427        1429
           7           5           2           5           7           2           5           7           2           5           5           5           7
 
  Columns 118 through 130
 
        1433        1447        1451        1481        1483        1487        1499        1523        1553        1559        1571        1607        1609
           2           7           2           5           7           2           5           2           5           2           5           5           7
 
  Columns 131 through 143
 
        1613        1627        1663        1667        1697        1699        1721        1733        1753        1787        1789        1811        1823
           2           7           7           2           5           7           2           5           7           5           7           2           5
 
  Columns 144 through 155
 
        1847        1861        1877        1879        1901        1913        1931        1933        1949        1951        1973        1987
           2           7           5           7           2           5           5           7           5           7           2           7

Saludos .
JOSE JEREMÍAS CABALLERO
Asesoría online en Matlab
Servicios de programación matlab
jjcc94@hotmail.com
skype: josejeremiascaballero
Estimado Usuario, el correo es para servicios de cursos, asesoría y programación. Toda ayuda gratuita es vía foro.


http://matlabcaballero.blogspot.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar