Guest User

Untitled

a guest
Aug 18th, 2019
58
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. pdr[expr_, symbols_List: {}, interval_: [Infinity]] :=
  2. PrintTemporary[
  3. Dynamic[Refresh[expr, TrackedSymbols :> symbols,
  4. UpdateInterval -> interval]]];
  5.  
  6. s={};
  7. pdr[s,{s},1];
  8. Do[(*...some stuff that adds to s...*)]
RAW Paste Data