Re: question about plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg69606] Re: question about plot*From*: dimmechan at yahoo.com*Date*: Sun, 17 Sep 2006 06:57:39 -0400 (EDT)*References*: <eegb71$ke$1@smc.vnet.net>

Bob and David many thanks for your responses. Here is my modified function which works as desired, although it cannot be compared with your (amazing!) solutions. This time I choose to add mine plotdisc function as a rule for Plot. It is very simple as you see below. ln[123]:=Quit ln[1]:=Unprotect[Plot]; ln[2]:=Plot[f_, x_, a_, b_, c___, {opts___}] := Show[Map[Plot[f, {x, #[[1]], #[[2]]}, DisplayFunction -> Identity, opts] &, Partition[{a, c, b}, 2, 1]], DisplayFunction -> $DisplayFunction] ln[3]:=Protect[Plot]; Here is an example of application. ln[4]:=Plot[x Tan[x], x, 0, 5Pi, Pi/2, 3Pi/2, 5Pi/2, 7Pi/2, 9Pi/2, {Frame -> True, Axes -> False, FrameTicks -> {Range[0, 5Pi, Pi/2], Automatic, None, None}}]; Of course, although this rule is much better than my previous attempt (it needs just one call of the function now) the problem is you must clearfy in advance where are the discontinuities. So here come David's package and Bob's function to deal completely with this disadvantage. Dimitris Anagnostou NTUA