[Date Index]
[Thread Index]
[Author Index]
Re: Print out an Expression Letter by Letter on the same line
*To*: mathgroup at smc.vnet.net
*Subject*: [mg126221] Re: Print out an Expression Letter by Letter on the same line
*From*: Bob Hanlon <hanlonr357 at gmail.com>
*Date*: Thu, 26 Apr 2012 05:25:07 -0400 (EDT)
*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com
*References*: <201204250434.AAA06522@smc.vnet.net>
This hasn't been tested much but may be a start.
SetAttributes[slowPrint, HoldFirst];
slowPrint[expr_] := Module[
{k, len, in = ToString[expr],
nb = EvaluationNotebook[]},
len = StringLength[in];
k = 0;
While[k++ < len,
Pause[1/10];
NotebookWrite[nb, StringTake[in, k]];
SelectionMove[nb, All, Cell]]]
f[x] == Sin[x] // slowPrint
Bob Hanlon
On Wed, Apr 25, 2012 at 12:34 AM, Physics is Everything....Almost
<fizzycist at knology.net> wrote:
>
> I taught a course using Mathematica.....the problem I encountered with that was everything was all set to go, i.e. printed out completely..... and may have given the Students too much information all at once....
> I notice there is a Difference in watching an Instructor write an Expression on the Black board Letter by Letter....the mind has a chance to acclimate to what he is writing, etc....
> Hence, I wondered is there a way that I could get Mathematica to do that for me....example, Print out f[x] = Sin[x].....and be able to vary the Pause between letters until I find what is Optimum....
> I looked up Pause and Print , etc....with no Luck on how to put it on the same line....any suggestions?
> thanks....Jerry Blimbaum
>
Prev by Date:
**Unsatisfactory view of Panel, when transformed to pdf**
Next by Date:
**Re: Find all roots with FindRoot**
Previous by thread:
**Print out an Expression Letter by Letter on the same line**
Next by thread:
**Re: Print out an Expression Letter by Letter on the same line**
| |