Legend:
- Unmodified
- Added
- Removed
-
gdb_bdm
r33 r37 14 14 printf "[" 15 15 while $j< $col 16 printf "%f,", $M.data[$j*$rs+$i] 16 output $M.data[$j*$rs+$i] 17 printf " " 17 18 set $j++ 18 19 end … … 23 24 end 24 25 25 define dm e26 define dm2 26 27 set $i=0 27 28 … … 34 35 printf "[" 35 36 while $j< $col 36 printf "%e,", $M.data[$j*$col+$i] 37 printf "%2.2f,",$M.data[$j*$rs+$i] 38 printf " " 37 39 set $j++ 38 40 end … … 43 45 end 44 46 47 define dav 48 set $i=0 49 printf "{" 50 while $i < $arg0.ndata 51 dv $arg0.data[$i] 52 set $i++ 53 end 54 printf "}" 55 end 56 57 define dam 58 set $i=0 59 printf "{" 60 while $i < $arg0.ndata 61 dm $arg0.data[$i] 62 set $i++ 63 end 64 printf "}" 65 end 66 67 45 68 define dv 46 print $arg0.data[0]@($arg0.datasize)69 output $arg0.data[0]@($arg0.datasize) 47 70 end 48 71 49 72 define dl 50 dm $ M.L51 dv $ M.D73 dm $arg0.L 74 dv $arg0.D 52 75 end