       Re: Interesting problem looking for a solution.

• To: mathgroup at smc.vnet.net
• Subject: [mg122028] Re: Interesting problem looking for a solution.
• From: "Oleksandr Rasputinov" <oleksandr_rasputinov at hmamail.com>
• Date: Mon, 10 Oct 2011 04:25:36 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j6rk1f\$1nr\$1@smc.vnet.net>

```On Sun, 09 Oct 2011 08:55:27 +0100, Church, Gary <churchg at smccd.edu> wrote:

> Hello,
>
> I have an (I think) interesting problem for you Mathematica gurus.
>
> I'm trying to create a worksheet for my students and want to be able to
> display the plot of a randomly generated function f[x], without them
> being able to access the expression which defines f; In other words, I
> don't want them to be able to evaluate f[x].
>
> The idea is that each student will get a different function f[x] and
> will see a different graph and they have to determine the expression
> which defines f. They then have to plot the function they think is f
> against the actual function f[x] and turn in the two plots (or the one
> plot with the two graphs.)
>
> Is this possible?
>
> Thanks much,
> Gary
>

Much easier than you probably think:

In :=
f[x_?NumericQ] := Sin[7 x] + Cos[3 x];

In :=
Plot[f[x], {x, -Pi, Pi}]

Out =
< Plots normally >

In :=
??f

Prints:	Global`f

In :=
f[x]

Out
f[x]

The key elements here are the restriction to numeric values of the
parameter and the ReadProtected and Locked attributes.

```

• Prev by Date: Re: Laplace Trasform system of differential equation
• Next by Date: Re: Interesting problem looking for a solution.
• Previous by thread: Re: Interesting problem looking for a solution.
• Next by thread: Re: Interesting problem looking for a solution.