Table

Md Abdullah Shadid Chowdhury

n = Input@D
25

Binomial@n, 4D
12 650

a = 1;
Do@a = a * i, 8i, 1, n<D

DoBa = , 8i, 1, n - 4<F

a
i
DoBa = , 8i, 1, 4<F
a
i
a
12 650

l1 = RandomInteger@8- 10, 10<, 10D

81, 9, 4, 2, - 4, 2, 3, - 2, - 5, - 3<

l2 = l12
81, 81, 16, 4, 16, 4, 9, 4, 25, 9<

l2 = 8<;
DoAAppendToAl2, l1@@iDD2 E, 8i, 1, Length@l1D<E
l2
81, 36, 4, 4, 81, 49, 100, 25, 1, 9<

l3 = l13
81, 729, 64, 8, - 64, 8, 27, - 8, - 125, - 27<

l3 = 8<;
DoAAppendToAl3, l1@@iDD3 E, 8i, 1, Length@l1D<E
l3
8- 1, - 216, 8, 8, - 729, - 343, - 1000, 125, - 1, 27<
2 [Link]

t = TableForm@8l1, l2, l3<, , TableHeadings ®

88"l1", "l2", "l3"<, 8"E1", "E2", "E3", "E4", "E5", "E6", "E7", "E8", "E9", "E10"<<,
TableAlignments ® RightD
E1 E2 E3 E4 E5 E6 E7 E8 E9 E10
l1 1 9 4 2 -4 2 3 -2 -5 -3
l2 1 81 16 4 16 4 9 4 25 9
l3 1 729 64 8 - 64 8 27 -8 - 125 - 27

t1 = TableForm@8l1, l2, l3<, , TableHeadings ® 88"l1", "l2", "l3"<,

8"E01", "E02", "E03", "E04", "E05", "E06", "E07", "E08", "E09", "E10"<<,
TableAlignments ® Right, TableDirections ® RowD
l1 l2 l3
E01 1 1 1
E02 9 81 729
E03 4 16 64
E04 2 4 8
E05 -4 16 - 64
E06 2 4 8
E07 3 9 27
E08 -2 4 -8
E09 -5 25 - 125
E10 -3 9 - 27

t2 = Style@t1, Italic, Bold, Purple, Larger D

l1 l2 l3
E01 1 1 1
E02 9 81 729
E03 4 16 64
E04 2 4 8
E05 -4 16 -64
E06 2 4 8
E07 3 9 27
E08 -2 4 -8
E09 -5 25 -125
E10 -3 9 -27

n = 100;
la = Range@n  10D;
lb = Select@Range@n - 70D, PrimeQD;
lc = 8<;
For@i = 1, Fibonacci@iD £ n - 40, i ++, AppendTo@lc, Fibonacci@iDDD
lc;
ld = 8<;
Do@If@DivisorSigma@1, iD Š 2 i, AppendTo@ld, iDD, 8i, 1, 5 n<D
ld;
 [Link] 3

TabView@8"Positive Integer" ® la, "Prime Number" ® lb,

"Fibonacci Number" ® lc, "Perfect Number" ® ld<, LabelStyle ® 8Red, Bold<D

Positive Integer Prime Number Fibonacci Number Perfect Number

81, 2, 3, 4, 5, 6, 7, 8, 9, 10<

f@x_D := Ex Sin@2 xD

t = Table@i, 8i, - 1, 1, .1<D;

t1 = Table@f@iD, 8i, - 1, 1, .1<D;

Text ž Grid@8Prepend@t, "x"D, Prepend@t1, "fHxL"D<, Background ®

8None, 8Lighter@Yellow, .9D, 8White, Lighter@Blend@8Blue, Green<D, .8D<<<,
Dividers ® 88Darker@Gray, .6D, 8Lighter@Gray, .5D<, Darker@Gray, .6D<,
8Darker@Gray, .6D, Darker@Gray, .6D, 8False<, Darker@Gray, .6D<<,
Alignment ® 8Center<, ItemSize ® 89<, Frame ® Darker@Gray, .6D,
ItemStyle ® 14, Spacings ® 8Automatic, .8<D

x -1. -0.9 -0.8 -0.7 -0.6

f HxL -0.334512 -0.395937 -0.449137 -0.48936 -0.511514 -0

t = Table@8i, f@iD<, 8i, - 1, 1, 0.1<D;

4 [Link]

Style@Grid@Prepend@t, 8"x", "fHxL"<D, Alignment ® 88Center<<,

ItemSize ® 884, 8<<, ItemStyle ® 16, Spacings ® 8Automatic, .8<,
Dividers ® 88False, True, False<, 8False, True<<D, Bold, Italic, BlueD
x f HxL
-1. -0.334512
-0.9 -0.395937
-0.8 -0.449137
-0.7 -0.48936
-0.6 -0.511514
-0.5 -0.510378
-0.4 -0.480858
-0.3 -0.418297
-0.2 -0.318829
-0.1 -0.179763
0. 0.
0.1 0.219564
0.2 0.475637
0.3 0.762188
0.4 1.07017
0.5 1.38735
0.6 1.69829
0.7 1.98445
0.8 2.22459
0.9 2.39528
1. 2.47173
f@x_D := Ex Sin@2 xD
t1 = Table@i, 8i, - 1, 1, 0.1<D;
t2 = Table@f@iD, 8i, - 1, 1, 0.1<D;

Style@Grid@8Prepend@t1, "x"D, Prepend@t2, "fHxL"D<, ItemSize ® 86<,

Alignment ® 8Center<, ItemStyle ® 14, Spacings ® 8Automatic, .8<,
Dividers ® 88False, 8True<, False<, 8False, True, False<<D, Bold, Italic, PinkD
x -1. -0.9 -0.8 -0.7 -0.6 -0.5
fHxL -0.334512 -0.395937 -0.449137 -0.48936 -0.511514 -0.510378
 [Link] 5

* i>, 8i, 0, 60, 5<F

Pi
t = TableB:i,
180

:80, 0<, :5, >, :10, >, :15, >, :20, >, :25, >,
Π Π Π Π 5Π
36 18 12 9 36

:30, >, :35, >, :40, >, :45, >, :50, >, :55, >, :60, >>
Π 7Π 2Π Π 5Π 11 Π Π
6 36 9 4 18 36 3

Grid@Prepend@t, 8"Degree", "Radian"<D, Alignment ® 8Center<,

ItemSize ® 888, 8<<, Dividers ® 88False, True, False<, 8False, True, 8False<<<D
Degree Radian
0 0
Π
5 36
Π
10 18
Π
15 12
Π
20 9
5Π
25 36
Π
30 6
7Π
35 36
2Π
40 9
Π
45 4
5Π
50 18
11 Π
55 36
Π
60 3

* iF>, 8i, 0, 360, 30<F

Pi Pi Pi
t = TableB:i Degree, SinB * iF, CosB * iF, TanB
180 180 180

:80, 0, 1, 0<, :30 °, >, :60 °, 3 >,

1 3 1 3 1
, , , ,
2 2 3 2 2

890 °, 1, 0, ComplexInfinity<, :120 °, 3 >,

3 1
,- ,-
2 2

:150 °, >, 8180 °, 0, - 1, 0<, :210 °, - >,

1 3 1 1 3 1
,- ,- ,- ,
2 2 3 2 2 3

:240 °, - 3 >, 8270 °, - 1, 0, ComplexInfinity<,

3 1
,- ,
2 2

:300 °, - 3 >, :330 °, - >, 8360 °, 0, 1, 0<>

3 1 1 3 1
, ,- , ,-
2 2 2 2 3
6 [Link]

Text ž Grid@Prepend@t, 8"x", "SinHxL", "CosHxL", "TanHxL"<D, Alignment ® 8Center<,

ItemSize ® 88<, Frame ® All, ItemStyle ® 14, Spacings ® 8Automatic, .8<D

x SinHxL CosHxL TanHxL

0 0 1 0
1 3 1
30 ° 2 2 3

3 1
60 ° 2 2
3

90 ° 1 0 ComplexInfini„
ty
3 1
120 ° 2
-2 - 3

1 3 1
150 ° 2
- 2
-
3

180 ° 0 -1 0
1 3 1
210 ° -2 - 2 3

3 1
240 ° - 2
-2 3

270 ° -1 0 ComplexInfini„
ty
3 1
300 ° - 2 2
- 3

1 3 1
330 ° -2 2
-
3

360 ° 0 1 0

t1 = Table@i Degree, 8i, 0, 360, 30<D;

* iF, 8i, 0, 360, 30<F;

Pi
t2 = TableBSinB
180

* iF, 8i, 0, 360, 30<F;

Pi
t3 = TableBCosB
180

* iF, 8i, 0, 360, 30<F;

Pi
t4 = TableBTanB
180
Text ž Grid@8Prepend@t1, "x"D, Prepend@t2, "SinHxL"D, Prepend@t3, "CosHxL"D,
Prepend@t4, "tanHxL"D<, Alignment ® 8Center<, ItemSize ® 8, Frame ® AllD

x 0 30 ° 60 ° 90 ° 120 ° 150 °
1 3 3 1
SinHxL 0 2 2
1 2 2

3 1 1 3
CosHxL 1 2 2
0 -2 - 2
1 1
tanHxL 0 3 ComplexInfinity - 3 -
3 3
 [Link] 7

t1 = Table@i, 8i, 1, 30<D;

, 2F "%", 8i, 1, 30<F;

100
t2 = TableBNBi *
30
t3 = 8<;
100
DoBIfBNBi * , 2F ³ 90, AppendTo@t3, 5D,
30
100 100
IfBNBi * , 2F ³ 85, AppendTo@t3, 4D, IfBNBi * , 2F ³ 80, AppendTo@t3, 3D,
30 30
100 100
IfBNBi * , 2F ³ 75, AppendTo@t3, 2D, IfBNBi * , 2F ³ 60,
30 30
AppendTo@t3, 1D, AppendTo@t3, 0DFFFFF, 8i, 1, Length@t2D<F
t3;
Text ž Grid@8Prepend@t1, "No. of Class"D,
Prepend@t2, "Percentage"D, Prepend@t3, "Marks"D<, Background ®
8None, 8Lighter@Yellow, .9D, 8White, Lighter@Blend@8Blue, Green<D, .8D<<<,
Dividers ® 88Darker@Gray, .6D, 8Lighter@Gray, .5D<, Darker@Gray, .6D<,
8Darker@Gray, .6D, Darker@Gray, .6D, 8False<, Darker@Gray, .6D<<,
Alignment ® 8Center<, ItemSize ® 8, Frame ® Darker@Gray, .6D,
ItemStyle ® 14, Spacings ® 8Automatic, .8<D

No. of Class 1 2 3 4 5 6
Percentage 3.3 % 6.7 % 10. % 13. % 17. % 20. %
Marks 0 0 0 0 0 0

100 100 100

t = TableB:i, NBi * , 2F "%", IfBNBi * , 2F ³ 90, Text@5D, IfBNBi * , 2F ³ 85,
30 30 30
100 100
Text@4D, IfBNBi * , 2F ³ 80, Text@3D, IfBNBi *
, 2F ³ 75,
30 30

, 2F ³ 60, Text@1D, Text@0DFFFFF>, 8i, 1, 30<F;

100
Text@2D, IfBNBi *
30
Text ž Grid@Prepend@t, 8"No of Class", "Percentage", "Marks"<D, Background ®
8None, 8Lighter@Yellow, .9D, 8White, Lighter@Blend@8Blue, Green<D, .8D<<<,
Dividers ® 88Darker@Gray, .6D, 8Lighter@Gray, .5D<, Darker@Gray, .6D<,
8Darker@Gray, .6D, Darker@Gray, .6D, 8False<, Darker@Gray, .6D<<,
Alignment ® 8Center<, ItemSize ® 888, 8, 5<<, Frame ® Darker@Gray, .6D,
ItemStyle ® 14, Spacings ® 8Automatic, .8<D
8 [Link]

No of Class Percentage Marks

1 3.3 % 0
2 6.7 % 0
3 10. % 0
4 13. % 0
5 17. % 0
6 20. % 0
7 23. % 0
8 27. % 0
9 30. % 0
10 33. % 0
11 37. % 0
12 40. % 0
13 43. % 0
14 47. % 0
15 50. % 0
16 53. % 0
17 57. % 0
18 60. % 1
19 63. % 1
20 67. % 1
21 70. % 1
22 73. % 1
23 77. % 2
24 80. % 3
25 83. % 3
26 87. % 4
27 90. % 5
28 93. % 5
29 97. % 5
30 1.0 ´ 102 % 5
 [Link] 9

f@x_D := Sqrt@xD + 2
a = 0;
b = 1;
n = 10;
b-a
dx = ;
n
x@i_D := a + i * dx
sl = Sum@f@x@iDD dx, 8i, 0, n<D;
sr = Sum@f@x@i + 1DD dx, 8i, 0, n<D;

F dx, 8i, 0, n<F;

x@iD + x@i + 1D
sm = SumBfB
2
x@iD + x@i + 1D
body = TableB:N@x@iD, 2D, N@x@i + 1D, 2D, NB , 2F, N@f@x@iDD * dx, 2D,
2

F * dx, 2F>, 8i, 0, n<F;

x@iD + x@i + 1D
N@f@x@i + 1DD * dx, 2D, NBfB
2
Style@Grid@Append@Prepend@body, 8"Lp", "Rp", "Mp", "flp*dx", "fRp*dx", "fMp*dx"<D,
8"Riemann Sum", SpanFromLeft, SpanFromLeft,
N@sl, 2D, N@sr, 2D, N@sm, 2D<D, Background ®
8None, 8Lighter@Yellow, .9D, 8White, Lighter@Blend@8Blue, Green<D, .8D<<<,
Alignment ® 8Center<, ItemSize ® 86<, Frame ® AllD, Bold, Italic, BlueD

Lp Rp Mp flp*dx fRp*dx fMp*dx

0 0.10 0.050 0.20 0.23 0.22
0.10 0.20 0.15 0.23 0.24 0.24
0.20 0.30 0.25 0.24 0.25 0.25
0.30 0.40 0.35 0.25 0.26 0.26
0.40 0.50 0.45 0.26 0.27 0.27
0.50 0.60 0.55 0.27 0.28 0.27
0.60 0.70 0.65 0.28 0.28 0.28
0.70 0.80 0.75 0.28 0.29 0.29
0.80 0.90 0.85 0.29 0.29 0.29
0.90 1.0 0.95 0.29 0.30 0.30
1.0 1.1 1.1 0.30 0.30 0.30
Riemann Sum 2.9 3.0 3.0
10 [Link]

Show@DiscretePlot@f@xD, 8x, a, b, dx<, ExtentSize ® Full, ColorFunction ® "Rainbow"D,

Plot@f@xD, 8x, a, b<DD
3.0

2.8

2.6

2.4

2.2

0.0 0.2 0.4 0.6 0.8 1.0

? Graphics

Graphics@ primitives, optionsD represents a two-dimensional graphical image. ‡

Graphics@8Thick, Green, Rectangle@80, - 1<, 82, 1<D, Red, Disk@D, Blue, Circle@82, 0<D,
Yellow, Polygon@882, 0<, 84, 1<, 84, - 1<<D, Purple, Arrowheads@LargeD,
Arrow@884, 3  2<, 80, 3  2<, 80, 0<<D, Black, Dashed, Line@88- 1, 0<, 84, 0<<D<D

Graphics@8Darker@GreenD, Rectangle@80, 0<, 810, 6<D, Red, Disk@84.3, 3<, 1.8D<D

[Link] 11