Se si dispone già di una determinata curva, come è possibile utilizzare il codice per ripristinare vicino ai dati.
Impostare il numero di dati noti e i valori massimo e minimo dei dati
Sembra avere una qualche funzione di intelligenza artificiale.
Grazie Esperti!
Devo ammettere che non capisco abbastanza sulla domanda per iniziare a proporre una risposta. Se la curva è una pittura di mappa di bit (file .png), allora non posso immaginare che JMP sia anche il diritto per provare a leggerlo. Stai cercando una sorta di software di scansione e riconoscimento ottico?
In che formato è la curva? Stai cercando di leggere la curva rossa o stai cercando di leggere il testo numerico lungo la parte inferiore dell'immagine?
Forse asserendo che JMP non può farlo, sto per apprendere alcune funzionalità di JMP di cui non sono a conoscenza.
A proposito, dovrei menzionare che se non ti interessa fare la media sui pixel (la linea nel grafico qui è spessa diversi pixel in ogni colonna) e stai solo cercando un'approssimazione, l'elaborazione (in questo particolare esempio) può essere molto più veloce e meno ingombra di tabelle di dati. Come vedrai, il grafico che ottieni è fondamentalmente lo stesso.
</CODE></P>
<PRE><CODE class=" language-jsl">names default to here(1);
New Window( "Example",
pb = Picture Box( Open( "/Users/homer.simpson@jmp.com/Downloads/graphPic.png", png ) )
);
pixMat = (pb << get image) << get pixels;
pixMat = pixMat[20 :: 265, 15 :: N Col( pixMat )];
nc = N Col( pixMat );
x = (1 :: nc)`;
y = J( nc, 1, . );
For( i = 1, i <= nc, i++,
y[i] = Loc Min( pixMat[0, i] )
);
y = nrow( pixMat ) - y; //"flip" y-vals to account for screen coordinate convention.
dt = As Table( x || y, <<COLUMN names=""></COLUMN>
</CODE></P>
<P> </P></LINGO-BODY><LINGO-SUB id="lingo-sub-382962" slang="en-US">Re: JSL può ripristinare il valore della curva?</LINGO-SUB><LINGO-BODY id="lingo-body-382962" slang="en-US"><P>Questo non è sempre facile ma può essere fatto, a seconda del grafico. Ecco un modo per farlo per il grafico che hai fornito. Potrebbero esserci modi più efficienti là fuori, poiché non ho esperienza nell'elaborazione delle immagini - mi scuso.</P>
<P> </P>
<P>L'idea è di ottenere i valori dei pixel per l'immagine e concentrarsi sulle differenze tra lo sfondo e il grafico. In questo caso, il colore del grafico era il minimo in qualsiasi colonna di pixel. In altri casi, potrebbe essere necessario derivare una sorta di filtro passa-banda, ecc. Per uno sfondo multicolore, anche questo approccio potrebbe non funzionare, se il colore del grafico fosse lo stesso di uno dei colori dello sfondo. Ad ogni modo, prova questo.</P>
<P> </P>
<P>Questo è un approccio grezzo, ma dovrebbe darti un punto di partenza. Ripulire / lisciare i dati non è così difficile da fare dopo il fatto. Sono sicuro che anche altri troveranno molti modi per migliorare l'approccio e le prestazioni.</P>
<P> </P>
<P>NOTA: non ho ridimensionato x e y. Ancora una volta, non è difficile da fare una volta che hai ottenuto la matrice fino ai dati del grafico.</P>
<P> </P>
<P>Ho allegato il .png che ho usato così puoi usare lo stesso file che ho usato io.</P>
<P> </P>
<P><SPAN class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="brady_brady_0-1620328935156.png" style="width: 999px;"><IMG src="https://us.v-cdn.net/6038925/uploads/images/32659i25847C5EFC991944/brady_brady_0-1620328935156.png" role="button" title="brady_brady_0-1620328935156.png" alt="brady_brady_0-1620328935156.png" /></SPAN></P>
<P> </P>
<P> </P>
<P> </P>
<P> </P>
<P>Saluti,</P>
<P>Brady</P>
<PRE><CODE class=" language-jsl">
Names Default To Here( 1 );
//need to save image and put the file path in the open() function.
New Window( "Example", pb = Picture Box( Open( "/Users/brady.brady@jmp.com/Downloads/graphPic.png", png ) ) );
img = pb << get image;
pixMat = img << get pixels;
pixMat = 1000*(floor(pixMat/1000)); //smooths values; use whatever factor you like
dt = astable(pixmat);
eval(substitute (
expr(dt << new column("Row", formula( _ROW_ - :row()))), //low rows for pixels are high. This is a fix for that.
expr(_ROW_),
nrow(dt)
));
dt:row << Delete Formula;
dt << move selected columns({"Row"}, to first);
dt << select where (:row() <= 20 | :row() >= 265) << Delete Rows; // top and bottom few rows of this table are not useful
stackCols = (dt << get column names)[14::ncol(dt)];
dtStack = dt << Stack(
columns( stackCols ),
Source Label Column( "Label" ),
Stacked Data Column( "Data" ),
"Non-stacked columns"n( Keep( :Row ) )
);
dtStack << select where (:data == col minimum(:data, :label)); //in this case, minimum color is the graph.
dtSub = dtStack << subset(selected rows(1), selected columns (0));
dtSub << new column("x", formula(num(substitute(:label, "Col", ""))));
summarize(dtSub, b = by(:label), yVals = mean(:Row), xVals = mean(:x));
astable(xvals || yvals, <<COLUMN names=""></COLUMN>
