Sponsored links: Algebra eBooks
 

Related

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

pr_nonnegintegerpolyp...

pr_nonnegintegerpolyp...

Calculate

block-load-mod-next_prime-power_mod-totient

p:next_prime(13453531);

nod(a,b):=block(load...

b:4597311;

Calculate

array-do-if-listarray-plot2d-sin
plot2d([f,[discrete,pointx,pointy],[discrete,rx,ry]],[x,0,6.28],[style,lines,points,points],[legend,"sin(x)","",""]);

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)),[x,0,10]);

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

float-log-pi-sqrt

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]);
plotplot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
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]);
plotplot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
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]);
plotplot2d([[discrete, listarray(Lx), listarray(Ly)],f], [x,0,n]);
[abs,array,do,if,listarray,plot2d,sin] [abs,define,diff,expand,find_root,float,plot2d,realroots] [abs,define,diff,find_root,float,pi,plot2d] [abs,exp,float,plot2d] [addrow,block,concat,display,false,if,log,matrix,numer,print,return,round,true,while] [addrow,block,concat,false,if,log,matrix,numer,print,return,round,true,while] [addrow,block,cos,define,float,if,matrix,print,subst] [append,ascii,block,concat,copylist,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,concat,delete,divsum,first,if,make_random_state,next_prime,second,set_random_state,slength,substring,true] [append,ascii,block,copylist,delete,divsum,first,if,make_random_state,next_prime,print,sconcat,second,set_random_state,slength,substring,true] [append,block,debugmode,print,return,rhs,true] [args,asin,atan2,block,cos,flatten,float,ident,length,make_random_state,makelist,matrix,set_random_state,sin,sqrt,subst,transpose] [args,asin,atan2,block,cos,flatten,float,ident,length,make_random_state,makelist,matrix,set_random_state,sin,sqrt,transpose] [array,block,float,listarray,make_random_state,plot2d,print,set_random_state,true] [array,block,float,listarray,make_random_state,plot2d,print,set_random_state] [array,do,if,listarray,plot2d,sin] [array,listarray] [bfloat,block,denom,false,float,mod,ratexpand,ratprint] [bfloat,block,ev,exp,fpprec,if,log,numer,print] [bftorat,block,delete,float,if,integerp,mod,rat,ratdenom,ratepsilon,ratprint] [block,concat,do,kill,makelist,obase,return,stringdisp,true,while] [block,do,float,round] [block,exp,float,fpprec,if,log,print] [block,float,genmatrix,lambda,length,lmax,lmin,make_random_state,makelist,matrix,return,set_random_state,sqrt,sum,transpose,true] [block,float] [block,genmatrix,if,print,random,return,while] [block,genmatrix,lambda,length,lmax,lmin,make_random_state,makelist,matrix,set_random_state,sqrt,sum,transpose,true] [block,inv_mod,print,while] [block,plot2d] [block,primep,print] [cos,define,diff,expand,find_root,float,log,plot2d] [cos,define,diff,expand,float,log,plot2d] [cos,define,diff,find_root,float,plot2d,sqrt] [cos,define,diff,float,plot2d,sqrt] [cos,diff,float,ic2,ode2,plot2d,rhs,sqrt] [cos,globalsolve,linsolve,plot2d,sin,true] [debugmode,diff,plot2d,true] [define,diff,expand,float,plot2d,realroots] [define,diff,expand,float,plot2d,sin] [define,diff,float,plot2d,realroots] [define,float,pi,plot2d] [define,float,plot2d,realroots] [diff,float,plot2d,solve] [exp,float,globalsolve,linsolve,plot2d,true] [exp,float,plot2d,sum,true] [exp,float,print,round] [exp,numer,plot2d,true] [float,max,plot2d,solve,sqrt] [float,plot2d,solve] [globalsolve,linsolve,plot2d,true]

Related Help

Help for Array

Help for Block

Help for Float

Help for Listarray

Help for Make_random_state

Help for Plot2d

Help for Print

Help for Set_random_state

Help for True