paw-demos 1:2.14.04.dfsg.2-9 / usr / share / paw-demos / pawtest3.kumac

This file is indexed.

/usr/share/paw-demos/pawtest3.kumac is in paw-demos 1:2.14.04.dfsg.2-9.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
* MACRO TO TEST FUNCTIONS IN SIGMA *
v/del *
*
Vector/Create V(10)  R 1 2 3 4 5 6 7 8 9 0
Vector/Create V1(10) R 10 11 12 13 14 15 16 17 18 19
Vector/Create V2(10) R 21 22 23 24 25 26 27 28 29 30
Vector/Create V3(10) R -5 -4 -3 -2 -1 0 1 2 3 4
*
Vector/Create XL(64)
*
sigma A=8
sigma B=.01
sigma C=1
sigma D=2
*
sigma t=0.5403023&-.4161468&-.9899925&-.6536436&0.2836622
sigma t=t&0.9601703&0.7539023&-.1455000&-.9111302&1.000000
sigma t=t&-.5440211&-.9999902&-.5365729&0.4201670&0.9906074
sigma t=t&0.6502879&-.2879033&-.9613975&-.7509872&0.1498772
sigma t=t&-1.527498&0.8851656E-02&1.588153&-2.134897&-.1335264
sigma t=t&1.178753&-3.273704&-.2814296&0.8871429&-6.405331
sigma t=t&1.000000&2.000000&3.000000&4.000000&5.000000
sigma t=t&6.000000&7.000000&8.000000&9.000000&0.0000000E+00
sigma t=t&21.00000&22.00000&23.00000&24.00000&25.00000
sigma t=t&26.00000&27.00000&28.00000&29.00000&30.00000
sigma t=t&2.467719&1.902788&1.555914&1.168209&1.041067
sigma t=t&2.428210&1.000481&1.001186&2.475577&1.019748
sigma t=t&0.1080605&-.8322937E-01&-.1979985&-.1307287&0.5673244E-01
sigma t=t&0.1920341&0.1507805&-.2910001E-01&-.1822260&0.2000000
sigma t=t&0.4939897E-01&0.3081528E-01&0.2397872E-01&0.2146369E-01&0.2053846E-01
sigma t=t&0.2019809E-01&0.2007287E-01&0.2002681E-01&0.2000986E-01&0.9991468E-01
sigma t=t&21.00000&462.0000&10626.00&255024.0&6375600.
sigma t=t&0.1657656E+09&0.4475671E+10&0.1253188E+12&0.3634245E+13&0.1090273E+15
sigma t=t&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00
sigma t=t&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00&1.000000
sigma t=t&1.000000&1.000000&1.000000&1.000000&1.000000
sigma t=t&1.000000&1.000000&1.000000&1.000000&1.000000
sigma t=t&13.00000&14.00000&15.00000&16.00000&17.00000
sigma t=t&18.00000&19.00000&10.00000&11.00000&12.00000
sigma t=t&9.000000&1.000000&21.00000&22.00000&23.00000
sigma t=t&24.00000&25.00000&26.00000&27.00000&28.00000
sigma t=t&29.00000&30.00000&19.00000&19.00000&19.00000
sigma t=t&19.00000&19.00000&19.00000&19.00000&19.00000
sigma t=t&19.00000&19.00000&10.00000&11.00000&12.00000
sigma t=t&13.00000&14.00000&15.00000&16.00000&17.00000
sigma t=t&18.00000&19.00000&10.00000&10.00000&10.00000
sigma t=t&10.00000&10.00000&10.00000&10.00000&10.00000
sigma t=t&10.00000&10.00000&10.00000&19.00000&10.00000
sigma t=t&11.00000&12.00000&13.00000&14.00000&15.00000
sigma t=t&16.00000&17.00000&18.00000&0.0000000E+00&12.00000
sigma t=t&32.00000&60.00000&96.00000&140.0000&192.0000
sigma t=t&252.0000&320.0000&366.0000&1.000000&3.000000
sigma t=t&6.000000&10.00000&15.00000&21.00000&28.00000
sigma t=t&36.00000&45.00000&45.00000&19.00000&21.00000
sigma t=t&145.0000&1.000000&2.000000&3.000000&4.000000
sigma t=t&5.000000&6.000000&7.000000&8.000000&9.000000
sigma t=t&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00
sigma t=t&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00
sigma t=t&0.0000000E+00&42.33562&45.38014&48.47118&51.60667
sigma t=t&54.78473&58.00360&61.26170&64.55754&67.88974
sigma t=t&71.25704&1.570796&0.0000000E+00&0.0000000E+00&0.0000000E+00
sigma t=t&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00&0.0000000E+00
sigma t=t&0.0000000E+00&1.471128&1.480136&1.487655&1.494024
sigma t=t&1.499489&1.504228&1.508378&1.512040&1.515298
sigma t=t&1.518213&1.523213&1.480136&1.441094&1.405648
sigma t=t&1.373401&1.343997&1.317122&1.292497&1.269876
sigma t=t&1.570796&2815.717&7288.489&18948.93&49444.49
sigma t=t&129418.6&339649.4&893446.3&2354970.&6218413.
sigma t=t&0.1644619E+08&0.1127292E+09&0.2996396E+09&0.7972200E+09&0.2122948E+10
sigma t=t&0.5657865E+10&0.1509007E+11&0.4027465E+11&0.1075605E+12&0.2874321E+12
sigma t=t&0.7685320E+12&0.7651977&0.2238908&-.2600520&-.3971498
sigma t=t&-.1775968&0.1506453&0.3000793&0.1716508&-.9033361E-01
sigma t=t&1.000000&0.4347274E-01&-.1767853&-.2234471&-.7031805E-01
sigma t=t&0.1333752&0.2051040&0.9039718E-01&-.9766849E-01&-.1879949
sigma t=t&-.1057014&0.2061768E-09&0.7412351E-10&0.2667545E-10&0.9608819E-11
sigma t=t&0.3464161E-11&0.1249877E-11&0.4512864E-12&0.1630535E-12&0.5894951E-13
sigma t=t&0.2132477E-13&0.6019073&0.1398659&0.4015643E-01&0.1248350E-01
sigma t=t&0.4044613E-02&0.1343920E-02&0.4541825E-03&0.1553692E-03&0.5363702E-04
sigma t=t&0.0000000E+00&0.5567117E-01&-.1688473&-.2252373&-.7820787E-01
sigma t=t&0.1271926&0.2054643&0.9581099E-01&-.9263720E-01&-.1875522
sigma t=t&-.1095197&-.3253926E-01&0.1234059&0.1616692&0.5305978E-01
sigma t=t&-.9882996E-01&-.1557966&-.7025124E-01&0.7552212E-01&0.1480341
sigma t=t&0.8442557E-01&1.543081&3.762196&10.06766&27.30823
sigma t=t&74.20995&201.7156&548.3170&1490.479&4051.542
sigma t=t&1.000000&-.4545643E-01&-.8956314E-01&-.4978001E-01&0.2676413E-01
sigma t=t&0.6939635E-01&0.4627868E-01&-.1420019E-01&-.5524268E-01&-.4347510E-01
sigma t=t&0.5150371E-02&-1.39289&-1.53339&-1.66975&-1.80225
sigma t=t&-1.93112&-2.05657&-2.17879&-2.29796&-2.41426&-2.52782
sigma t=t&0.4657596&0.3085083&0.2430004&0.2070019
sigma t=t&0.1835408&0.1666574&0.1537377&0.1434318&0.1349595
sigma t=t&1.000000&0.1212627&0.1160578&0.1114643&0.1073724
sigma t=t&0.1036977&0.1003742&0.9734961E-01&0.9458191E-01&0.9203680E-01
sigma t=t&0.8968606E-01&0.2719092&0.2657264&0.2599470&0.2545292
sigma t=t&0.2494366&0.2446380&0.2401062&0.2358172&0.2317502
sigma t=t&0.2278867&0.8427008&0.9953223&0.9999779&1.000000
sigma t=t&1.000000&1.000000&1.000000&1.000000&1.000000
sigma t=t&0.0000000E+00&2.000000&2.000000&1.999978&1.995322
sigma t=t&1.842701&1.000000&0.1572992&0.4677735E-02&0.2209050E-04
sigma t=t&0.1541726E-07&0.3453201E-10&0.1214938E-10&0.4282685E-11&0.1512306E-11
sigma t=t&0.5348899E-12&0.1894686E-12&0.6720637E-13&0.2386942E-13&0.8487760E-14
sigma t=t&0.3021552E-14&0.8413448&0.9772499&0.9986501&0.9999683
sigma t=t&0.9999997&1.000000&1.000000&1.000000&1.000000
sigma t=t&0.5000000&362880.0&3628800.&0.3991680E+08&0.4790016E+09
sigma t=t&0.6227021E+10&0.8717829E+11&0.1307674E+13&0.2092279E+14&0.3556874E+15
sigma t=t&0.6402374E+16&21.00000&22.00000&23.00000&24.00000
sigma t=t&25.00000&26.00000&27.00000&28.00000&29.00000
sigma t=t&30.00000&0.0000000E+00&0.6931472&1.098612&1.386294
sigma t=t&1.609438&1.791759&1.945910&2.079442&2.197225
sigma t=t&0.0000000E+00&1.000000&1.041393&1.079181&1.113943
sigma t=t&1.146128&1.176091&1.204120&1.230449&1.255273
sigma t=t&1.278754&0.0000000E+00&0.0000000E+00&2.000000&0.0000000E+00
sigma t=t&0.0000000E+00&2.000000&6.000000&4.000000&2.000000
sigma t=t&0.0000000E+00&1.000000&2.000000&3.000000&4.000000
sigma t=t&5.000000&6.000000&7.000000&8.000000&9.000000
sigma t=t&0.0000000E+00&0.6594079E+09&0.1792456E+10&0.4872402E+10&0.1324456E+11
sigma t=t&0.3600245E+11&0.9786480E+11&0.2660241E+12&0.7231285E+12&0.1965667E+13
sigma t=t&0.5343237E+13&0.9460831&1.605413&1.848652&1.758203
sigma t=t&1.549931&1.424688&1.454597&1.574187&1.665040
sigma t=t&0.0000000E+00&3.162278&3.316625&3.464102&3.605551
sigma t=t&3.741657&3.872983&4.000000&4.123106&4.242640
sigma t=t&4.358899&1.000000&1.000000&1.000000&1.000000
sigma t=t&1.000000&1.000000&1.000000&1.000000&1.000000
sigma t=t&1.000000&1.000000&2.000000&3.000000&4.000000
sigma t=t&5.000000&6.000000&7.000000&8.000000&9.000000
sigma t=t&0.0000000E+00&1.000000
*
Sigma x1=cos(v)
Sigma x2=sin(v1)
Sigma x3=tan(v2)
Sigma x4=min(v,v1)
Sigma x5=max(v2,v)
Sigma x6=sin(v1*v2)+d
Sigma x7=x1*.2
Sigma x8=exp(-v)*sin(a*b)+b*c*d
Sigma x9=prod(v2)
Sigma x10=del(v)
Sigma x11=diff(v1)
Sigma x12=ls(v1,3)
Sigma x13=lvmax(v)
Sigma x14=lvmin(v1)
Sigma x15=max(v2,v1)
Sigma x16=maxv(v1)
Sigma x17=min(v2,v1)
Sigma x18=minv(v1)
Sigma x19=nco(v1)
Sigma x20=order(v1,v)
Sigma x21=quad(v,a)
Sigma x22=sumv(v)
Sigma x23=vmax(v1)
Sigma x24=vmin(v2)
Sigma x25=vsum(v1)
Sigma x26=abs(v)
Sigma x27=acos(v1)
Sigma x28=alogam(v2)
Sigma x29=asin(v)
Sigma x30=atan(v1)
Sigma x31=atan2(v2,v)
Sigma x32=besi0(v1)
Sigma x33=besi1(v2)
Sigma x34=besj0(v)
Sigma x35=besj1(v1)
Sigma x36=besk0(v2)
Sigma x37=besk1(v)
Sigma x38=besy0(v1)
Sigma x39=besy1(v2)
Sigma x40=cosh(v)
Sigma x41=cosint(v1)
Sigma x42=dilog(v2)
Sigma x43=ebesi0(v)
Sigma x44=ebesi1(v1)
Sigma x45=ebesk0(v2)
Sigma x46=0
Sigma x47=0
Sigma x48=0
Sigma x49=erf(v)
Sigma x50=erfc(V3)
Sigma x51=expint(v2)
Sigma x52=freq(v)
Sigma x53=gamma(v1)
Sigma x54=int(v2)
Sigma x55=log(v)
Sigma x56=log10(v1)
Sigma x57=mod(v2,v)
Sigma x58=sign(v,v1)
Sigma x59=sinh(v2)
Sigma x60=sinint(v)
Sigma x61=sqrt(v1)
Sigma x62=tanh(v2)
Sigma x63=any(c)
Sigma x64=ls(v,1)
*
Do tn=1,64
   if [tn] = 46 goto skip
   if [tn] = 47 goto skip
   if [tn] = 48 goto skip
   dim=$vdim(x[tn])
   v/input xl([tn]) [dim]
   skip:
Enddo
*
sigma q1=x1&x2&x3&x4&x5&x6&x7&x8&x9&x10
sigma q11=x11&x12&x13&x14&x15&x16&x17&x18&x19&x20
sigma q21=x21&x22&x23&x24&x25&x26&x27&x28&x29&x30
sigma q31=x31&x32&x33&x34&x35&x36&x37&x38&x39&x40
sigma q41=x41&x42&x43&x44&x45&x49&x50
sigma q51=x51&x52&x53&x54&x55&x56&x57&x58&x59&x60
sigma q61=x61&x62&x63&x64
sigma new=q1&q11&q21&q31&q41&q51&q61
v/create nbad(1) i
*
Application comis quit
      subroutine compare(i1,i2,i3)
      vector new,t,nbad
      ibad=0
      do i=i2,i3
         diff=abs(new(i)-t(i))
         if(diff.gt.0.)then
            err=abs(diff/t(i))
         else
            err=0.
         endif
         if(err.gt.2.E-5)then
            if(ibad.eq.0)then
               print *,' ***********SIGMA Test Number',i1,' has failed'
            endif
            ibad=ibad+1
            nbad(1)=ibad
            print*,err, new(i),t(i)
         endif
      enddo
      if(i1.ne.64)return
      print *,' ************************************************'
      if(nbad(1).eq.0)then
         print *,' *     You have a GOOD version of SIGMA         *'
      else
         print *,' *     You have a BAD  version of SIGMA         *'
      endif
      print *,' ************************************************'
      end
quit
*
i=1
a=xl(1)
call compare(1,[i],[a])
Do tn=2,64
   if [tn] = 46 goto skip2
   if [tn] = 47 goto skip2
   if [tn] = 48 goto skip2
   b=xl([tn])
   i=[a]+1
   a=[a]+[b]
   call compare([tn],[i],[a])
   skip2:
Enddo
v/del *
*
Return

APT Browse - Built by Thomas Orozco.