Ergebnisse Auflisten (Allgemeines zu Perl)

[thread]18400[/thread]

Ergebnisse Auflisten

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

+7 replies

Gast Dennis

2013-06-23 23:07

Hey ich arbeite grad an einem Script das mir Pi näherungsweise Bestimmt nach der Methode von Archimedes, dazu werden inner und außerhalb eines Einheitskreises ecken angelegt dies führt bei einer großen Anzahl an Ecken irgendwann zur Zahl Pi. Wenn das Programm mich fragt wie viel Ecken sind und ich zum Bsp 100 eingebe möchte ich dass das Programm dann hochzählt also beispielsweise so:
1 ecke umfang: 2,999
.
.
50 ecken, umfang 3.12
.
.
100 ecken, umfang 3,134
ich erinnere mich daran dass man eine variable mit z.b i=i+1 gegen einen wert laufen lässt um so etwas zu erreichen...weiss da jemand was? ich kann ja mal mein programm hier anhängen

Code: (dl )

#!/usr/bin/perl
#Angabe der Anzahl der Ecken des Vielecks die in den Kreis gelegt werden
 use constant PI => 3.1415926535;
  sub tan { sin($_[0]) / cos($_[0])  }
print"Anzahl der Ecken_INNEN :\n";
$ecke =<STDIN>;
chomp $ecke;
print"Höhe:\n";

$pi = sin(PI/$ecke)*$ecke;

print "Der Umfang Pi nähert sich $pi.\n";

print"Anzahl der Ecken_aussen :\n";
$eckea =<STDIN>;
chomp $eckea;


$pia = tan(PI/$eckea)*$eckea;

print "Der Umfang Pi nähert sich $pia.\n";

hoffe auf hilfe danke!!
Last edited: 2013-06-23 23:52:41 +0200 (CEST)

bianca

2013-06-23 23:59

User since
2009-09-13
7016 Artikel
BenutzerIn

Guest Dennis
ich erinnere mich daran dass man eine variable mit z.b i=i+1 gegen einen wert laufen lässt um so etwas zu erreichen

Meinst du eine Schleife http://www.tekromancer.com/perl2/6_5.html ?
10 print "Hallo"
20 goto 10

wollik

2013-06-27 20:27

User since
2005-02-04
21 Artikel
BenutzerIn
[default_avatar]

Hallo Dennis,
zum Hochzählen einfach $i++ verwenden, dann wird $i um eins erhöht.
Ich habe Dir Deinen Code einmal in eine Wile-Schleife gepackt, die solange hochzählt, bis der unter $ok eingetragene pi-Wert erreicht ist. Ich habe $ok auf nur 9 Nachkommastellen gesetzt, fange bei 32000 Ecken an und erhöhe die Anzahl der Ecken um 2000 und verringere diesen Step bis auf 1 wenn ich in die Nähe der 9 Nachkommastellen komme. Damit passt das Alles auf ein paar Seiten.

Code: (dl )

 
#!perl
$| = 1;
use strict;
use warnings;
my $PI = 3.1415926535;
my $ok = 3.141592653;
my ($ecken, $steps, $pi_i, $pi_a);
$ecken 	= 30000;
$steps	= 2000;
$pi_i	= 1;
$pi_a	= 2;
#Angabe der Anzahl der Ecken des Vielecks die in den Kreis gelegt werden

print "\n\n\t\tSIN\t\t\tTAN\n";
print "\t\t(Innenecken)\t\t(Aussenecken)\n";

while ($pi_i lt $pi_a) {
  $ecken = $ecken + $steps;
  $pi_i  = sin($PI/$ecken)*$ecken;
  $pi_a  = tan($PI/$ecken)*$ecken;
  print ":$steps:\t$ecken\t$pi_i\t$pi_a\n";
 
  if ($pi_i gt $ok) {
    print "\n\nPI durch $ecken Innenecken funden!!!\n\n";
    last;
  }	
  if ($pi_a lt $ok) {
    print "\n\nPI durch $ecken Aussenecken gefunden!!!\n\n";
    last;
  }

  if ($ecken > 101650) { $steps = 1;}
  else {
    if ($ecken > 101640) {$steps =2;}
    else {
      if ($ecken > 101600 ) { $steps = 4;}
      else {
        if ($ecken > 101400) { $steps = 20;}
        else {
          if ($ecken > 101000) { $steps = 120;}
          else {
	    if ($ecken > 98000) { $steps = 400;}
            else {
              if ($ecken > 80000) { $steps = 1200;}
	      else {
                if ($ecken > 60000) { $steps = 1800;}
  } } } } } }

}

sub tan { sin($_[0]) / cos($_[0])  }

Evtl. kannst Du ja was damit anfangen.

Viele Grüße
WolliK

+2 replies
Raubtier

2013-06-27 22:58

User since
2012-05-04
1081 Artikel
BenutzerIn

Hm, in beiden Lösungen findet sich die PI als Konstante im Quelltext. Ist das nicht etwas widersinnig, wenn man es erst ermitteln möchte?
- wollik
  
  2013-06-28 09:56
  
  User since
  2005-02-04
  21 Artikel
  BenutzerIn
  
  Hallo Raubtier,
  der feste Wert für PI wird zur Berechnung der Näherungswerte und für die Erkennung einer gefundenen Lösung mit x-Nachkommastellen benötigt. Ich hatte einfach das Script mit der Formel die Dennis verwendet etwas erweitert.
  
  Viele Grüße
  WolliK
+2 replies

betterworld

2013-06-28 10:02

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Hi!

Ich nehme immer dieses Programm, um Pi zu berechnen:

Code (perl): (dl )

#!/usr/bin/perl

                $|++;$_L=$K=
       '.';$([199].=$_L.=join 10
  ,<{\\{,\\}}>;            for((@()){
 undef$                      };*::a={a,$K.$
                              T,*$=\$:};$$=Y
                              x(((666)));{$;
                            =$$?join$$,$$,$a
                            {a}:$_L;$;=~tr
                          )Y).);**=
                        \$$$;$*=l1
                       unless 0||
                      defined
                    $*;$*=~#
                    s{$a{a}}
                      $die unless$g;
                          for($S=$*.$}
                             ){($*)=m(^(?:
                               $;)*($a{a}*)
                                \z)x;$==s
                                 $\$;$\$\$$xg
                                  ;;y;Y;;dc;y;Y
                                  ;z;;m.\.*..[$}
                                   =$&  ]}redo
                                 if chop$$
 ;}if(($!                       =$==~y            cccc
 )!=!!$!){$=                -=$=;$__          ++;}$__.=$=
     ;$__=~s"^(.+)([ -8])"\2"and              do{print$1,
         $K;$T.=chop$K}} print                  "$__\n"

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

bianca

2013-06-28 11:06

User since
2009-09-13
7016 Artikel
BenutzerIn

Hammergut!!
10 print "Hallo"
20 goto 10

View all threads created 2013-06-23 23:07.