61978_de-DE

liliconcom

Für Schleife zum Erstellen von multiplizierten Graphen

Hallo, ich habe Probleme bei der Verwendung einer for-Schleife, um einige Diagramme zu erstellen. Ich habe eine Liste mit Wörtern, und ich möchte, dass sie aus der Datentabelle ausgewählt und in eine Grpah gezogen werden. Ich möchte dies mehrmals mit verschiedenen Wörtern machen. Ich habe hinzugefügt, was ich bisher gemacht habe, aber meine for-Schleife wird nur das erste Wort in der Liste ausführen.

 

Es gibt auch eine na-wenn-Schleife, da der Graph nur erstellt werden soll, wenn eine Anzahl von Übereinstimmungen größer als 0 ist.

 

graph = {"abc", "123"};
n_g = N Items( graph );
For( i = 1, i <= n_g, i++, 

 dt << Select Where( Contains( :Column, graph[i] ) );
 num = N Rows( dt << get selected rows );
 If( num > 0,
  mess = Char( num ) || "&nbsp; from" || Char( graph[i] );
  dt << Subset(
   Output table name( " from " || Char( graph[i] ) ),
   Selected Row( 1 ),
   Selected Column( 0 )
  );

  biv = Graph Builder(
   Size( 1300, 1100 ),
   Show Control Panel( 0 ),
   Variables( X( :Slack ), Y( :Comb ) ),
   Elements( Points( X, Y, Legend( 4 ) ) ), 

   SendToReport(
    Dispatch( {}, "Slack", ScaleBox, {Add Ref Line( 0, "Dashed", "Medium Dark Red", "", 4 )} ),
    Dispatch( {}, "Comb", ScaleBox, {Add Ref Line( 25, "Dashed", "Medium Light Yellow", "", 4 )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {Add Text Annotation( Text( mess ), Text Box( {8, 14, 251, 34} ) )}
    )
   )
  );
  jrn << Append(
   Outline Box( "from " || Char( graph[i] ),
    Text Box( "There are" || Char( n_g ), Markup( 1 ) ),
    m << New Data Box(),
    biv << Report
   )
  );
 ,
  jrn << Append(
   Outline Box( " from " || Char( graph[i] ),
    Text Box( "There are no paths that begin with " || Char( graph[i] ), Markup( 1 ) )
   )
  );

 );
 dt << Clear Select();

);

 

Re: Für Schleife zum Erstellen von Multiplikationsgraphen

Die richtige Syntax für Ihr Subset lautet

dt << Subset(
   Output table name( " from " || Char( graph[i] ) ),
   Selected Rows( 1 ),
   Selected Columns( 0 )
  );

Ich sehe auch nicht den Journalcode, an den Sie anhängen.  Ich vermute, das 

 jrn << Append(
   Outline Box( "from " || Char( graph[i] ),
    Text Box( "There are" || Char( n_g ), Markup( 1 ) ),
    m << New Data Box(),
    biv << Report
   )
  );<BR />

Die Referenz von jrn befindet sich irgendwo früher im Code und ist in diesem Snipet nicht enthalten.