39 lines
1.3 KiB
Plaintext
39 lines
1.3 KiB
Plaintext
100 dim scalars(10,4)
|
|
110 scalars(1,1) = 1 : scalars(1,2) = 2 : scalars(1,3) = 3
|
|
120 scalars(2,1) = 0 : scalars(2,2) = 1 : scalars(2,3) = 2 : scalars(2,4) = 3
|
|
130 scalars(3,1) = 1 : scalars(3,2) = 0 : scalars(3,3) = 3 : scalars(3,4) = 4
|
|
140 scalars(4,1) = 1 : scalars(4,2) = 2 : scalars(4,3) = 0
|
|
150 scalars(5,1) = 0 : scalars(5,2) = 0 : scalars(5,3) = 0
|
|
160 scalars(6,1) = 0
|
|
170 scalars(7,1) = 1 : scalars(7,2) = 1 : scalars(7,3) = 1
|
|
180 scalars(8,1) = -1 : scalars(8,2) = -1 : scalars(8,3) = -1
|
|
190 scalars(9,1) = -1 : scalars(9,2) = -2 : scalars(9,3) = 0 : scalars(9,4) = -3
|
|
200 scalars(10,1) = -1
|
|
210 cls
|
|
220 for n = 1 to ubound(scalars)
|
|
230 cadena$ = ""
|
|
240 scalar = 0
|
|
250 for m = 1 to ubound(scalars,2)
|
|
260 scalar = scalars(n,m)
|
|
270 if scalar <> 0 then
|
|
280 if scalar = 1 then
|
|
290 cadena$ = cadena$+"+e"+str$(m)
|
|
300 else
|
|
310 if scalar = -1 then
|
|
320 cadena$ = cadena$+"-e"+str$(m)
|
|
330 else
|
|
340 if scalar > 0 then
|
|
350 cadena$ = cadena$+chr$(43)+str$(scalar)+"*e"+str$(m)
|
|
360 else
|
|
370 cadena$ = cadena$+str$(scalar)+"*e"+str$(m)
|
|
380 endif
|
|
390 endif
|
|
400 endif
|
|
410 endif
|
|
420 next m
|
|
430 if cadena$ = "" then cadena$ = "0"
|
|
440 if left$(cadena$,1) = "+" then cadena$ = right$(cadena$,len(cadena$)-1)
|
|
450 print cadena$
|
|
460 next n
|
|
470 end
|