0
$\begingroup$

How to display data in a Dynamic Pane
without exponents?

Some data: 

data = Range[1, 1000];

Slider data has to be added to data: 

Slider[Dynamic[n], {0, 10000000}]

A Dynamic Pane: 

Dynamic[Pane[Pane[TableForm[n + data],100], ImageSize -> {200, 200}, Scrollbars -> True]]

Plane numbers without exponents are wanted in the Pane.
.

UPDATE

Build a file with 10.000 records.
(File could have an arbitrary number of records)
Make each record a string 50 bytes in length.
The content of the records does not matter.

The method gives a Slider and a Pane.
The Slider allows to pre-set to a rough record position
in file. It sticks always to a record boundary.
The Panes Scrollbars allow to see through the
chunk of records loaded into the pane.

The Question is: How to modify the working of Module[] so its functionality is
preserved and the display of the StreamPosition value avoided.

This value is visible right above the Slider object.
Only the Slider, the Pane and the Panes
content should be visible. 

(* txt data file 10.000 fixed length records 50 bytes each *)  
infil = "C:\\Users\\User\\Desktop\\test 10T fixed.txt";  

(* a stream onto the file *)  
str = OpenRead[infil, BinaryFormat -> True];  

(* a table to build up the shown record numbers *)  
panebias = Range[1, 200];  

(* a table with a delimiter sign to separate the Pane panels   
first and second column *)  
deli = Table["|", {200}];  

(* the last StreamPointerPosition to go to fit the last record  
into the pane. 10.000 records times records bytes plus 2 bytes  
for taking into account BinaryFormat *)  
last = 10000*52 - 200*52;  

(* preset the Slider position for its StreamPosition *)  
n = 0;  

Module[{},
 Column[
  {Dynamic[SetStreamPosition[str, n]],
   Slider[Dynamic[n], {0, last, 52}, ImageSize -> 450, 
    Appearance -> Small],
   Pane[Grid /@ 
     Dynamic[Transpose[{n/52 + panebias, deli, 
        ReadList[str, Record, 200]}]],
    ImageSize -> {450, 200}, Scrollbars -> True]}
  ]
 ]

enter image description here

Improve this question
$\endgroup$
0

1 Answer 1

Reset to default
3
$\begingroup$

Perhaps this is what you want:

data = Range[1, 100];
Column[{
  Slider[Dynamic[n], {0, 10000000, 1}],
  Pane[
   TableForm /@ Dynamic[n + data],
   ImageSize -> {200, 200},
  Scrollbars -> True]}]

solution 1

Update

Perhaps this is what you're seeking:

data = Range[1, 1000];
Row[{
  Column[
   {Slider[Dynamic[m], {0, 10000000, 1}],
    Pane[TableForm /@ Dynamic[m + data], ImageSize -> {200, 200}, 
     Scrollbars -> True]
    }],
  Spacer[100],
  Column[
   {Slider[Dynamic[n], {0, 10000000, 1}],
    Pane[TableForm /@ Dynamic[n + data], ImageSize -> {200, 200}, 
     Scrollbars -> True]
    }]}]

more sliders

Another update

You can have scrolling panes inside scrolling panes.

Pane[
 Row[{
   Column[{
    Slider[Dynamic[m], {0, 10000000, 1}], 
     Pane[TableForm /@ Dynamic[m + data], ImageSize -> {200, 200}, 
      Scrollbars -> True]}], Spacer[100], 
   Column[{
    Slider[Dynamic[n], {0, 10000000, 1}], 
     Pane[TableForm /@ Dynamic[n + data], ImageSize -> {200, 200}, 
      Scrollbars -> True]}]}],
 Scrollbars -> True]

scrolling pane madness

But this question is getting paneful...

Improve this answer
$\endgroup$
11
  • $\begingroup$ Yes. . .Thats the point. . .How can you place one more column inside the pane?. . .To the right of the data column already existing. $\endgroup$
    – Hp Radojewski Schäfer Von
    Apr 25, 2013 at 19:14
  • $\begingroup$ @HpRadojewskiSchäferVon Oh, I thought you wanted to get rid of the exponents... $\endgroup$
    – cormullion
    Apr 25, 2013 at 19:15
  • $\begingroup$ That's rigth. . .I like your solution. . .In addition to this I want more then one column inside the pane. . .From a different source, say from another Range. $\endgroup$
    – Hp Radojewski Schäfer Von
    Apr 26, 2013 at 9:40
  • $\begingroup$ @HpRadojewskiSchäferVon Like that? $\endgroup$
    – cormullion
    Apr 26, 2013 at 9:56
  • $\begingroup$ No. . .A second column should be inside one and the same Pane. . .Data from a second source. . A List or Range. . Or if you asked me what i am trying to do, actually the second source will be a Read form an external file. Displaying the records of that file chunk after chunk. $\endgroup$
    – Hp Radojewski Schäfer Von
    Apr 27, 2013 at 9:24

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.