MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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