[prev in list] [next in list] [prev in thread] [next in thread]
List: kde-bugs-dist
Subject: Bug#687: marked as done (kde dies with mathematica)
From: owner () bugs ! kde ! org (Stephan Kulow)
Date: 2000-05-31 6:33:03
[Download RAW message or body]
Your message dated Wed, 31 May 2000 00:22:31 -0700
with message-id <00053100223109.00665@wantelbos>
and subject line Fixed in KDE 1.1.2
has caused the attached bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I'm
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Stephan Kulow
(administrator, KDE bugs database)
Received: (at submit) by bugs.kde.org; 15 Feb 1999 03:53:59 +0000
From vader@frith.net Mon Feb 15 04:53:59 1999
Received: from dns.city-net.com ([206.102.128.2]:44563 "EHLO dns.city-net.com" ident: \
"IDENT-NONSENSE") by alpha.tat.physik.uni-tuebingen.de with ESMTP id <106544-27226>; \
Mon, 15 Feb 1999 04:53:39 +0100
Received: from frith.net (dialup315.city-net.com [209.176.115.4])
by dns.city-net.com (8.9.1a/8.9.1) with ESMTP id WAA18873
for <submit@bugs.kde.org>; Sun, 14 Feb 1999 22:40:10 -0500 (EST)
Sender: root@dns.city-net.com
Message-ID: <36C799BD.5124FAFD@frith.net>
Date: Sun, 14 Feb 1999 22:51:25 -0500
From: Jesse Bisnette <vader@frith.net>
X-Mailer: Mozilla 4.08 [en] (X11; I; Linux 2.0.36 i586)
MIME-Version: 1.0
To: submit@bugs.kde.org
Subject: kde dies with mathematica
Content-Type: multipart/mixed; boundary="------------279906E7CA3C3FCED502FD96"
Return-Path: <vader@frith.net>
X-Orcpt: rfc822;submit@bugs.kde.org
This is a multi-part message in MIME format.
Package: mathematica
Version: 3.0
I do mathematica labs for my math class. I had no problem with it
untill I loaded kde-1.1. Therefore, it works with kde-1.0 My class has
the labs set up so that when you evaluate the first cell, it brings up a
warning message and asks if you wish to do something. I can't read what
it says because everytime I evaluate a cell, I get logged out of kde
when it brings up the prompt. Its just like hitting ctrl-alt-backspace.
I am using Redhat 5.2. Have been since before I ever used kde. Kernel
2.0.36
I will send along a copy of one the labs, so that you may. I don't want
to reload my
entire system to see if that is the problem if I can help it. Also, I
removed kde completely,
and then tried it. I removed mathematica and its dot folder...nothing.
If I may have left
something out please email me back.
Jesse Bisnette
vader@frith.net
["ass3-05.nb" (text/plain)]
(***********************************************************************
Mathematica-Compatible Notebook
This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook
starts with the line of stars above.
To get the notebook into a Mathematica-compatible application, do one of
the following:
* Save the data starting with the line of stars above into a file
with a name ending in .nb, then open the file inside the application;
* Copy the data starting with the line of stars above to the
clipboard, then use the Paste menu command inside the application.
Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode. Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).
NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the
word CacheID, otherwise Mathematica-compatible applications may try to
use invalid cache data.
For more information on notebooks and Mathematica-compatible
applications, contact Wolfram Research:
web: http://www.wolfram.com
email: info@wolfram.com
phone: +1-217-398-0700 (U.S.)
Notebook reader applications are available free of charge from
Wolfram Research.
***********************************************************************)
(*CacheID: 232*)
(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[ 17562, 751]*)
(*NotebookOutlinePosition[ 18549, 785]*)
(* CellTagsIndexPosition[ 18505, 781]*)
(*WindowFrame->Normal*)
Notebook[{
Cell[CellGroupData[{
Cell["\<\
Math 0240
Lab Assignment 6\
\>", "Title",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
February 4, 1995
Frank Beatrous\
\>", "Subsubtitle",
Evaluatable->False,
AspectRatioFixed->True],
Cell[CellGroupData[{
Cell["Initialization", "Subsubtitle",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
Off[General::spell1];
Off[Plot::plnr];
Needs[\"Graphics`Colors`\"];\
\>", "Input",
InitializationCell->True,
AspectRatioFixed->True],
Cell[CellGroupData[{
Cell["Vector drawing routines", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
(* Author: Frank Beatrous *)
(* 1-19-95 *)
(*
1-26-95 3D Arrow bug fixed.
F.B.
10-19-95 Defined symbols protected.
F.B.
7-27-96 Avoid shadowing System`Cross in version 3.x.
F.B.
7-29-96 Handle vectors with indeterminate or infinite
components silently.
F.B.
*)
If[MemberQ[$Packages,\"CCH`Vector`\"],
\tUnprotect[\"CCH`Vector`*\"];Remove[\"CCH`Vector`*\"]];
BeginPackage[\"CCH`Vector`\"];
If[$VersionNumber<3.0,
Cross::usage=\"Cross[v,w] returns the cross product of the three
dimensional vectors v and w.\";
];
Norm::usage=\"Norm[v] returns the Euclidean length of the vector
v.\";
Vector::usage=\"Vector[v] is a graphics primitive
representing a the vector v with tail at the origin.
Vector[v,Tail->point] is a graphics primitive representing
the vector v with tail at point.\";
Tail::usage=\"Tail is an option to vector specifying where to
draw the vector tail.\";
Arrow::usage=\"Arrow[tail,tip] is a graphics
primitive representing an arrow from the point tail to the point
tip.\";
Begin[\"CCH`Vector`Private`\"];
SetOptions[Graphics,AspectRatio->Automatic];
SetOptions[Plot,AspectRatio->Automatic];
SetOptions[ParametricPlot,AspectRatio->Automatic];
If[$VersionNumber<3.0,
Cross[{a1_, a2_, a3_}, {b1_, b2_, b3_}] =
\t{-(a3 b2) + a2 b3, a3 b1 - a1 b3, -(a2 b1) + a1 b2};
];
\t
Norm[v_] := Sqrt[Apply[Plus,v^2]];
hw =0.05; (* Head width *)
hh = 0.15; (* Head height *)
Arrow[from:{a_,b_},to:{c_,d_}] :=
\tPoint[from] /; Chop[to-from] == {0.,0.}
Arrow[from:{a_,b_},to:{c_,d_}] :=
\tModule[{disp,u,bc},
\tdisp = to - from;
\tu = {-disp[[2]],disp[[1]]} hw;
\tbc = to - hh disp;
\t{{Line[{from,to}]},{Polygon[{bc+u,bc-u,to}]}}
\t]
\t\t
Vector[v:{a_,b_},opts___] :=
\tModule[{t,vv},
\tt = N[Tail/.{opts}/.{Tail->{0,0}}];
\tvv = N[v];
\tIf[VectorQ[vv,NumberQ],Arrow[t,t+vv],{}]
\t]
\t
n = 8; (* Number of faces on 3D vector heads *)
turns = Table[{Cos[2Pi k/n],Sin[2Pi k/n]},{k,0,n}] //N;
solidhead[v_] := Module[{base,tip},
\tbase = ReplacePart[v,Last[v],1];
\ttip = First[v];
\tTable[Polygon[{tip,base[[k]],base[[k+1]]}],
\t\t{k,1,Length[base]-1}]
\t\t]
\t\t
Arrow[from:{x0_,y0_,z0_},to:{x1_,y1_,z1_}] :=
\tPoint[from] /; Chop[to-from] == {0.,0.,0.}
\t
Arrow[from:{x0_,y0_,z0_},to:{x1_,y1_,z1_}] :=
\tModule[{f,t,disp,u1,u2,bc,bv,head},
\tf = N[from];
\tt = N[to];
\tdisp = t - f;
\tu1 = Cross[{1.,0.,0.},disp];
\tu1 = If[Chop[u1]=={0.,0.,0.},{0.,1.,0.},u1];
\tu1 = u1 hw Norm[disp] / Norm[u1];
\tu2 = Cross[u1,disp];
\tu2 = u2 hw Norm[disp] / Norm[u2];
\tbc = t - hh disp;
\tbv = Map[#+bc&, turns . {u1,u2}];
\thead = Prepend[bv,t];
\t{{Line[{f,t}]},
\t {solidhead[head]}
\t }
\t]
\t
Vector[v:{a_,b_,c_},opts___] :=
\tModule[{t,vv},
\tt = N[Tail/.{opts}/.{Tail->{0,0,0}}];
\tvv = N[v];
\tIf[VectorQ[vv,NumberQ],Arrow[t,t+vv],{}]
\t]
Protect[Cross,Norm,Vector,Tail,Arrow];
End[]; (* CCH`Vector`Private` *)
EndPackage[]; (* CCH`Vector` *)\
\>", "Input",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell["Coordinate axes", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
(*
10-19-95 Protected defined symbols.
F.B.
*)
If[MemberQ[$Packages,\"CCH`Axes`\"],
\tUnprotect[\"CCH`Axes`*\"];Remove[\"CCH`Axes`*\"]];
BeginPackage[\"CCH`Axes`\"];
XYZAxes::usage=\"XYZAxes[h,k] is a 3D graphics primitive
which produces a set of three axes of length h, intersecting
at {0,0,0}, with labels x, y, and z placed k units beyond
the positive ends of the axes. XYZAxes[h] is equivalent to
XYZAxes[h, .2 h].\";
TBView::usage=\"TBView returns a triple of numbers which,
when used as a ViewPoint, produces the texbook view,
with the y axis pointing to the right, the z axis pointing
up, and the x axis pointing down and to the left.\";
Begin[\"CCH`Axes`Private`\"];
XYZAxes[h_,k_] :=
\t{Line[{{-h,0,0},{h,0,0}}],
\t\tText[\"x\",{h+k,0,0}],
\tLine[{{0,-h,0},{0,h,0}}],
\t\tText[\"y\",{0,h+k,0}],
\tLine[{{0,0,-h},{0,0,h}}],
\t\tText[\"z\",{0,0,h+k}]}
\t\t
XYZAxes[h_] := XYZAxes[h,.2 h]
TBView = {3,2,1};
Protect[XYZAxes,TBView];
End[];
EndPackage[]\
\>", "Input",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell["Vector Calculus Operators", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
(*
Author Frank Beatrous 5-23-95
5-30-95 Corrected Curl and added Potential. F.B.
10-19-95 Defined symbols Protected. F.B.
*)
If[MemberQ[$Packages,\"CCH`VectorCalc`\"],
\tUnprotect[\"CCH`VectorCalc`*\"];Remove[\"CCH`VectorCalc`*\"]];
BeginPackage[\"CCH`VectorCalc`\"];
Grad::usage = \"Grad[f,{x,y,...}] returns the gradient
{D[f,x],D[f,y],...}.\";
Div::usage = \"Div[{f,g,...},{x,y,...}] returns the
divergence D[f,x] + D[g,y] + ....\";
Curl::usage = \"Curl[{F1,F2},{x,y}] returns the scalar
D[F2,x]-D[F1,y]. Curl[{F1,F2,F3},{x,y,z}] returns the curl
of the vector field {F1,F2,F3} with respect to the variables
x, y, and z.\";
Laplacian::usage = \"Laplacian[f,{x,y,...}] returns the
Laplacian D[f,{x,2}]+D[f,{y,2}]+....\";
Potential::usage = \"Potential[F,{x,y,...}] attempts to
return a scalar potential f of the vector field F, so that
Grad[f,{x,y,...}] = F. Nonsense is returned when F has no scalar
potential.\";
Begin[\"CCH`VectorCalc`Private`\"];
Grad[f_,var_] :=
\tTable[D[f,var[[i]]],{i,1,Length[var]}]
\t
Div[f_,var_] := Sum[D[f[[i]],var[[i]]],
\t{i,1,Length[var]}]
\t
Curl[f:{f1_,f2_},var:{x_,y_}] :=
\tD[f2,x] - D[f1,y]
Curl[f:{f1_,f2_,f3_},var:{x_,y_,z_}] :=
\t{D[f3,y]-D[f2,z], D[f1,z]-D[f3,x], D[f2,x]-D[f1,y]}
\t
Laplacian[f_,var_] := Sum[D[f,{var[[i]],2}],
\t{i,1,Length[var]}]
Potential[F_,vars_] :=
\tModule[{t,t0,sublist,zlist,int},
\tOff[Power::infy];
\tOff[Infinity::indet];
\tOff[Integrate::idiv];
\tsublist = Table[vars[[j]]->t vars[[j]],
\t\t{j,1,Length[vars]}];
\tint = Integrate[vars . (F /. sublist), t];
\t(int /.t->1) /; NumberQ[int/.t->0] || NumberQ[int/.t->Infinity]
\t]
Protect[Grad,Div,Curl,Laplacian,Potential];
End[];\t(* CCH`VectorCalc`Private` *)
EndPackage[];
\
\>", "Input",
InitializationCell->True]
}, Closed]]
}, Closed]]
}, Closed]],
Cell["Due: February 22", "Subtitle",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
Scribe:
Partner:\
\>", "Subsubtitle",
Evaluatable->False,
AspectRatioFixed->True],
Cell[CellGroupData[{
Cell[TextData[{
CounterBox["Subsection"],
". Derivatives and linearization"
}], "Subsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"Reference: ",
ButtonBox["Linearization",
ButtonData:>{
FrontEnd`FileName[ {"Tutorials", "LN-III"}, "14-Linear.nb",
CharacterEncoding -> "ISO8859-1"], "linearization"},
ButtonStyle->"Hyperlink"]
}], "InsetText"],
Cell["Here's a function of one variable", "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
Clear[f,x]
f[x_] = x^2;\
\>", "Input",
AspectRatioFixed->True],
Cell[TextData[{
"To find its derivative, just tack a \"prime\" onto the ",
Cell[BoxData[
\(TraditionalForm\`f\)]],
":"
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["f'[x]", "Input",
AspectRatioFixed->True],
Cell["\<\
You can calculate partial derivatives of a function of several \
variables like this:\
\>", "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["D[x^y, x]", "Input",
AspectRatioFixed->True],
Cell["D[x^y, y]", "Input",
AspectRatioFixed->True],
Cell["Try these.", "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["ai", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell["Here's a function:", "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["f[x_] = x^(2 Cos[Pi x]);", "Input",
AspectRatioFixed->True],
Cell[TextData[{
"Have ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" calculate the derivative of ",
Cell[BoxData[
\(TraditionalForm\`f[x]\)]],
"."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["aii", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"Find the slope of the curve ",
Cell[BoxData[
\(TraditionalForm\`y = f[x]\)]],
" at ",
Cell[BoxData[
\(TraditionalForm\`x = 1\)]],
", and use it to linearize (find the tangent line function to)",
Cell[BoxData[
\(TraditionalForm\`\(\ f[x]\)\)]],
" at ",
Cell[BoxData[
\(TraditionalForm\`x = 1\)]],
"."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["aiii", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"If you start out at ",
Cell[BoxData[
\(TraditionalForm\`x = 1\)]],
" and increase ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" by a small amout, say ",
Cell[BoxData[
\(TraditionalForm\`h\)]],
", will ",
Cell[BoxData[
\(TraditionalForm\`f[x]\)]],
" increase or decrease, and by approximately how much? Confirm your \
prediction with a plot."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["bi", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"Here's a function of ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" and ",
Cell[BoxData[
\(TraditionalForm\`y\)]],
":"
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
Clear[f,x,y]
f[x_,y_] = x + Sin[x Sin[x-2y]];\
\>", "Input",
AspectRatioFixed->True],
Cell[TextData[{
"Calculate the derivatives with respect to ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" and ",
Cell[BoxData[
\(TraditionalForm\`y\)]],
"."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["bii", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[CellGroupData[{
Cell[TextData[{
"You start out in the ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
"-",
Cell[BoxData[
\(TraditionalForm\`y\)]],
" plane at ",
Cell[BoxData[
\(TraditionalForm\`x = 2\)]],
", ",
Cell[BoxData[
\(TraditionalForm\`y = 1\)]],
", and move a small amount, say ",
Cell[BoxData[
\(TraditionalForm\`h\)]],
", in the direction of increasing ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
". Does ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" increase, or decrease, and by approximately how much?\nTip\[Rule]"
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"You'll want to check the value of the ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" derivative when",
Cell[BoxData[
\(TraditionalForm\`\(\ x = 2\)\)]],
" and ",
Cell[BoxData[
\(TraditionalForm\`y = 1\)]],
". You should have already calculated the ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" derivative, but in case you haven't, here it is:"
}], "InsetText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["xderiv = D[f[x,y],x]", "Input",
AspectRatioFixed->True],
Cell[TextData[{
"You can ask ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" to substitute values for ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" and ",
Cell[BoxData[
\(TraditionalForm\`y\)]],
" using the substitution operator \"/.\" as follows"
}], "InsetText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["xderiv /. {x->2, y->1}", "Input",
AspectRatioFixed->True],
Cell["If you want a decimal value, just throw an N in front:", "InsetText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["N[xderiv /. {x->2, y->1} ]", "Input",
AspectRatioFixed->True],
Cell["Got it?", "InsetText",
Evaluatable->False,
AspectRatioFixed->True]
}, Closed]],
Cell["biii", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"You start out in the ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
"-",
Cell[BoxData[
\(TraditionalForm\`y\)]],
" plane at ",
Cell[BoxData[
\(TraditionalForm\`x = 2\)]],
", ",
Cell[BoxData[
\(TraditionalForm\`y = 1\)]],
", and move a small amount, say ",
Cell[BoxData[
\(TraditionalForm\`k\)]],
", in the direction of increasing ",
Cell[BoxData[
\(TraditionalForm\`y\)]],
". Does ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" increase, or decrease, and by approximately how much?"
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["biv", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"Here's a contour plot of ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" near ",
Cell[BoxData[
\(TraditionalForm\`\((x, y)\) = \((2, 1)\)\)]],
". Do your prediciions above agree with the plot? Explaiin."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True],
Cell["ContourPlot[f[x,y],{x,1.5,2.5},{y,.5,1.5}];", "Input",
AspectRatioFixed->True],
Cell["bv", "Subsubsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"The linearization of ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" at ",
Cell[BoxData[
\(TraditionalForm\`\((x, y)\) = \((2, 1)\)\)]],
" is the linear function\n ",
Cell[BoxData[
\(TraditionalForm\`L[x, y] = a\ \((x - 2)\) + b\ \((y - 1)\) + c\)]],
"\nwhich agrees with ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" at ",
Cell[BoxData[
\(TraditionalForm\`\((x, y)\) = \((2, 1)\)\)]],
", and which has the same slopes in the ",
Cell[BoxData[
\(TraditionalForm\`x\)]],
" and ",
Cell[BoxData[
\(TraditionalForm\`y\)]],
" directions as ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" at the point ",
Cell[BoxData[
\(TraditionalForm\`\((2, 1)\)\)]],
". Find the linearization ",
Cell[BoxData[
\(TraditionalForm\`L[x, y]\)]],
" of ",
Cell[BoxData[
\(TraditionalForm\`f[x, y]\)]],
" at ",
Cell[BoxData[
\(TraditionalForm\`\((x, y)\) = \((2, 1)\)\)]],
", and use it to estimate ",
Cell[BoxData[
\(TraditionalForm\`f[1.9, 1.1]\)]],
"."
}], "AltText",
Evaluatable->False,
AspectRatioFixed->True]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
CounterBox["Subsection"],
". Zooming in"
}], "Subsection",
Evaluatable->False,
AspectRatioFixed->True],
Cell[TextData[{
"Reference: ",
ButtonBox["Linearization",
ButtonData:>{
FrontEnd`FileName[ {"Tutorials", "LN-III"}, "14-Linear.nb",
CharacterEncoding -> "ISO8859-1"], "linearization"},
ButtonStyle->"Hyperlink"]
}], "InsetText"],
Cell["Here's a function:", "AltText"],
Cell["\<\
Clear[f,x,y]
f[x_,y_] = y^2-x^2;\
\>", "Input"],
Cell[TextData[{
"and here's a contour plot, with the point ",
Cell[BoxData[
\(TraditionalForm\`\((\(-1\), 1)\)\)]],
" marked in red."
}], "AltText"],
Cell["\<\
{x0,y0} = {-1,1};
ContourPlot[f[x,y],{x,-2,2},{y,-2,2},
\tEpilog->{{PointSize[.03],Red,Point[{x0,y0}]}}];\
\>", "Input"],
Cell["Here's what you get if you zoom in on the marked point.", "AltText"],
Cell["\<\
h = .1;
ContourPlot[f[x,y],{x,x0-h,x0+h},{y,y0-h,y0+h},
\tEpilog->{{PointSize[.03],Red,Point[{x0,y0}]}}];\
\>", "Input"],
Cell["\<\
Linearize the function using derivatives, contour plot the \
linearization, and compare with the above plot. Comment on why the pictures \
came out the way they did.\
\>", "AltText"]
}, Closed]]
},
FrontEndVersion->"X 3.0",
ScreenRectangle->{{0, 1024}, {0, 721}},
AutoGeneratedPackage->None,
WindowToolbars->{"RulerBar", "EditBar"},
CellGrouping->Manual,
WindowSize->{520, 509},
WindowMargins->{{Automatic, 195}, {-7, Automatic}},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}},
ShowCellLabel->True,
ShowCellTags->False,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
CharacterEncoding->"ISO8859-1",
Magnification->1.25,
StyleDefinitions -> "PittCalc.nb"
]
(***********************************************************************
Cached data follows. If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of
the file. The cache data will then be recreated when you save this file
from within Mathematica.
***********************************************************************)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1731, 51, 99, 5, 107, "Title",
Evaluatable->False],
Cell[1833, 58, 110, 5, 70, "Subsubtitle",
Evaluatable->False],
Cell[CellGroupData[{
Cell[1968, 67, 85, 2, 70, "Subsubtitle",
Evaluatable->False],
Cell[2056, 71, 146, 6, 70, "Input",
InitializationCell->True],
Cell[CellGroupData[{
Cell[2227, 81, 96, 2, 70, "Subsubsection",
Evaluatable->False],
Cell[2326, 85, 2935, 124, 70, "Input",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[5298, 214, 88, 2, 70, "Subsubsection",
Evaluatable->False],
Cell[5389, 218, 1022, 42, 70, "Input",
InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[6448, 265, 98, 2, 70, "Subsubsection",
Evaluatable->False],
Cell[6549, 269, 1770, 70, 70, "Input",
InitializationCell->True]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[8358, 344, 84, 2, 37, "Subtitle",
Evaluatable->False],
Cell[8445, 348, 95, 5, 46, "Subsubtitle",
Evaluatable->False],
Cell[CellGroupData[{
Cell[8565, 357, 145, 5, 42, "Subsection",
Evaluatable->False],
Cell[8713, 364, 254, 7, 30, "InsetText"],
Cell[8970, 373, 100, 2, 30, "AltText",
Evaluatable->False],
Cell[9073, 377, 74, 4, 50, "Input"],
Cell[9150, 383, 193, 7, 30, "AltText",
Evaluatable->False],
Cell[9346, 392, 48, 1, 30, "Input"],
Cell[9397, 395, 160, 5, 50, "AltText",
Evaluatable->False],
Cell[9560, 402, 52, 1, 30, "Input"],
Cell[9615, 405, 52, 1, 30, "Input"],
Cell[9670, 408, 77, 2, 30, "AltText",
Evaluatable->False],
Cell[9750, 412, 75, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[9828, 416, 85, 2, 30, "AltText",
Evaluatable->False],
Cell[9916, 420, 67, 1, 30, "Input"],
Cell[9986, 423, 233, 10, 30, "AltText",
Evaluatable->False],
Cell[10222, 435, 76, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[10301, 439, 421, 16, 50, "AltText",
Evaluatable->False],
Cell[10725, 457, 77, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[10805, 461, 462, 17, 70, "AltText",
Evaluatable->False],
Cell[11270, 480, 75, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[11348, 484, 218, 10, 30, "AltText",
Evaluatable->False],
Cell[11569, 496, 96, 4, 50, "Input"],
Cell[11668, 502, 239, 10, 30, "AltText",
Evaluatable->False],
Cell[11910, 514, 76, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[CellGroupData[{
Cell[12011, 520, 646, 25, 115, "AltText",
Evaluatable->False],
Cell[12660, 547, 464, 16, 70, "InsetText",
Evaluatable->False],
Cell[13127, 565, 63, 1, 70, "Input"],
Cell[13193, 568, 344, 13, 70, "InsetText",
Evaluatable->False],
Cell[13540, 583, 65, 1, 70, "Input"],
Cell[13608, 586, 123, 2, 70, "InsetText",
Evaluatable->False],
Cell[13734, 590, 69, 1, 70, "Input"],
Cell[13806, 593, 76, 2, 70, "InsetText",
Evaluatable->False]
}, Closed]],
Cell[13897, 598, 77, 2, 29, "Subsubsection",
Evaluatable->False],
Cell[13977, 602, 634, 25, 70, "AltText",
Evaluatable->False],
Cell[14614, 629, 76, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[14693, 633, 308, 10, 50, "AltText",
Evaluatable->False],
Cell[15004, 645, 86, 1, 30, "Input"],
Cell[15093, 648, 75, 2, 40, "Subsubsection",
Evaluatable->False],
Cell[15171, 652, 1154, 43, 157, "AltText",
Evaluatable->False]
}, Closed]],
Cell[CellGroupData[{
Cell[16362, 700, 126, 5, 41, "Subsection",
Evaluatable->False],
Cell[16491, 707, 254, 7, 30, "InsetText"],
Cell[16748, 716, 37, 0, 30, "AltText"],
Cell[16788, 718, 57, 3, 50, "Input"],
Cell[16848, 723, 160, 5, 30, "AltText"],
Cell[17011, 730, 130, 4, 70, "Input"],
Cell[17144, 736, 74, 0, 30, "AltText"],
Cell[17221, 738, 130, 4, 70, "Input"],
Cell[17354, 744, 192, 4, 70, "AltText"]
}, Closed]]
}
]
*)
(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic