Re: Timer event
- To: mathgroup at smc.vnet.net
- Subject: [mg104224] Re: [mg104205] Timer event
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Sat, 24 Oct 2009 02:39:47 -0400 (EDT)
Some time ago we discussed here a kind of alike situation. The code below is used to
dynamically accentuate a displayed expression. Namely, a part of an expression is made blinking few times upon the
mouse click. It utilizes the Clock function for showing the dynamic accentuation only for a certain time, that looks
to be what you are looking for. Have a look:
Ac[expr_] :=
DynamicModule[{c1 = 0},
EventHandler[
Dynamic[
If[c1 == 0,
Style[expr, Black, Plain, 22, Italic] // ExpressionCell,
Dynamic@If[Clock[1, 0.7, 2] < .5,
Style[expr, Gray, Plain, 22, Italic] // ExpressionCell,
Style[expr, RGBColor[0.8, 0, 0], Bold, 23, Italic]] //
ExpressionCell
]
],
{"MouseDown" :> (c1 = c1 /. {0 -> 1, 1 -> 0})}
]
];
(* The following is only to show an example of its use *)
Row[{"F=\[Integral]{" ,
" \!\(\*FractionBox[\"1\", \
\"2\"]\)\!\(\*SuperscriptBox[\"\[Alpha]\
\[Eta]\", \"2\"]\)+\!\(\*FractionBox[\"1\", \
\"4\"]\)\!\(\*SuperscriptBox[\"\[Beta]\[Eta]\", \
\"4\"]\)+\!\(\*FractionBox[\"1\", \"6\"]\)\!\(\*SuperscriptBox[\"\
\[Gamma]\[Eta]\", \"6\"]\)" // Ac,
" + \!\(\*FractionBox[\"1\", \
\"2\"]\)(\[Del]\[Eta]\!\(\*SuperscriptBox[\")\", \"2\"]\)" // Ac,
" +\!\(\*FractionBox[\"1\",
RowBox[{\" \", \"2\"}]]\)\!\(\*SubscriptBox[\"C\", \
\"ijkl\"]\)\!\(\*SubscriptBox[\"\[Epsilon]\", \
\"ij\"]\)\!\(\*SubscriptBox[\"\[Epsilon]\", \"kl\"]\)" // Ac,
" + \!\(\*SubscriptBox[\"A\[Epsilon]\", \
\"ii\"]\)\!\(\*SuperscriptBox[\"\[Eta]\", \"2\"]\)" // Ac,
"}\!\(\*SuperscriptBox[\"d\", \"3\"]\)R" }]
Hope it helps, Alexei
An post in 2005/2006 asked about creating a timer or perhaps more
accurately a timer event in Mathematica. The responses recommend
using JLink and an AddPerioical routine described in the JLink
documentation in version 5.2.
I'd like to create a timer event or perhaps a number of such timer
events such that Mathematica would run some function or take some
action at a specified time.
Can one do this any more directly in Mathematca, without using JLink?
Thanks
--
Alexei Boulbitch, Dr., habil.
Senior Scientist
IEE S.A.
ZAE Weiergewan
11, rue Edmond Reuter
L-5326 Contern
Luxembourg
Phone: +352 2454 2566
Fax: +352 2454 3566
Website: www.iee.lu
This e-mail may contain trade secrets or privileged, undisclosed or otherwise confidential information. If you are not the intended recipient and have received this e-mail in error, you are hereby notified that any review, copying or distribution of it is strictly prohibited. Please inform us immediately and destroy the original transmittal from your system. Thank you for your co-operation.