### Related

##### block-denom-every-makelist-rat-subst-var

pr_nonnegintegerpolyp...

pr_nonnegintegerpolyp...

Calculate

p:next_prime(13453531);

b:4597311;

Calculate

##### array-do-if-listarray-plot2d-sin

array([rs,rsy],float,5);

i:0;

f(x):=sin(x);

Calculate

##### true

Alberta: (not a0 and...

Alberta, a0 = false, ...

Alberta, a0 = false, ...

Calculate

##### print-solve

eq1: 0 = 1/((r+p+(1+a...

print(eq1);

solve(eq1, f);

Calculate

##### plot2d-sin

plot2d(exp^(sin(x)),[...

Calculate

##### array-diff-kill-limit-ratexpand-solve-sum

kill(all);

eqn: 2*x^2*diff(y(x),...

P(x):=3/(2*x);

Calculate

a: 2500/175;

float(a);

b: %pi;

Calculate

##### array-diff-kill-limit-ratexpand-solve-subst-sum

kill(all);

deq:(2*x^2)*diff(y(x)...

P(x):=3/(2*x);

Calculate

##### array-diff-kill-ratexpand-solve-sum

kill(all);

array(c,11);

y:sum(c[n]*x^n,n,0,10);

Calculate

### [array,block,float,listarray,make_random_state,plot2d,print,set_random_state,true]

Run Example
```(%i1)s1: make_random_state (true) ;
(%o1) #S(RANDOM-STATE STATE
#(0 2567483615 624 3634217160 3421942552 3354074281 851396885
1059525197 3478154598 1862874591 3716681373 1154634334
162027140 4082288158 4067995260 2557988647 2334295718
1026089666 231295129 2960295277 1621101532 1418261315 587483933
1722754949 64764713 1269516355 1443681313 494194872 2010173617
4192241034 801767464 3588192228 3013995840 20770088 1946941671
120998110 2340130231 1653065099 655214997 677659885 1995245222
1722023689 2607212111 687018377 2198289462 645829806 1715717841
3453141052 3535835144 3344676741 1225793037 1438926572
3437220018 4224913159 1718227143 675058770 4051986063 32596338
3011474481 3084723031 3044699586 508103930 3717851357
3513363922 426601650 2822055032 1154657889 722480160 1507756257
3391873186 1324140744 610125969 827112058 342285416 4284521807
3529489220 1307501132 1114996139 1077972573 2586535576
3544048911 3394423306 1929873116 1429174913 1573508305
2503231074 1139352627 2763524622 3494929169 2184820848
1738065745 3575673576 3149535760 4141738868 3436287310
2293308605 326864568 1445447414 3958157010 2980434389
1150867764 687738699 829959162 2143822854 1970206248 3181514643
607894940 1129204468 3702763538 949260319 3633738662 3166825861
3008427440 3796578728 82582502 392108078 766978199 3726430981
1534556113 200316292 1015718281 1239616643 3620962753
3140551682 830116985 975197495 3302821422 1460120893 2120250665
2396561734 1654719571 3407124186 3486033182 441494003
3060471906 1928068708 855796574 50047644 1440467987 2892703138
3838343337 2421200284 3475936737 482677942 718312027 3877204341
2902190621 2324100555 1699121630 2377497741 2793729022
2560554752 3790964319 122240738 582664641 1571142333 242567365
2442797907 300763280 3395465580 1475176552 3832111883
2563463879 3006348633 499116168 736069194 3524498901 3183715346
3446426357 3566287284 1563407578 2711129615 3280994506
163242231 870314270 2402627458 1122450989 1756697610 1735904262
1990475379 2169873835 2953891167 1309854564 134630541 491694422
2449593764 1972969781 815459900 3930200677 2365522168
2532781405 677756471 3396369264 4103487517 1349081749 85324068
2276485109 4227675189 558923793 3854737529 2835389159
3630475807 3045333459 799410493 2753448666 568926210 3676877717
1883513082 2338608852 1491650876 3828615904 4069574495
1901257757 512424926 4172361065 3843728806 3383470062 17962583
1786273834 841086159 4178664836 295183901 2755104588 1488865442
2556879916 3589711108 3755006882 5689445 3867755962 1585939423
337302905 757267105 1297353578 4029793565 1911673789 2027693588
1708082226 2007643145 406245395 2541699947 69716570 1869807728
850568836 3644086020 157947316 73655542 1001061377 1532556889
2186693037 1900198401 2061329143 1879552518 595590332
3101905702 254415407 3533526151 1240005905 2211014734
2975519483 1686863421 356182701 1318071363 878627085 1582843941
2691414841 4098912845 2030753741 2237091972 288652263
3075768877 4048258198 416419029 1771048470 3556826913
2377071481 827607959 1473684132 2470148395 2255273792
1309657118 3408628816 1351338197 2204872891 1545517845
1472824317 1711730566 2006761566 1784921495 3504935755
238953606 1740251133 3077602188 3663838759 3662498134
1510960300 3187242597 614061768 68863502 1156555437 1934441220
2335242018 1618059466 3849196610 1728825297 742663741
3070540863 2672159296 2160115514 3437783625 1486457444
2221320204 2899430586 2925280717 740371169 1093620988 454225417
505002950 1343097944 4237656408 2528296227 866273346 159372616
1569369767 3988242110 297559762 974713884 3275705423 232900416
3228884357 257039652 4177118331 3824598176 3888162968
2306505073 2658498218 2138028436 7861782 1688198652 248118048
1257518320 1631903078 3162012149 1586384582 2445186263
1806284382 1562823633 3591420519 2970947276 1910314655
2208725936 2193559701 4251147247 936939897 4103743259 828720599
1278582323 774778139 2383953929 1847863482 3475842603
3511908141 3942098060 246248658 1739684418 2135431384 111996935
3000988462 3707698632 989382020 2088080002 1264577054
2348480171 2460140318 442824574 1589253161 1632329020 5009286
2592126804 574577765 2385805905 3367687992 4118970049 27252229
599465589 1834132134 1094093921 1111802719 4047528854 952436810
1228005556 316769772 1561928608 342046986 3958496376 1892077838
4021977971 1023200441 4267362183 322067615 583574343 2205838224
3957036072 3239672198 1069031433 1493726750 4133892813
858016473 827238961 3765723114 3231484291 2245509399 1745251297
3982717177 1854365244 1552012460 3334766301 3011304755
1526300403 4194081049 4132262626 3187875174 2679184918
210080647 1767339239 2539271779 1717067499 4228820473
2260430666 3782766865 411385796 1779305983 3875173602
1199802226 3531996429 2527811125 2990371939 1345180918
802043429 1314401100 3272625173 180341859 1019322309 289896304
2485981416 3258640395 3751924962 2481743744 2352441862
2411002193 1629014653 1820868779 956464850 3818417307
1969762746 1423291274 1647458971 828607111 2132338697 825742575
4068731667 1950830361 1394478658 2287107386 4195770596
3204504560 3970517576 2744743014 160461124 3681949093
1723228752 4241040584 93923563 1858070924 1150196599 1705999717
2786262604 2344096927 1861429451 1011430285 3662859645
957710995 2657235165 1929224410 3810700103 2301687733
1323543573 460691911 3978439783 1056508249 3954201347
2650521831 4040206657 632625907 210022089 2237761592 49793742
988627763 2465648653 354492122 3750352882 2307468550 2538727558
2489016839 967138029 3026237046 3640136122 3815375092
2920780395 2575693414 795982702 489607777 1052109633 4084374434
2397540739 3032576740 51997886 4117468919 2011636806 4069282054
467314173 1174594518 435352793 2144451748 1882635297 891640489
3152033719 4281915764 1141865727 3069329475 4290585779
1594993535 3476101318 3456316618 1006790239 3595844750
3346946741 2522821091 2389121243 2498228404 1011703782
3659722199 2983873214 1480727111 1913509306 586377188 333251346
3394558521 2883134722 75012897 2021711655 2756534817 2936108275
2982092346 3675973182 3732831544 3381198191 1352583621
4244340862 2791807100 1793890786 3337106364 3146163081
644934406 2373775758 1516452461 3965573838 4072278548
1299008583 2816118739 1256757419 3961337673 2233691242
1389719361 4051576442 3802853624 1665427523 2006349383
2006065628 2312217456 541818938 520004387 3115915793 260077250
4102729422 4124945958 27952095 2549178434 3229432712 991093536
534756842 961423773 3479597629 3997188803 911415310 1997143509
2962463476 2900609887 3913220867 3547803987 1352287972
3910240174 121708183 1076945642 3576056847 3139596053
4289340781 1512744129 3862807068 1176055704 4221020859
3090863351 1507861513 3303965065 405927892 2149793031 816955997
3819992598 1516426671 3441061389 4206160878 723381226 829706172
1068700567 876841983 747287816 550680214 4243739037))
(%i2) set_random_state (s1) ;
(%o2)                                done
(%i3) n : 10;
(%o3)                                 10
(%i4) array(Lx, flonum, n) ;
(%o4)                                 Lx
(%i5) array(Ly, flonum, n) ;
(%o5)                                 Ly
(%i6) muenze_werfen(n) := block(       [muenze, L:[0,0], k:0],      print("Ich werde die Münze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),      for i: 1 thru n do (             muenze : random(2) + 1,           L[muenze] : L[muenze] + 1,      L1[1, i] : i,      if muenze = 1 then L1[2, i] : L[1]/i else L1[2, i] : k,      k : L1[2, i]      /*, print("muenze = ",muenze,", k = ", L[1],", q = ", float(L1[2, i])) */   ),      print("Zahl wurde ", L[1], " mal geworfen"),      print("Kopf wurde ", L[2], " mal geworfen"),   print("Von ", n," Würfen")) ;
(%o6) muenze_werfen(n) := block([muenze, L : [0, 0], k : 0],
print("Ich werde die M?nze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),
for i thru n do (muenze : random(2) + 1, L       : L       + 1, L1     : i,
muenze    muenze        1, i
L
1
if muenze = 1 then L1     : -- else L1     : k, k : L1    ),
2, i   i         2, i            2, i
print("Zahl wurde ", L , " mal geworfen"),
1
print("Kopf wurde ", L , " mal geworfen"), print("Von ", n, " W?rfen"))
2
(%i7) muenze_werfen(n);
Ich werde die M?nze  10 mal werfen. 1 = Zahl, 2 = Kopf
Zahl wurde  6  mal geworfen
Kopf wurde  4  mal geworfen
Von  10  W?rfen
(%o7)                                W?rfen
(%i8) f(x) := 0.5;
(%o8)                             f(x) := 0.5
(%i9) plot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
plot```
Run Example
```s1: make_random_state (true) ;
(%o1) #S(RANDOM-STATE STATE
#(0 2567483615 624 3634217232 773150592 4273931650 1305883880
372412657 1947936794 3555345837 1249483693 1207793380
3890443618 1479882831 3124950225 120881739 629050020 2107274946
3134469630 276899964 218322173 4189514979 1678726259 358306574
2044478107 3183522008 3382734873 1895834714 184552192
2850510618 1468609683 4265729974 178790278 2447189500 394718037
3346945449 1616234035 1816523740 237337428 1930796104 170441202
4214349472 2772898166 2811033324 3007629839 2359274571
1882262008 3548262505 60281855 189995721 2023629436 3829629057
2314552699 2722179567 77619124 879302200 635550797 1643085719
2480839781 861393883 1896073376 88297663 3808301718 3829535237
1876972187 1777008896 4714148 1368582900 2540097514 1345007306
2829130074 2407995388 3155518843 2047724035 3868837137
1084187234 1061014616 3156522754 3781899083 347390900 838371921
2907368259 1362860532 2207963897 2888153176 486532564 465576183
3744608455 4030865833 3519103592 582449038 239020382 899719279
1430500133 4103074191 803354776 2695998549 3853815217 938355097
879250109 1146069490 2193289281 1948886482 2867943331
3934501866 1961350227 2522130113 1878599255 3609863767
4000322446 294202380 2550451496 3755371519 1397126874 879040470
3028151774 3942487101 2685577960 2302322885 434640375 974313960
3580174590 4067977544 2665983503 3957825690 4152573399 61462815
1527595191 2429939275 4041937995 3364980967 4058580596
2259041396 2234188048 755502749 3058354549 2811439992
2276094376 2428031641 668797615 599121556 4041868526 1735509772
2697231789 3633397144 1048723893 2256587256 4206656050
3440864998 416959979 3879764298 379720545 502763226 773064344
865464975 2397059587 1602776062 982979381 3646222724 3262482911
875176041 1322646283 3003803025 4269457055 481472557 3221395299
3349682563 1836552228 3109203006 1634603090 3446529126
2047672705 661592105 4158749143 989037903 2375278551 4176694454
3774685463 2451423635 155908069 746609418 4104275364 3067927190
3223810328 1725174620 3549653351 1850415403 473851978
2624897003 3223480487 1141837167 2921474850 2859410525
3404280121 2850977441 2869365263 8580322 379217900 4093398239
833621904 4290393237 1119159796 3075372912 2885624514
1484879497 3510275186 1683546720 1155414545 1865382173
1699661018 3848920630 2585921721 657884568 1831407050 237049066
2443475750 164026889 140629859 1385362918 1726260219 3888872571
1613517874 2079425530 2781308387 3528956834 205557859 426963694
2598188742 2867953717 1684407701 3427297351 3795421112
2758975660 100172684 38130467 3447654583 1001571309 2413568619
3441608024 1406308563 1330742727 472563212 1055221675
2393467495 2005534666 3794646793 3963851237 1694934706
2109378708 1108199615 353362413 4171692153 3090109211
3486722775 2617727647 883934701 1069542526 2075770036
3140964712 1766513106 2447301696 2929342732 3804430729
361264758 2339758995 2168611387 1095778948 2783341697
4287622072 789320913 3298758784 1781309371 2603323247
1877732367 3318325397 2610340414 3202621117 3484244333
2386700153 2140628891 711150295 2618988265 363744974 3851638366
82041034 40805068 2925094807 1388813285 3999893009 3403647032
1203065702 268240835 844131344 2550084466 843463763 373504227
338423220 3883277610 2673046356 4093610006 2553736818 945161050
1362132397 4212564488 1056100996 974238530 548932665 3367392429
2080540631 1183522464 179191736 3571489996 3459360224 949087941
230531568 2500482280 1592441739 1774114988 3271234172
1600996439 1174928683 2345163984 2172060185 919685351 317088612
2815540150 2233361223 2600474749 1939776096 3743611531
4204241135 4184132196 1374026476 998233547 1600519522
3918263387 3630333957 495565228 4284960299 263012120 3217407433
1344439657 2631617371 3645267057 4284054607 400996178
2170500785 29057271 3499258316 425176837 3513039700 1482717615
988815619 3984368269 3205243237 997871107 1360356240 1420812951
62958737 2069147545 3884556381 179344508 377811539 2892433191
4118519810 3463293647 3711930343 1834011232 3520381618
2750974531 3872544276 2947499907 2113028182 3412259525
1566556049 289056068 1668323657 241959646 976744717 4218228889
4229953595 4261078930 4209047216 2712412443 1515090266
421096805 475412312 4111068984 1821308616 3791122383 1958332671
550386618 1768561639 722803012 2863947099 4169954981 2171840263
2753926019 1397374064 3921236769 25755639 533277953 3665513460
1980573955 2503033179 2379639471 2607394004 3758733314
190128890 1965332536 41259284 1251078780 3821310442 1476543367
1337023353 2067025908 639674950 3052184892 394092821 3774778345
2293460723 2847981495 3113648396 852716074 3495910967
3262513194 734200532 608146252 1778174629 3551115358 2620031836
2628068290 663280749 3656404399 1158918795 3843509282
3671438262 4184786203 869637163 755409323 3754904876 761306177
1283682396 3582466921 2370079883 251643079 547889982 4226029362
3216859410 1712905486 4119150506 910332013 4136128962
3754920935 1643853495 1599995282 3754801092 1576272457
376795183 2594663251 3081941438 1187101942 4149263934
3092559069 340767944 4238957750 912355896 1511655912 217226174
1531060680 497739552 4227682676 1774900424 3865347619
3696233591 158007196 3343210085 509718040 626821459 138713755
2550854660 219381308 1524820875 4099524946 559925206 731209552
2099276915 3337735390 3121814038 3372875722 1968405812
3227829457 3470002883 1588133802 3945554786 760815665 599453250
2114933752 1204511788 3843398833 1396708907 2001418884
144852332 3038785936 2738401935 449243287 320050314 1224570474
3511418160 2917151257 1459698082 1388902987 1195531055
2252052772 310559741 1617213905 3286081809 3777048604
4189164862 1553500181 1368155625 4165295758 617792680
2466086992 3253568611 3173817322 2774576275 3748966465
1160437271 2505926332 3775346949 3163010926 2527603629
1971512605 2097439263 34522602 3643036007 2224988810 155773375
2803134835 2715630766 2054487542 299000718 1076512546
2796867052 2433457924 1390015869 1522612236 966071362
3849736748 3975321006 1636410469 3540214169 2999381480
926161273 1736364005 2441415453 4266261605 3658296425 48054782
2140010851 1999034328 1053117388 2080052652 3697550450
907664327 625096374 1767964162 2974340196 3257951348 1981568042
862272047 3730578884 3401072829 2190031665 322414683 1552621860
2074338007 4159112877 125485798 33946879 2142915037 3943293455
1127390464 1342471338 2234102973 1617397922 4050462103
540543405 4077152395 2019952627 1780459206 1378766288
2158005955 4278492532 2539114819 3647494646 1879219451
1507834613 1023236248 814042701 463084471 1386406026 2352610351
1007654170 346472348 1872238311 327950618 2478177183 3351137359
3405563995 4149880088 1009326344 3386124938 557259632
2558313876 2651929747 1781366939 3120310569 2528199519
1686592282 4209338129 707284613 1972316645 1411550561 216672590
1906248757))
(%i2) set_random_state (s1) ;
(%o2)                                done
(%i3) n : 100;
(%o3)                                 100
(%i4) array(Lx, flonum, n) ;
(%o4)                                 Lx
(%i5) array(Ly, flonum, n) ;
(%o5)                                 Ly
(%i6) muenze_werfen(n) := block(       [muenze, L:[0,0], k:0],      print("Ich werde die Münze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),      for i: 1 thru n do (             muenze : random(2) + 1,           L[muenze] : L[muenze] + 1,      L1[1, i] : i,      if muenze = 1 then L1[2, i] : L[1]/i else L1[2, i] : k,      k : L1[2, i]      /*, print("muenze = ",muenze,", k = ", L[1],", q = ", float(L1[2, i])) */   ),      print("Zahl wurde ", L[1], " mal geworfen"),      print("Kopf wurde ", L[2], " mal geworfen"),   print("Von ", n," Würfen")) ;
(%o6) muenze_werfen(n) := block([muenze, L : [0, 0], k : 0],
print("Ich werde die M?nze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),
for i thru n do (muenze : random(2) + 1, L       : L       + 1, L1     : i,
muenze    muenze        1, i
L
1
if muenze = 1 then L1     : -- else L1     : k, k : L1    ),
2, i   i         2, i            2, i
print("Zahl wurde ", L , " mal geworfen"),
1
print("Kopf wurde ", L , " mal geworfen"), print("Von ", n, " W?rfen"))
2
(%i7) muenze_werfen(n);
Ich werde die M?nze  100 mal werfen. 1 = Zahl, 2 = Kopf
Zahl wurde  64  mal geworfen
Kopf wurde  36  mal geworfen
Von  100  W?rfen
(%o7)                                W?rfen
(%i8) f(x) := 0.5;
(%o8)                             f(x) := 0.5
(%i9) plot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
plot```
Run Example
```s1: make_random_state (true) ;
(%o1) #S(RANDOM-STATE STATE
#(0 2567483615 624 3634217566 1875669938 863596705 1284937864
3335159569 3714237471 1605262098 2416712070 2970203420
2794685151 2034624059 73326317 2469775501 2893391736 224484656
781743103 3090299563 1943311806 591088493 2914850580 2794381762
1500434645 3158693818 772248495 349104931 594378728 4076773026
1673510560 437345953 384138914 2814224392 2097587729 753800304
4058906705 1800405628 4115718260 1749630487 1371096275
3718940928 3132074326 3124216396 2266851055 3609817259 87775859
3505863307 3113541589 3060227841 632690526 2666169926
2419940613 1043297013 1844475868 2467270501 3098718936
1546467896 898595252 766007356 3561417701 797124600 2800385299
4008210673 3569619383 1254117442 3735586222 2881573505
3187845360 437529020 2288915311 1070464837 2160370558
3514162226 1739397276 1908521785 1294456161 394759978
1983837661 3782065176 850569716 857514386 2143346921 2781668312
1119588179 921726380 3879751983 1879347888 1394972970
1090154829 3531890515 1080781544 519495494 4157377784
4194497122 3280374177 1059716935 1411364449 2780582975
906813809 231828214 982964592 166771091 3595428451 3951013957
2560623108 1851785925 2964847548 947978335 1789983973
3915762271 3875017400 1224898356 3191301463 1382578168
3208287917 3213499004 1528554024 1495739296 1077174265
2613941581 3861655457 442137953 745758909 2843037706 861199266
57825637 2612482645 2126842832 4123493107 2438535471 3000697921
663063024 336649266 232497725 757376917 3728202574 192985831
4263533738 1761214517 640280845 1469835179 220356765 1955537789
3738852473 3338258096 516304942 3980107958 1115309306
1879345817 2317223563 2299979169 1650578660 2580188143
3779463704 113733695 226099316 2391556702 3982322407 3226153104
1923995036 1496403087 2454532773 3743505283 1654692385
2461527874 3696927971 1948183812 4096667806 2659726231
3026851696 2961523362 1201334729 3954328722 1878894304
1770537073 2420989149 4082236329 2024555713 2919358576
3807940523 1586075130 3949494202 1453548977 2813480741
868620825 3016666516 2458501862 232908973 3093324283 205777144
759145108 3391641889 562847016 3327338887 2460157396 2303382575
4283222915 1655949891 2281316046 1740460865 2248087814
3240362843 2959567488 2992281619 764811391 2395775462
1989862336 1430594802 733126573 782734608 3931332640 1984735648
1114445399 2052576961 634682004 1819906361 1932870638
2766648610 2201523832 2737875195 393145367 3283907822
1114109789 1776866345 259857574 3778749533 694003702 3499092719
1240726526 924246910 1547186074 618773516 2399509922 1039257863
2222274475 3467077526 3482164147 754949467 1032571091
2556700460 851252244 820224211 2225364783 3791889074 1012328903
2849422198 4231334328 188672700 3600103714 5846012 2615631716
4162861623 2873674622 1761715431 3643745722 4275627002
3848352571 2320117271 1619029065 580206953 2596470895
1764000004 2811598077 3518578848 1780661333 214516267
3002932991 2824708058 107129154 3394181653 616894906 3964832111
3121546410 1912782679 4141122558 1952807138 1273965985
3022496051 1564267113 4134579229 3814848236 3075822690
3446778616 1932904736 2831287327 3247056268 2760071559
3244130198 2889683943 3405866872 2420877223 2618520122
3142846778 3248397371 716544828 2556255185 2579375717
3949151946 3129704309 4034984476 3549840997 3670039913
2244515326 2320173465 1593556565 3598257235 2072554688
111571542 456467232 2711813331 340826281 2652744930 2102990230
1809077450 565385295 567533412 115320750 1689994977 1727059868
2712868654 3577917850 998896540 3390020044 2585818860
3606465320 3482496058 613905601 444815978 4061882136 1689919982
455166867 2593750344 3349219708 3340154726 1407084837 754958465
1316158771 2168170505 633614503 2902561332 3763836576
1151380130 2099875491 3710384447 3318379010 3924329660
3976173491 2933131721 1534230897 629277323 359949619 158939516
2130381642 1696831734 1453885907 3204301627 2317780959
317972628 2440220616 3120895511 2472932527 1675959976 694979349
399777202 3530685092 1420575822 3400416151 1168881361 558133630
53425701 2627545865 3075989448 3002361380 941663345 3354942217
2197440103 623694927 3396799394 3549937917 538514351 1932946565
1009218959 1684269543 2162253627 460264443 3026269830
1579362196 3844103242 153516879 3881103022 989315269 994802750
1475818492 658827608 3765971264 1112679416 662139847 2642882062
3494746184 2200582692 4157687948 357509370 1543435826
4240273072 2715777329 1231822258 661750835 1894610100 773253631
1815923250 1201017527 3643984231 2425092622 3596489815
3930782400 2937867148 863686308 3733277779 4137545008
3500401088 1959685777 1418506355 2433523870 808639281
3853825275 3891011455 157665684 555007245 3451227339 2322568339
2424190945 3639183676 3813596809 821798945 2234122165 896259044
3274415782 1251927500 1044799637 3146176894 1761291170
3404166150 847934641 3857302670 2873426523 485134296 4268579316
2416619312 1851187832 1154030716 1191322641 3851734033
1634215644 1995348980 1028433517 3175677894 1829293594
3246572910 3057269449 1308415712 3756405135 4046027271
1573210464 2160188946 1589849630 763939594 4041635522 197207286
3400875232 1699447394 3024514531 3183330458 3929795022
1516041400 582127573 171884002 663543300 3212819823 331354845
1424668686 2038671049 1420416711 2992354302 2909003853
1369098253 2406701727 172738261 3911217390 1756783719
2994353189 2972742731 3495424950 1242694995 2603810117
1704586735 1603354323 3198823624 3164719009 958332991
3054883276 679806520 4166479371 647541532 2816256001 739042853
792959888 3571216840 3026946576 433003796 1087516383 4262677906
3709285682 3321247571 552445071 4273698155 3886152713 789564404
2299333959 2267228989 3854420192 1989590677 461530731
2486086975 3922395162 1825795303 385552073 2675271769
4238860532 3764449921 3784655193 2706502802 4045836001
115036988 2864116927 2958210469 1063848952 799109870 3182802941
3022131379 1832276206 843503461 1056639476 1728742240
3407593570 713937251 750164270 4098232134 1689449818 2573566473
166802298 3775634246 1519333726 3380827041 1778365201
1311061880 1336780262 1520178509 3960345895 1859820896
4095738482 788951491 1623277342 1692303467 426206723 1769462881
1205425171 2335821646 2563929905 3006813269 3703363466
3600309317 1097326551 3416184744 1623366578 402602715 237923748
2692351986 368350191 1815234187 3176902835 1200779543
4209337841 2712517822 1018172529 1736412123 3793738057
1793021562 4039242704 1992695689 532822771 2580696875
2994024058 56725414 2162656461 3071487739 3548629902 130598387
1909073458 2727829363 1877156586 3401157645 59359709 2804138889
294554416 1141480522 3866873586 2234425457 1718082236
2989716463 4275147744 2148062703 326319586 1640193676 831046916
3481329912 3776714860 1479675185 824043095 1634824635
3149163211 1389540535 684766265 3294141929 3974007231
2678453658 2752528231))
(%i2) set_random_state (s1) ;
(%o2)                                done
(%i3) n : 10;
(%o3)                                 10
(%i4) array(Lx, flonum, n) ;
(%o4)                                 Lx
(%i5) array(Ly, flonum, n) ;
(%o5)                                 Ly
(%i6) muenze_werfen(n) := block(       [muenze, L:[0,0], k:0],      print("Ich werde die Münze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),      for i: 1 thru n do (             muenze : random(2) + 1,           L[muenze] : L[muenze] + 1,      L1[1, i] : i,      if muenze = 1 then L1[2, i] : L[1]/i else L1[2, i] : k,      k : L1[2, i]      /*, print("muenze = ",muenze,", k = ", L[1],", q = ", float(L1[2, i])) */   ),      print("Zahl wurde ", L[1], " mal geworfen"),      print("Kopf wurde ", L[2], " mal geworfen"),   print("Von ", n," Würfen")) ;
(%o6) muenze_werfen(n) := block([muenze, L : [0, 0], k : 0],
print("Ich werde die M?nze ", n, "mal werfen. 1 = Zahl, 2 = Kopf"),
for i thru n do (muenze : random(2) + 1, L       : L       + 1, L1     : i,
muenze    muenze        1, i
L
1
if muenze = 1 then L1     : -- else L1     : k, k : L1    ),
2, i   i         2, i            2, i
print("Zahl wurde ", L , " mal geworfen"),
1
print("Kopf wurde ", L , " mal geworfen"), print("Von ", n, " W?rfen"))
2
(%i7) muenze_werfen(n);
Ich werde die M?nze  10 mal werfen. 1 = Zahl, 2 = Kopf
Zahl wurde  5  mal geworfen
Kopf wurde  5  mal geworfen
Von  10  W?rfen
(%o7)                                W?rfen
(%i8) wxdraw2d(points_joined=true, points(listarray(Ly))) ;
(%o8) wxdraw2d(points_joined = true, points([0.0, 0.0, 0.0, 0.0, 0.0, 0.0,
0.0, 0.0, 0.0, 0.0, 0.0]))
(%i9) f(x) := 0.5;
(%o9)                             f(x) := 0.5
(%i10) plot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
plot```