Advanced Search

Aakanksha

30 Reputation

4 Badges

10 years, 25 days
Contact Aakanksha

MaplePrimes Activity


These are questions asked by Aakanksha

plotting array of values...

Aakanksha 30 Maple
student
September 09 2014
1 12


> 

restart:
> 

k:=75.11: m:=2: L:=3: with(plots):

Warning, the name changecoords has been redefined

> 

a:=(m*L)+k-1:
> 

b:=k-(m*L):
> 

p:=((((k*m)/snr)^((a+1)/2))*MeijerG([[-a/2,(1-a)/2],[]],[[b/2,-b/2],[-(1+a)/2]],((k*m)/snr)))/(2*sqrt(Pi)*GAMMA(m*L)*GAMMA(k)):
> 

result:=[seq([i,evalf(eval(p,snr=i))],i=1..30)];

result := [[1, -0.6330041673e120], [2, -0.4613210864e64], [3, 0.3668245238e39], [4, 0.1139121839e25], [5, 0.3579973839e14], [6, -206229.5169], [7, -0.3974877718e-1], [8, 0.9674643749e-5], [9, 0.5391296818e-5], [10, 0.3196265870e-5], [11, 0.1976463916e-5], [12, 0.1266745865e-5], [13, 0.8372952650e-6], [14, 0.5684795395e-6], [15, 0.3951633407e-6], [16, 0.2804713655e-6], [17, 0.2027996228e-6], [18, 0.1491013191e-6], [19, 0.1112814841e-6], [20, 0.8419420597e-7], [21, 0.6449585541e-7], [22, 0.4997027323e-7], [23, 0.3912177900e-7], [24, 0.3092406713e-7], [25, 0.2466212008e-7], [26, 0.1983074835e-7], [27, 0.1606835720e-7], [28, 0.1311299491e-7], [29, 0.1077276000e-7], [30, 0.8905591111e-8]]

> 

plots:-pointplot(result);

Error, `plots` does not evaluate to a module

> 

 

 


Download ak_BER_9sep.mw

need to plot these values for various values of i.

any help??

unable to evaluate the function to numer...

Aakanksha 30 Maple
student
September 01 2014
2 16


> 

k:=0.99: with(RealDomain):
> 

m:=1: Digits:=2:
> 

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

> 

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

> 

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

> 

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

> 

with(plots):

Warning, the name changecoords has been redefined

> 

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

> 

 

 


Download capacity_kfading.mw

> 

k:=0.99: with(RealDomain):
> 

m:=1: Digits:=2:
> 

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

> 

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

> 

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

> 

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

> 

with(plots):

Warning, the name changecoords has been redefined

> 

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

> 

 

 


Download capacity_kfading.mw

> 

k:=0.99: with(RealDomain):
> 

m:=1: Digits:=2:
> 

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

> 

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

> 

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

> 

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

> 

with(plots):

Warning, the name changecoords has been redefined

> 

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

> 

 

 


Download capacity_kfading.mw

> 

k:=0.99: with(RealDomain):
> 

m:=1: Digits:=2:
> 

x:=(Pi*csc(Pi*(k-m)))/(0.693*GAMMA(k)*GAMMA(m));

x := -1.4*Pi*csc(0.1e-1*Pi)

> 

m1:=MeijerG([[-m],[1-m]],[[0,-m,-m],[k-m]],(-m*k)/snr);

m1 := MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)

> 

m2:=MeijerG([[-k],[1-k]],[[0,-k,-k],[m-k]],(-m*k)/snr);

m2 := MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr)

> 

c:=x*((((m*k)/snr)^m)*m1-(((m*k)/snr)^k)*m2);

c := -1.4*Pi*csc(0.1e-1*Pi)*(.99*MeijerG([[-1.], [0.]], [[0., -1., -1.], [-0.1e-1]], -.99/snr)/snr-.99*(1/snr)^.99*MeijerG([[-.99], [0.1e-1]], [[0., -.99, -.99], [0.1e-1]], -.99/snr))

> 

with(plots):

Warning, the name changecoords has been redefined

> 

plot(c,snr=0..10);

Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Error, empty plot

> 

 

 


Download capacity_kfading.mw

require help to overcome this warning. Thanks.

stack limit reached...

Aakanksha 30 Maple
August 26 2014
1 4

I was calculating average BER for BPSK and while its execution encountered kernel failure with an error message as "execution stopped:stack limit reached.worksheet lost connection to kernel.you should save worksheet and restart maple."

how to overcome this error. Any help?

1 2 Page 2 of 2