Evaluar la celda actual sin dejar ni perder la posición en ella en Mathematica

Question

Estoy experimentando con diseños de logotipo en Mathematica (8 o superior) usando la interfaz del portátil y quiero cambiar MUCHO la fórmula generadora. El problema es que solo sé SHIFT + ENTER que me hace saltar fuera de mi celda actual y perder mi posición.

¿Hay alguna forma de evaluar la celda actual sin abandonarla y perder su posición dentro de ella? Entonces: evalúe una celda y vuelva a aterrizar dentro de la misma celda en la posición exacta que presioné MAYÚSCULAS + ENTRAR al.

lo que una vez llegué a utilizar fue a lo largo de las líneas:

a = Exp[1.994 \[Pi]/(3 I)]; 

b = Nest[{#, a #, a\[Conjugate] #, #} &, 1, 5]; 

{Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, a b, a\[Conjugate] b, -b}]] // {\[Rho]\[Chi], # // 
    Line} & // Graphics 

NotebookFind[EvaluationNotebook[], "E" <> "xp", Previous]; 

pero espero no es más que otra combinación de teclas o algo. de lo que no estoy enterado

Editar:

a = Exp[(*1*)1.994 \[Pi]/(3 I)]; 

b = Nest[{#, a #, a\[Conjugate] #, #} &, (*2*)1, (*3*)5]; 

{Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, a b, a\[Conjugate] b, -b}]] // {\[Rho]\[Chi], # // 
    Line} & // Graphics 

Do[NotebookFind[EvaluationNotebook[], "(*1*)", Previous], {2}]; 

es una pequeña mejora a mi solución como parte sugerido por Chris Dengen.

Editar 2:

NotebookFind[EvaluationNotebook[], "(*1*)", EvaluationCell] 

Esto resuelve:

• estos sólo trabajo con células que producen una o un número conocido de células de salida

EvaluationCell está documentado escasamente tan difícil de encontrar, de hecho, me encontré con eso. Usando la EvaluationCell, la búsqueda comienza desde arriba (eliminando la construcción Do) dos veces porque no provienemos de una celda de salida más abajo de la pantalla.

Lo que queda por resolver:

• uno tiene que hacer la célula de mantenimiento manual (contabilidad a nivel celular) para aterrizar en lugares de interés
• usando basada en comentarios marcadores de aterrizaje estorba las celdas de entrada

Nota esta pregunta es de no perder la posición actual cuando se presiona SHIFT + ENTER dentro de una célula cuaderno de Mathematica. No se trata de contenido o Manipular. Perdón por no haberlo dejado claro al principio.

Nota Temporal

Ahora tratando los siguientes:

1. utilice manejadores de eventos para definir una alternativa combinación de teclas evaluación
2. cuando se activa, encontrar una manera de almacenar la posición del teclado exacta en el celda de entrada actual
3. evaluar la celda de entrada actual
4. restaurar la posición en t la celda de entrada actual

Espero internamente que alguna función pueda simplemente ocuparse de la tienda/restaurar por casualidad siendo optimista. Sin embargo, siendo realista, primero espero poder encontrar la manera de llegar a la posición actual del teclado. Seguiremos aquí si algo se materializa fuera de mi intento.

Answer 1

Puede ejecutar esta célula una y otra vez:

If[NumberQ[x], x++, x = 1]; 
Print[x] 
Do[SelectionMove[EvaluationNotebook[], Previous, Cell], {2}] 

Esta versión coloca el cursor después del Exp en la línea 1:

a = Exp[1.994 \[Pi]/(3 I)]; 
b = Nest[{#, a #, a\[Conjugate] #, #} &, 1, 5]; 
{Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, a b, a\[Conjugate] b, -b}]] // {# // 
    Line} & // Graphics 
Do[NotebookFind[EvaluationNotebook[], "Exp", Previous], {3}]; 
SelectionMove[EvaluationNotebook[], "Exp", After]; 

Answer 2

Hay una función llamada 'evaluar en su lugar' que permite usted para seleccionar una sección de una celda, y simplemente evaluar eso. En Mac, es comando: ingrese, en lugar de control, ingrese.

Mire el menú Evaluar, la entrada del menú debe estar allí junto con la combinación de teclas de acceso directo enlazado.

Answer 3

Puede usar dynamic para hacer las cosas realmente agradables.

La celda para mostrar resultados en:

Dynamic[b = Nest[{#, a #, a\[Conjugate] #, #} &, 1, 5];] 
Dynamic[{Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, a b, a\[Conjugate] b, -b}]] // {\[Rho]\[Chi], # // 
     Line} & // Graphics] 

La celda para editar en:

k = 1.994; 
a = Exp[k \[Pi]/(2 I)]; 
NotebookFind[EvaluationNotebook[], ToString[k], Previous]; 

continuación, puede simplemente modificar la celda debajo de la pantalla de uno. Lo ubica automáticamente donde ingresó su valor. Si desea hacer las cosas aún más fácil en se puede utilizar Manipular:

Manipulate[a = Exp[k \[Pi]/(f I)]; 
b = Nest[{#, a #, a\[Conjugate] #, #} &, 1, 5]; 
{Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, a b, a\[Conjugate] b, -b}]] // {\[Rho]\[Chi], # // 
     Line} & // Graphics, 
{{k, 1.994}, -3, 3}, 
{{f, 3}, -3, 3}] 

Answer 4

Cómo sobre el uso Manipulate? Algo así como

Manipulate[ 
c = a; 
b = Nest[First@f, 1, 
    5]; {Re[#], Im[#]} & /@ 
    Accumulate[ 
    Flatten[{0, c b, c\[Conjugate] b, -b}]] // {Red, # // Line} & // 
    Graphics, {a, Exp[1.994 \[Pi]/(3 I)], 
    ControlType -> InputField}, {f, 
    HoldForm[{#, C#, c\[Conjugate] #, #} &], ImageSize -> Full, 
    ControlType -> InputField}] 

Puede simplemente editar los valores, y al presionar enter obtener una nueva versión de la trama. Puede guardar ejemplos que desee utilizando el botón '+' en la esquina superior derecha de Manipulate para establecer marcadores o pegar una instantánea.

Answer 5

Puede utilizar la programación de bajo nivel portátil y una función llamada células atracados añadir una celda a la parte superior de su ordenador portátil que ejecutará la celda actual. Esto (en teoría, no lo he probado) no debe sacar la posición del cursor fuera de la celda.para crear programáticamente la celda acoplada, crear una celda que tenga el botón que hace lo que desea, luego ejecutar este código: SetOptions[SelectedNotebook[],"DockedCells"->{Cell[ BoxData[ToBoxes[...your code for execute button...]] , "DockedCell"]}];

Lo hago todo el tiempo con el logotipo corporativo como una celda fija o "Copiar como texto sin formato"/Botones "Copiar como mapa de bits". En los portátiles que arruinan mucho el kernel, agrego botones para la administración de la memoria o incluso reinicio del kernel. Solo una serie de atajos. Puede apilar más de un objeto Cell [] como células acopladas.