Cum sa stresezi un uC inutil....

[djvas]

Din ciclul... hai sa facem ceva total neproductiv ... avem urmatorul cod:

	TRISB.RB0:=1;
    PORTB.RB0:=1;
   	delay_ms(1);
	PORTB.RB0:=0; // trigger crono
    rez:=3;
    prim:=true;
    for i:=7 to n do
        if (i mod 2<>0) and (i mod 3<>0) and (i mod 5<>0)  then
            begin
                 prim:=true;
                 x:=sqrt(i);
                 j:=7;
                 while j<=x do
                  begin
                       if i mod j=0 then
                                begin
                                     prim:=false;
                                     break;
                                end;
                       j:=j+2;
                   end;
                  if prim=true then rez:=rez+1;
            end;
    	PORTB.RB0:=1; // trigger crono

am setat n=1 000 000 si am incercat sa-l rulez pe un PIC din seria 16F la 8Mhz .

Din pacate cronometru a dat eroare dupa 2 ore , asha ca momentan tot nu am aflat cat o sa dureze executia..

De ce as ( ai) face asta ? Fara nici un motiv intemeiat.

 

Pentru n=10000 a durat 50.9 secunde excutia

Editat Noiembrie 29, 2024 de djvas

[Badman]

are careva o invitatie filelist ? Am nevoide de niste scheme si niste softuri pentru PIC de pe torentul ala

[modoran]

Am eu, dar daca nu mă înșel ți-am mai trimis

[mihaiaurul]

19 hours ago, djvas said:

Din ciclul... hai sa facem ceva total neproductiv ... avem urmatorul cod

Care este scopul rulării pe un 16F la 8 Mhz ?
Teoretic trebuia sa se termine in 50.9 x (1.000.000/10.000) secunde.. Adica in aprox 85 de minute.
Depinde însă de cum este implemetata functia sqrt() folosită.
Pascal, Basic ... ce limbaj este cel de mai sus ?

 

Editat Noiembrie 30, 2024 de mihaiaurul