In[]:=
deploy
Sat 18 Sep 2021 11:48:38
Animate sin rotation
Animate sin rotation
In[]:=
steps=5;v1={0,0,100};v2={100,0,0};blendViewpoints[v1_,v2_,t_]:=With[{angle=t*Pi/2},v1*Cos[angle]+v2*Sin[angle]];R=ParametricRegion[{{s,Sin[s]+tt},0≤s≤2Pi&&0≤tt≤.1},{s,tt}];genPlot[t_]:=With[{vp=blendViewpoints[v1,v2,t]},Plot3D[1,{x,y}∈R,Filling->Axis,Mesh->False,Axes->None,Boxed->False,ViewPoint->vp,ViewVertical->{0,1,0},SphericalRegionTrue]];ListAnimate[Table[genPlot[t],{t,0,1,1/steps}]]
Out[]=
Generate density
Generate density
In[]:=
n=1;dist=DirichletDistribution[ConstantArray[1/2,n+1]];qs=Table,{i,1,n};xs=Array[x,n];rv=qs.xs;dist2=TransformedDistribution[rv,xsdist];numSamples=1000000;data=RandomVariate[dist2,numSamples];skd=SmoothKernelDistribution[data,Automatic,{"Bounded",{0,1},"Epanechnikov"}];img=Plot[PDF[skd,x],{x,0,1},FillingAxis,PlotRange{0,3}]data2=RandomVariate[UniformDistribution[{0,.2}],numSamples];hist=DensityHistogram[Transpose[{data,data2}],100,PlotRange->{{0,1},{-1,1}},ColorFunction(GrayLevel[1-#]&),Frame->False];Rotate[hist,Pi/2]
1
i
Out[]=
Out[]=