You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n],2f[n-f[n-2]]];LogPlot[f[n],{n,0,10},Frame->True,AspectRatio->1/4,ImageSize->500,FrameLabel{x,"f[x]"}]]
Out[]=
In[]:=
Module{f},f[n_]:=If[n<=0,Abs[n],2f[n-f[n-2]]];LogPlotf[n],{n,0,5},Frame->True,AspectRatio->14,PlotPoints->1000,ImageSize->500,PlotStyle,FrameLabel{x,"f[x]"}
Out[]=
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];LogPlot[f[n],{n,0,30},Frame->True,AspectRatio->1/4,PlotPoints->1000,ImageSize->500,FrameLabel{x,"f[x]"}]]
Out[]=
In[]:=
Module{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];LogPlotf[n],{n,0,10},Frame->True,AspectRatio->14,PlotPoints->2000,ImageSize->500,FrameLabel{x,"f[x]"},PlotStyle
Out[]=
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];f/@Range[1,5,1/2]]
Out[]=
{4,2,8,9,4,4,10,11,8}
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];f/@Range[1,5,1/3]]
Out[]=
4,,,8,,,4,,,10,,,8
8
3
40
3
32
3
22
3
32
3
64
3
44
3
22
3
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];f/@Range[0,10,1/4!]]
Out[]=
1,,,,,,7,,,,,,6,,,,,,5,,,,,,4,,,,,,3,,,,,,2,,,14,,,12,,,10,,,8,,,,,,,,,,,,9,,,,,,,,,,,,4,,,,,,14,,,9,,,4,,,,,,,,,,,,10,,,,,,,,,,,,11,,,,,,,,,,,,8,,,,,,,,,,,,4,,,,,,,,,,,,10,,,,,,,,,,,,11,,,,,,6,,,,,,4,,,,,,,,,,,,8,,,,,,,,,,,,6,,,,,,,,,,,,7,,,18,,,13,,,,,,16,,,,,,,,,,,,4,,,,,,,,,,,,20
47
6
23
3
15
2
22
3
43
6
41
6
20
3
13
2
19
3
37
6
35
6
17
3
11
2
16
3
31
6
29
6
14
3
9
2
13
3
25
6
23
6
11
3
7
2
10
3
19
6
17
6
8
3
5
2
7
3
13
6
46
3
44
3
40
3
38
3
34
3
32
3
28
3
26
3
163
12
79
6
51
4
37
3
143
12
23
2
133
12
32
3
41
4
59
6
113
12
103
12
49
6
31
4
22
3
83
12
13
2
73
12
17
3
21
4
29
6
53
12
43
12
19
6
11
4
7
3
47
3
37
3
32
3
22
3
17
3
307
12
145
6
91
4
64
3
239
12
37
2
205
12
47
3
57
4
77
6
137
12
253
12
121
6
77
4
55
3
209
12
33
2
187
12
44
3
55
4
77
6
143
12
121
12
55
6
33
4
22
3
77
12
11
2
55
12
11
3
11
4
46
3
35
3
13
3
56
3
41
2
34
3
275
12
39
2
193
12
38
3
37
4
35
6
29
12
505
12
235
6
145
4
100
3
365
12
55
2
295
12
65
3
75
4
95
6
155
12
385
12
181
6
113
4
79
3
293
12
45
2
247
12
56
3
67
4
89
6
155
12
109
12
43
6
21
4
10
3
41
3
143
6
14
3
77
2
113
6
137
12
83
6
151
6
115
4
31
3
401
12
53
2
235
12
38
3
23
4
88
3
26
3
853
12
391
6
237
4
160
3
569
12
83
2
427
12
89
3
95
4
107
6
143
12
601
12
277
6
169
4
115
3
413
12
61
2
319
12
68
3
75
4
89
6
131
12
37
12
14
3
76
3
143
12
385
12
110
3
245
4
131
6
83
12
139
12
205
6
165
4
13
3
605
12
73
2
271
12
26
3
91
2
251
6
29
3
1501
12
679
6
405
4
268
3
929
12
131
2
643
12
125
3
119
4
107
6
71
12
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];f/@Range[0,10,1/6!]]
Out[]=
In[]:=
ListPlot[%69]
Out[]=
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];ListLogPlot[{#,f[#]}&/@Range[0,10,1/6!],AspectRatio->1/4]]
Out[]=
In[]:=
Module[{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];ListPlot[{#,f[#]}&/@Range[0,10,1/6!],AspectRatio->1/4]]
Out[]=
In[]:=
Module{f},f[n_]:=If[n<=0,Abs[n-1],2f[n-f[n-2]]];Plotf[n],{n,0,10},Frame->True,PlotRange->All,AspectRatio->14,PlotPoints->2000,ImageSize->500,FrameLabel{x,"f[x]"},PlotStyle