[Archiv!] Reine Mathematik, Physik, Chemie usw.: Gehirntrainingsprobleme, die in keiner Weise mit dem Handel zusammenhängen - Seite 322
![MQL5 - Sprache von Handelsstrategien, eingebaut ins Kundenterminal MetaTrader 5](https://c.mql5.com/i/registerlandings/logo-2.png)
Sie verpassen Handelsmöglichkeiten:
- Freie Handelsapplikationen
- Über 8.000 Signale zum Kopieren
- Wirtschaftsnachrichten für die Lage an den Finanzmärkte
Registrierung
Einloggen
Sie stimmen der Website-Richtlinie und den Nutzungsbedingungen zu.
Wenn Sie kein Benutzerkonto haben, registrieren Sie sich
Я и на васике могу в четыре-пять строк уложиться
:)
Das tue ich. Aber es wäre interessant zu sehen...
Das gibt's doch nicht...
Und so sieht der Perl-Algorithmus aus:
for(111..999){
split(//,$_);
my($sum,$mul)=(0,1);
for(@_){$sum+=$_;$mul*=$_;}
print("$_\n") if($sum*12==$mul);
}
Ich kenne BASIC seit etwa 18 Jahren. Aber was Sie geschrieben haben, kann ich gar nicht verstehen. Ich kenne Perl nicht. Im Allgemeinen wäre es in BASIC noch einfacher, wenn man fast alles in einem Modul verstecken könnte, wie hier:
-
Private Sub Command1_Click()
Me.PrintList(MathMod.OtnProSum(1,1e5))
End Sub
Er ist nur ein Programmierer.... >> so-so.
Ich werde mehr als das sagen. Er ist überhaupt kein Programmierer.
Верю. Но интересно было бы взглянуть...
;)
(10**(n-1)..10**n-1).each{|i|
sum=0;mul=1
(1..n).each{|s|
d=i%10**s/10**(s-1)
sum+=d;mul*=d
}
if mul/sum==12
print i,"\n"
end
}
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)
Super!
Richie, in diesem Fall bedeutet "genau" absolut genau, mit null Fehler: es ist die Gleichheit für ganze Zahlen aus dem Buch über diophantische Gleichungen.
Richie, aber du kannst auf deinem Wasik überprüfen, ob die Gleichheit "30 als Summe von drei Würfeln" auf Seite 322 des Threads angegeben ist: https://c.mql4.com/forum/2010/04/cohen.GIF?
Richie, in diesem Fall bedeutet "genau" absolut genau, mit null Fehler: Es ist die Gleichheit für ganze Zahlen aus dem Buch über Diophantische Gleichungen.
Leider funktioniert bei Standard-Datentypen wie Double und Long nichts. Jetzt bedauere ich, dass ich nach meinem Abschluss die Bibliothek mit VB-Funktionen zerstört habe, die es mir ermöglichen, präzise Berechnungen mit sehr großen und sehr kleinen Zahlen durchzuführen, indem ich meine eigenen Datentypen in VB erstellt habe.
-
Ich habe es in VB mit dem Typ Double versucht - es stellte sich heraus, dass es Blödsinn ist, in Excel stellte es sich heraus, dass es Null ist.
Die Bibliothek funktionierte einfach - Zahlen wurden als Zeichenketten vom Typ String gespeichert. Nach der Konvertierung in das Byte-Format wurden mit diesen Zeichenfolgen Aktionen durchgeführt. Wenn wir mehr Zeit hätten, könnten wir wieder schreiben.
-
Vielleicht gibt es einen anderen - trickreichen - Weg, dies zu beweisen?
Richie, aber du kannst auf deinem Wasik überprüfen, ob die Gleichheit "30 als Summe von drei Würfeln" auf Seite 322 des Threads angegeben ist: https://c.mql4.com/forum/2010/04/cohen.GIF?
Richie, in diesem Fall bedeutet "genau" absolut genau, mit null Fehler: es ist die Gleichheit für ganze Zahlen aus dem Buch über diophantische Gleichungen.
Sie können die Berechnungen mit einem Windows-Rechner durchführen.