1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
resolution test for plotting
.control
let xvar = vector(4)
let yvar = vector(4)
* --------------------
* integer
let yvar[0] = 1.0
let yvar[1] = 1.0
let yvar[2] = 1.0
let yvar[3] = 1.0
plot yvar vs xvar title integer 1
* --------------------
* 14 digits
let yvar[0] = 1.0
let yvar[1] = 1.00000000000001
let yvar[2] = 0.99999999999999
let yvar[3] = 1.0
plot yvar vs xvar title '14 digits'
* --------------------
* 15 digits
let yvar[0] = 1.0
let yvar[1] = 1.000000000000001
let yvar[2] = 0.999999999999999
let yvar[3] = 1.0
plot yvar vs xvar title '15 digits'
* --------------------
* 16 digits
let yvar[0] = 1.0
let yvar[1] = 1.0000000000000001
let yvar[2] = 0.9999999999999999
let yvar[3] = 1.0
plot yvar vs xvar title '16 digits'
* --------------------
* 14 digits plus exponent
let yvar[0] = 1.0e-14
let yvar[1] = 1.00000000000001e-14
let yvar[2] = 0.99999999999999e-14
let yvar[3] = 1.0e-14
plot yvar vs xvar title '14 digits plus exponent'
* --------------------
* 15 digits plus exponent
let yvar[0] = 1.0e-14
let yvar[1] = 1.000000000000001e-14
let yvar[2] = 0.999999999999999e-14
let yvar[3] = 1.0e-14
plot yvar vs xvar title '15 digits plus exponent'
* --------------------
* 16 digits plus exponent
let yvar[0] = 1.0e-14
let yvar[1] = 1.0000000000000001e-14
let yvar[2] = 0.9999999999999999e-14
let yvar[3] = 1.0e-14
plot yvar vs xvar title '16 digits plus exponent'
* --------------------
* negative 14 digits plus exponent
let yvar[0] = -1.0e-14
let yvar[1] = -1.00000000000001e-14
let yvar[2] = -0.99999999999999e-14
let yvar[3] = -1.0e-14
plot yvar vs xvar title 'neg 14 digits plus exponent'
* --------------------
* negative 15 digits plus exponent
let yvar[0] = -1.0e-14
let yvar[1] = -1.000000000000001e-14
let yvar[2] = -0.999999999999999e-14
let yvar[3] = -1.0e-14
plot yvar vs xvar title 'neg 15 digits plus exponent'
* --------------------
* negative 16 digits plus exponent
let yvar[0] = -1.0e-14
let yvar[1] = -1.0000000000000001e-14
let yvar[2] = -0.9999999999999999e-14
let yvar[3] = -1.0e-14
plot yvar vs xvar title 'neg 16 digits plus exponent'
* --------------------
* 15 digits plus big exponent
let yvar[0] = 1.0e-200
let yvar[1] = 1.000000000000001e-200
let yvar[2] = 0.999999999999999e-200
let yvar[3] = 1.0e-200
plot yvar vs xvar title '15 digits plus big exponent'
* --------------------
* negative 15 digits plus big exponent
let yvar[0] = -1.0e-200
let yvar[1] = -1.000000000000001e-200
let yvar[2] = -0.999999999999999e-200
let yvar[3] = -1.0e-200
plot yvar vs xvar title 'neg 15 digits plus big exponent'
.endc
.end
|
