चित्रमय यादृच्छिक जनरेटर
जवाबों:
मैं कोई सॉफ्टवेयर नहीं जानता। Google किसी चीज़ के साथ नहीं आया। लगता है कि यह बहुत आसान समस्या है। यदि आपने इसे स्क्रिप्टिंग भाषा में लिखा है तो यह कोड की लगभग 30 पंक्तियाँ होनी चाहिए। आप ऐसा करने के लिए एक लिब्रे ऑफिस स्प्रेडशीट भी बना सकते हैं। बहुत मुश्किल नहीं होना चाहिए।
1 संपादित करें:
नीचे एक त्वरित और गंदा पर्ल स्क्रिप्ट है जिसे मैंने कोडित किया है। आपको इसे स्वयं संशोधित करने में सक्षम होना चाहिए। जब आप इसे चलाते हैं perl nameOfTheScript.plया इसके साथ निष्पादन योग्य बनाते हैं chmod u+x nameOfTheScript.plऔर फिर इसे डबल क्लिक करते हैं, तो यह ऊपर दी गई तस्वीर में दिखाई देगा।
#!/usr/bin/perl
# © 2011 con-f-use@gmx.net. Use permitted under MIT license: http://www.opensource.org/licenses/mit-license.php
use Gtk2 '-init'; # relies on the gnome toolkit bindings for perl
$size = 1e5; # fontsize in 0.001 pt (only god knows why)
sub randomizeLabel { #### this does the actual randomisation
$min = int($entry1->get_text);
$max = int($entry2->get_text);
$rand = int(rand($max-$min+1)) + $min;
$diplabel->set_markup( "<span size=\"$size\">$rand</span>" );
}
#### the rest is gui stuff:
$window = Gtk2::Window->new('toplevel');
$window->set_title('Random Integer Generator');
$window->signal_connect(destroy => sub { Gtk2->main_quit; });
$window->signal_connect(delete_event => sub { Gtk2->main_quit; });
$window->set_border_width(10);
$vbox = Gtk2::VBox->new(0, 5); $window->add($vbox); $vbox->show;
$diplabel = Gtk2::Label->new;
$diplabel->set_markup("<span size=\"$size\">0</span>");
$vbox->add($diplabel); $diplabel->show;
$entry1 = Gtk2::Entry->new; $vbox->add($entry1); $entry1->show;
$entry2 = Gtk2::Entry->new; $vbox->add($entry2); $entry2->show;
$button = Gtk2::Button->new("Generate!");
$button->signal_connect(clicked => \&randomizeLabel, $window);
$vbox->add($button); $button->show;
$window->show; Gtk2->main;
exit 0;
EDIT2
ObsessiveFOSS ने मुझे यादृच्छिक संख्याओं के लिए एक और जनरेटर शामिल करने के लिए कहा (जैसा कि यह स्क्रिप्ट है पर्ल के बिल्ड-इन का उपयोग करता है)। आप मेरे अन्य उत्तर में इसे कैसे करें पर एक स्केच देख सकते हैं ।
ओब्सेसिव्सफोर्स ने ब्लम को लागू करने के लिए कहा , एट अल। क्रिप्टोग्राफिक रूप से सुरक्षित छद्म यादृच्छिक संख्या जनरेटर। यहाँ यह कैसे करना है पर मेरा स्केच है। अन्य कोड मेरे पहले के उत्तर के समान ही है । एक को randomizeLabelसबरूटीन को बदलना होगा और इस कोड को इसके स्थान पर डालना होगा:
use bigint;
# Kinda large primes
$p = 338047573; # Any pair of large primes will suffice here...
$q = 4182249941; #+...as long as they fullfill the congruence check below
$rand = 7; # Seed for the random number generator (x_0 in the wiki)
sub errMsg {
$dialog = Gtk2::MessageDialog->new($window, 'destroy-with-parent', 'error', 'ok', $_[0]);
$dialog->signal_connect (response => sub { exit 1; });
$dialog->run;
}
# Check congruence 3 mod 4 (for quadratic residue)
if( ($p-3)%4 == 0 ) { errMsg('Error: Variable p is ill choosen.'); }
if( ($q-3)%4 == 0 ) { errMsg('Error: Variable q is ill choosen.'); }
# Note: For large cycle lengths gcd(φ(p-1), φ(q-1)) should also be small,...
#+...where φ is Euler's totient function but this is not checked here
# Compute Modulus in Blum Blum Shub
$M = $p*$q;
sub randomizeLabel { # This does the actual randomization
$min = int($entry1->get_text); $max = int($entry2->get_text); # Boundaries for the desired random range from the input filed of the GUI (included for convenience when modifying the script - not used here)
# Blum Blum Shub pseudo random number generator
$rand = ($rand*$rand) % $M;
# Here you have to extract the bits and shift them in range
$randout = $rand & (2**6-1); # Change this line. It's an example and extracts the five least significant bits! To extract the ten LSBs use '(2**11-1)' and so on...
# $randout = ...$min...$max...; # shift it in the right range (not done here)
$diplabel->set_markup( "<span size=\"$size\">$randout</span>" );
}
जैसा कि उल्लेख किया गया है वह अपूर्ण है। एक उपयोगी यादृच्छिक संख्या, पाली को निकालने के लिए बिटवाइज़ ऑपरेटर्स का उपयोग करें और उन्हें पैमाने के बीच फिट करने के लिए करना होगा $minऔर $max। अभी न्यूनतम और अधिकतम के लिए इनपुट अप्रयुक्त है।
यह आज QML के साथ बहुत आसानी से किया जा सकता है:
import QtQuick 2.0
import Ubuntu.Components 0.1
Rectangle {
id: mainView
width: units.gu(30)
height: units.gu(40)
Column {
id: generator
spacing: units.gu(1)
anchors.horizontalCenter: mainView.horizontalCenter
Text {
id: ramdom_number
text: "0"
font.pointSize: 100
anchors.horizontalCenter: generator.horizontalCenter
}
TextField {
id:min
text: "0"
}
TextField {
id: max
text: "100"
}
Button {
text: "Generate!"
width: generator.width
onClicked: ramdom_number.text = Math.floor((Math.random()*(max.text-min.text+1))+min.text);
}
}
}
इस कोड को इसके साथ चलाएँ qmlscene:
