Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Interesting problem looking for a solution.

• To: mathgroup at smc.vnet.net
• Subject: [mg122051] Re: Interesting problem looking for a solution.
• From: Murray Eisenberg <murray at math.umass.edu>
• Date: Tue, 11 Oct 2011 04:22:36 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <j6rk1f$1nr$1@smc.vnet.net> <201110100825.EAA15268@smc.vnet.net>
• Reply-to: murray at math.umass.edu

I don't understand why that proposed solution would be satisfactory: the 
cell defining f is still there!

On 10/10/11 4:25 AM, Oleksandr Rasputinov wrote:
> 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[1] :=
> f[x_?NumericQ] := Sin[7 x] + Cos[3 x];
> SetAttributes[f, {ReadProtected, Locked}];
>
> In[3] :=
> Plot[f[x], {x, -Pi, Pi}]
>
> Out[3] =
> <  Plots normally>
>
> In[4] :=
> ??f
>
> Prints:	Global`f
> 	Attributes[f] = {Locked,ReadProtected}
>
> In[5] :=
> f[x]
>
> Out[5]
> f[x]
>
> The key elements here are the restriction to numeric values of the
> parameter and the ReadProtected and Locked attributes.
>

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

• Follow-Ups:
  • Re: Interesting problem looking for a solution.
    • From: Andrzej Kozlowski <akoz@mimuw.edu.pl>

• References:
  • Re: Interesting problem looking for a solution.
    • From: "Oleksandr Rasputinov" <oleksandr_rasputinov@hmamail.com>