Приложение б
Текст программы на Scilab 5.3.1:
function []=task2()
k=400
for i=1:1:k
d=rand(1)
if d<0.5 then array(i)=1.5*(2*d)^(2/3)-1.5
else array(i)=1.5-1.5*(2-2*d)^(2/3)
end
end
n=floor(1+3.32*log10(k))+1
histplot(n,array)
array=-array
sortArray=gsort(array)
sortArray=-sortArray
array=-array
for i=1:1:k
sortArrayGauss(i)=0.5*sqrt(1-abs(sortArray(i))/1.5)
end
plot(sortArray,sortArrayGauss)
f1=mopen('C:\data2.txt','w')
for i=1:1:k
mfprintf(f1,"%.17f\n",array(i))
end
mclose(f1)
f1=mopen('C:\table2.txt','w')
mfprintf(f1,"Приближенное мат.ожидание - %.3f\nПриближенная дисперсия - %.3f\n",mean(array),variance(array)*(n-1)/n)
mfprintf(f1,"\nminA maxA t otn midleA midleAGauss height\n")
l=(sortArray(k)-sortArray(1))/n
all=0
M=0
D=0
for i=1:1:n;
minA=sortArray(1)+l*(i-1)
maxA=sortArray(1)+l*i
j=1
t=0
while (sortArray(j)<maxA)&(j<=k)
if sortArray(j)>=minA then t=t+1
end
j=j+1;
end
if i==n then
t=t+1
end
all=all+t
otn=t/k
midleA=(minA+maxA)/2
midleAGauss=0.5*sqrt(1-abs(midleA)/1.5)
height=otn/l
mfprintf(f1,"%.3f %.3f %d %.3f %.3f %.3f %.3f\n",minA,maxA,t,otn,midleA,midleAGauss,height)
M=M+t*midleA
D=D+t*midleA^2
end
mfprintf(f1,"%d\n",all)
M=M/k
D=D/k
D=D-M^2
mfprintf(f1,"\nВыборочное среднее - %.3f\nВыборочная дисперсия - %.3f\n",M,D)
mclose(f1)
endfunction
Полученная с помощью представленной выше программы выборка чисел:
-0.38387373888221510
-0.60823559138485916
0.65744102691327666
0.62900064835360014
-1.24703396551295720
0.50623897834053910
0.97363362512066753
-0.53695121783449840
-1.18845860932682080
0.69257396784166958
-0.24408036400250799
-0.39615308641523228
0.38099313037151639
0.73798867559108039
-1.02141360772836510
-0.60961571512983403
-0.56064781549988130
-0.21485160729963604
-0.15922775348608220
0.70524847792737844
-1.14884609729684620
-0.89227441319299228
-1.32009689151587620
0.55928265832840651
0.77278409069170517
-0.14870881077668252
-1.36445504987885950
-1.24503602045253150
-0.57098079906196331
-0.71866684452855822
-0.68796432881924896
0.64064729991372338
0.18945521675159394
0.00445911110065444
1.45709194289106180
0.25657944416374878
-0.59589954781613286
-0.87674137828767584
0.03743435998484257
1.23849160239496840
0.90883920987880540
1.30314400082093810
0.18236648200133021
-0.72036614158115353
-0.43283395462969887
-0.65613117984019453
-1.06220313199919890
-0.66771264718241441
0.26906483119396940
-0.23418520252932051
-0.24232703619388651
-0.27732357842248612
0.48753351162065250
-0.85562607771544918
-0.23929946183800621
-0.78595695339125538
0.69920127862218995
0.59459786075212073
0.56258482619446282
0.49774030366851640
0.97505088860938471
-0.27627017463151704
1.06939535814811440
0.13546686776442929
-0.76778199958012849
0.72370801628730641
0.20114810445142806
0.05597942567226499
0.71269689938325376
-0.73060103598302950
-0.96443652529632828
-0.13241980747795612
-0.07240349639052557
1.26856321104150190
-0.02601584026795090
-0.23481398055770630
0.99059278708894372
0.47348876372135118
0.21510671594106845
-0.74959583257861295
1.14849162542069030
-0.34672978870840065
-0.75634190589469119
0.69471988567060738
-0.46106733498489572
0.71425782880555633
-1.25005858253562540
0.08949810693531601
-0.43116102578577653
-0.00911136861174411
-0.04204566182234748
0.11519542593259935
-0.26155493609600189
0.59138715683391307
-1.19982645564804940
-0.04621097031487986
1.21512789190486980
-0.73154874763878319
0.10134092493060942
1.37471311632045800
0.77339265379252908
1.21022681690823800
0.57703052128575272
0.73661931519727641
0.51941504229032809
0.84861720706501198
0.00352746120839798
-0.82300820552641241
1.16987938190560060
-0.33008408612019302
0.20457998504350794
0.99694068941059999
0.95569586962872810
-0.90917664128170861
-0.14751008582008640
0.80271221613281807
-0.27490160519232432
0.75551686542376983
-0.02553818548520193
-1.31383824776378820
0.08112046150871177
-1.17405483476617540
0.64942521593145097
-0.01163145770764751
-0.70214092144511742
-0.01516163098535994
-0.16385584999057423
0.58981816266185527
-0.10005405139289225
-0.32026736183373372
-0.79517947874692330
1.24957869396999400
-0.07806105742938030
0.56047711824180890
-0.17154525797469700
-0.61085589000782947
-0.66127919667783530
-0.14219974579981809
-0.20981267441925944
-0.72676698290766073
-1.44709104336311010
-0.38674894641131963
0.80489299088268962
-0.93123336797005996
0.58639641407812093
-0.32966919001988182
-0.91487988881670546
0.38508543594430567
0.37436816456680533
-1.01832180541307850
-0.95633574726375814
0.42569139800185929
-0.34479298582581563
0.17141719219302587
0.23622313631488345
1.32034542639452110
1.22723702188554310
0.94876514782181720
0.55461116922439491
0.30063318328570388
0.51947295912629554
0.59800928586410074
-1.05785097970243450
0.96337835040672248
1.20603816099203520
-1.04742768862748850
0.87878389273952950
0.55043112736487498
1.44300007625428180
-0.67955482639962272
-0.46055809904808687
0.34292294600318218
0.48304002452441752
-1.02941507441298090
1.20361395537585510
0.03907100793561646
-0.11491609109751089
-0.39487175924936668
0.15774658762396743
1.34444618542655060
-1.39379768464684690
0.51179762958615949
-0.96260453033949156
0.28929538859949089
-0.97529831252130372
1.24036972132861710
-0.57632532551661630
1.05672038390802790
-0.25343201778625191
0.01451869482458390
0.15797954910183720
-0.43550990444088522
-0.00845683151503662
0.23591411614923086
-0.43378892388480761
0.36162753774404344
0.35648774020468688
0.39491858938956415
0.52591122582104977
-0.14163121717439742
0.69454292190272460
-0.20286227244696287
0.26032227605570557
-0.62560965621766618
0.82738168626017605
-0.40292478860628389
-0.19501566003995174
0.63372534453856766
-0.17750486764007656
-1.08281740736235710
-0.08578975048820547
0.94399726723542954
-0.50622317575393250
-1.00902466007255900
0.06706412105801585
0.92133666016426652
0.79601808924944817
0.63909502689019004
-0.43991411589097673
0.41429091526612649
-0.57449829456105295
-0.91582235878925999
-0.45929206300575220
0.94320648964439513
-1.41256909136159450
0.63766007318878348
-0.80827406057252338
0.34930875737939537
-1.23426696595906300
0.01587787100964566
0.00986904672007127
-0.43864477795487278
1.09364929897537570
1.31904845172392650
-0.67431295936362101
1.32441608634240590
-0.59894358407256265
0.91078378734421050
0.00109149164237765
0.07828517416988512
0.54536304304057870
-0.27351873980189634
0.61458774982793485
1.42539059693994070
-0.10887753265861178
0.52066137955183822
-0.47564352633632900
-0.14170053931407134
-0.85265060584861074
-0.32337800202901534
0.55297003195890193
-0.85184030281490508
-0.11999951285295229
0.48914877714135097
-0.92954246927421780
0.05927627627581633
-0.85986122189869862
0.94174189693316390
-0.36003907079397157
0.46764069379377515
0.21756226768589193
0.49738649732296847
-0.03292720585240594
-0.34398027096302108
-0.50940630921365226
0.20926836911450586
-0.77110663077695918
0.02695926891316436
0.70186491678032414
0.92606066892808991
-0.22117248135984502
-0.20564074533053711
-0.96317392959325554
0.38052670551015444
0.90671681913615554
-0.25695487988170829
0.26163184422178154
-0.11956587934447049
-1.01026185973340520
-0.52069672094914465
-0.68249223672785531
0.39859804977842184
1.02596029020816170
0.17232255795723805
1.21516192378437380
0.04747821118014883
-0.86794976574711680
-0.39129908896877952
-0.30290032514699439
-0.53438976151105488
0.82137743388967732
-0.89768380745032228
-1.47395497372220460
0.50716624072699878
0.78465943418256812
0.02347658851801682
-0.41682086488937320
0.32666745685064669
-1.43087088261154150
0.89349181962598068
0.20590121326385491
0.31087163659971706
-1.05163142991661470
1.14721700745534720
0.57315421303586400
-0.71759984888410777
-0.07924250361439933
0.15646085745411353
1.34389345347918670
-0.66146616249064372
0.10017975203565510
-0.38128906192019452
0.68955953447263751
0.08637620121562062
-0.12244557713382598
0.68542611748498150
0.89352793936281660
1.18305860352587010
-0.51481387584756788
-0.40377896766337695
0.47037427334571369
1.16785966209492510
-1.07929547199339560
0.37980575922592252
1.18485061813425040
-0.89205200971726295
0.13233847746622796
0.54327812871658077
-0.90229001366072492
-0.57060617434059147
0.08068849571727843
0.14641034943061615
0.52198509572927065
0.46153840715017624
-0.19558382195804414
0.45642519199376896
0.10315879980718967
0.71792593267043170
0.14113802229993677
0.20918591303724021
0.66843773177551269
-0.53647613145889128
-1.07060296907370270
0.03532040336901310
-0.38553333492896913
-0.24328374903609262
-0.34799570440513650
-1.20981387853178910
-0.31661993380467379
0.32928921044298165
-0.51058550646317147
0.08593792750276030
0.88284488970499897
0.49240879742476773
0.48621044065312091
0.22614891612397781
-0.49077143362154962
0.55360215961597070
0.04042305208248442
1.11655744908086900
-0.20790336179472657
-0.70157597880548228
1.16202693160164430
0.20590278045205879
-0.13142632685151057
0.78061408349327199
-1.18032254908865660
-0.64581936968411657
1.11765256574730950
-0.75073277619155687
0.17117619358392111
1.09393260780594080
-0.16013338716678049
-1.30210622191139260
1.15794653893069020
0.50757832409539350
0.50272984597976622
-0.22599646108574545
1.15600483130038480
-1.25997116883257720
0.33950903527237553
0.00384946818674736
0.55029591138975131
-1.42635835568167900
-1.14104595791954070
-1.06991582057137080
0.81892361713612749
0.28169052922735105
0.94104821753115186
0.29192535740990722
-0.22108936201901486
1.16354689858334700
-0.21371977717918078
-1.18656795705717590
0.53372777496225998
-0.18564317986459988
-1.40816293440338350
1.38407814592682080
0.08308168124164284
1.13577320663917460