-
You mentioned date links in the Manual of style. My position is that in most cases, the date links are unnecessary and only put there by people that misunderstand date preferences. Feel free to remove unnecessary date links.
You may wish to make use of a 'Dates' tab in edit mode that will help with unlinking unnecessary date links. Simply copy the entire contents of User:Bobblewik/monobook.js to your own monobook. Then follow the instructions in your monobook to clear the cache (i.e. press Ctrl-Shift-R in Firefox, or Ctrl-F5 in IE) before it will work. It also provides a 'Units' tab. Regards. bobblewik 14:26, 10 June 2006 (UTC)
Hi, Mglg. You are correct, and I owe you an apology. Because of the way you juggled the text and the paragraphs — and because the vandalism along with everyone putting their hand into the pot has been out of control — I misread, was too quick on the trigger, and thought you were deleting a chunk of text, and replacing it with unreferenced text. (I'm not happy to see that the text wasn't referenced to begin with, but I didn't review that article when it was at FAC, as I was traveling.) Now that I've reviewed it more closely, your edit makes complete sense, except I'm wondering why you dropped the text that says (bolding mine), "Pregnant women can be screened for various complications in their pregnancy, or due to risk factors such as advanced maternal age" ? I think everything else stayed the same, just got moved around. Let me know, so I can re-instate your edit (so you won't run into 3RR). Or, if I don't hear from you tonight, maybe you can reinstate it before I get to it. Once again, I'm very sorry for misreading. Regards, Sandy ( Talk) 01:39, 9 December 2006 (UTC)
Care to continue to help us develop the Ref Desk guidelines ? If so, they are here: Wikipedia_talk:Reference_desk/guidelines. StuRat 23:20, 30 April 2007 (UTC)
I added my own take on this problem (once I finally cracked it), and get results that are tantalizingly similar to but different from yours. Care to take a look? -- Tardis 23:21, 31 May 2007 (UTC)
UnitVector
function, which I haven't included because my version is relatively complicated.BoundingBox[g_Graphics]:= AbsoluteOptions[g,PlotRange]\[LeftDoubleBracket]1,2\[RightDoubleBracket] BoundingBox[l:{__Graphics}]:= With[{b=BoundingBox/@l}, Transpose[{Min/@ Transpose[b\[LeftDoubleBracket]All,All,1\[RightDoubleBracket]], Max/@Transpose[b\[LeftDoubleBracket]All,All,2\[RightDoubleBracket]]}]] With[{F={1,0},m=1,r=1/2,dt=1/100000,T=6/10,f=800}, Module[{x1={0,0},x2={2r,0},x3=2r{Cos[-\[Pi]/3],Sin[-\[Pi]/3]},v1={0,0}, v2={0,0},v3={0,0},c=0,hist={}}, Do[With[{\[Alpha]=UnitVector[x2-x1],\[Beta]=UnitVector[x3-x1]}, With[{M={\[Alpha],\[Beta]}}, With[{a=LinearSolve[Inverse[M]+Transpose[M],F]/m//N}, With[{a1=LinearSolve[M,a], a2=a\[LeftDoubleBracket]1\[RightDoubleBracket]\[Alpha], a3=a\[LeftDoubleBracket]2\[RightDoubleBracket]\[Beta]},{x1,x2, x3}+={v1,v2,v3}dt/2;{v1,v2,v3}+={a1,a2,a3}dt;{x1,x2, x3}+={v1,v2,v3}dt/2; If[Mod[c++,f]\[Equal]0,AppendTo[hist,{x1,x2,x3}]]]]]],{t,0,T, dt}];hist]] With[{r=1/2}, With[{g=Graphics[Circle[#,r]&/@#]&/@%}, Show[#,PlotRange\[Rule]BoundingBox[g],AspectRatio\[Rule]Automatic, ImageSize\[Rule]1000]&/@g]];
%
to render the graphics; the BoundingBox
function is present to make a smooth movie. Enjoy! --
Tardis 21:49, 6 June 2007 (UTC)asolve[r_, vr22_, vr32_, alpha_, beta_, fom_] = Flatten[{a2, a3} /. Solve[{2 a2 + vr22/(2r) + a3 (beta.alpha) == fom.alpha, 2 a3 + vr32/(2r) + a2 (beta.alpha) == fom.beta}, {a2,a3}]] a2solve[r_, vr22_, alpha_, fom_] = (1/2)(fom.alpha - vr22/(2 r)) seq = With[{F = {1, 0}, m = 1, r = 1/2, dt = 1/5000, T = 5, f = 200}, Module[{x1 = {0, 0}, x2 = {2r, 0}, x3 = 2r{Cos[-\[Pi]/3], Sin[-\[Pi]/3]}, v1 = {0, 0},v2 = {0, 0}, v3 = {0, 0}, c = 0, hist = {}, contact = {True, True}, a, a1}, Do[With[{\[Alpha] = UnitVector[x2 - x1] // N, \[Beta] = UnitVector[x3 - x1] // N}, With[{M = {\[Alpha], \[Beta]}}, With[{vr22 = (v2 - v1).(v2 - v1), vr32 = (v3 - v1).(v3 - v1)}, a = If[contact\[LeftDoubleBracket]2\[RightDoubleBracket], asolve[r, vr22, vr32, \[Alpha], \[Beta], F/m] // N, If[contact\[LeftDoubleBracket]1\[RightDoubleBracket], {a2solve[r, vr22, \[Alpha], F/m], 0}, {0, 0}]]; With[{ a2 = Max[a\[LeftDoubleBracket]1\[RightDoubleBracket],0]\[Alpha], a3 = Max[a\[LeftDoubleBracket]2\[RightDoubleBracket],0]\[Beta]}, a1 = (F/m) - a2 - a3; {x1, x2, x3} += {v1, v2, v3}dt/2; {v1, v2, v3} += {a1, a2, a3}dt; {x1, x2, x3} += {v1, v2, v3}dt/2; contact\[LeftDoubleBracket]1\[RightDoubleBracket] = Evaluate[a\[LeftDoubleBracket]1\[RightDoubleBracket] > 0]; contact\[LeftDoubleBracket]2\[RightDoubleBracket] = Evaluate[a\[LeftDoubleBracket]2\[RightDoubleBracket] > 0]; If[Mod[++c, f] == 0, AppendTo[hist, {x1, x2, x3}]]]]]], {t, 0,T, dt}]; hist]]; With[{r = 1/2}, With[{g = Graphics[Circle[#, r] & /@ #] & /@ seq}, Show[#, PlotRange -> BoundingBox[g], AspectRatio -> Automatic, ImageSize -> 500] & /@ g]];
Just to say I appreciate your responses on the math and science desks. (Recently, the penny and probability ones.) iames 14:04, 25 June 2007 (UTC)
Hi mglg! I noticed my signature on a comment I didn't make (twice!) in the last few days. It seems that one of these occurences is from your edit. I certainly don't mind you referencing my comments, but please use caution and avoid adding my signature to comments I didn't make! Thanks, Nimur 06:59, 13 July 2007 (UTC)
(from Science ref-desk…) As a bonus, all the crinkly foil makes great confetti when the dewar explodes. I can try to find the video clip if you want. DMacks 22:50, 13 July 2007 (UTC)
The Reference Desk Barnstar | ||
Thank you for your reply to my query at the Science Reference Desk regarding the History of Quantum Mechanics. Your contribution to the discussion was insightful, and helped me find the answers I was looking for. Thanks! FusionKnight ( talk) 19:45, 22 January 2008 (UTC) |
Thanks for your comment at Wikipedia talk:How to put up a straight pole by pushing it at an angle. Thought-provoking. I've replied there. -- Dweller ( talk) 18:05, 26 February 2008 (UTC)
Thanks for your patience in helping my ignorance, and for the context. It's really Mugabe who's ancient at 84-not out. : ) Julia Rossi ( talk) 23:46, 7 April 2008 (UTC)
Hi,
You appear to be eligible to vote in the current
Arbitration Committee election. The
Arbitration Committee is the panel of editors responsible for conducting the Wikipedia
arbitration process. It has the authority to enact binding solutions for disputes between editors, primarily related to serious behavioural issues that the community has been unable to resolve. This includes the ability to impose
site bans,
topic bans, editing restrictions, and other measures needed to maintain our editing environment. The
arbitration policy describes the Committee's roles and responsibilities in greater detail. If you wish to participate, you are welcome to
review the candidates' statements and submit your choices on
the voting page. For the Election committee,
MediaWiki message delivery (
talk) 13:58, 23 November 2015 (UTC)
-
You mentioned date links in the Manual of style. My position is that in most cases, the date links are unnecessary and only put there by people that misunderstand date preferences. Feel free to remove unnecessary date links.
You may wish to make use of a 'Dates' tab in edit mode that will help with unlinking unnecessary date links. Simply copy the entire contents of User:Bobblewik/monobook.js to your own monobook. Then follow the instructions in your monobook to clear the cache (i.e. press Ctrl-Shift-R in Firefox, or Ctrl-F5 in IE) before it will work. It also provides a 'Units' tab. Regards. bobblewik 14:26, 10 June 2006 (UTC)
Hi, Mglg. You are correct, and I owe you an apology. Because of the way you juggled the text and the paragraphs — and because the vandalism along with everyone putting their hand into the pot has been out of control — I misread, was too quick on the trigger, and thought you were deleting a chunk of text, and replacing it with unreferenced text. (I'm not happy to see that the text wasn't referenced to begin with, but I didn't review that article when it was at FAC, as I was traveling.) Now that I've reviewed it more closely, your edit makes complete sense, except I'm wondering why you dropped the text that says (bolding mine), "Pregnant women can be screened for various complications in their pregnancy, or due to risk factors such as advanced maternal age" ? I think everything else stayed the same, just got moved around. Let me know, so I can re-instate your edit (so you won't run into 3RR). Or, if I don't hear from you tonight, maybe you can reinstate it before I get to it. Once again, I'm very sorry for misreading. Regards, Sandy ( Talk) 01:39, 9 December 2006 (UTC)
Care to continue to help us develop the Ref Desk guidelines ? If so, they are here: Wikipedia_talk:Reference_desk/guidelines. StuRat 23:20, 30 April 2007 (UTC)
I added my own take on this problem (once I finally cracked it), and get results that are tantalizingly similar to but different from yours. Care to take a look? -- Tardis 23:21, 31 May 2007 (UTC)
UnitVector
function, which I haven't included because my version is relatively complicated.BoundingBox[g_Graphics]:= AbsoluteOptions[g,PlotRange]\[LeftDoubleBracket]1,2\[RightDoubleBracket] BoundingBox[l:{__Graphics}]:= With[{b=BoundingBox/@l}, Transpose[{Min/@ Transpose[b\[LeftDoubleBracket]All,All,1\[RightDoubleBracket]], Max/@Transpose[b\[LeftDoubleBracket]All,All,2\[RightDoubleBracket]]}]] With[{F={1,0},m=1,r=1/2,dt=1/100000,T=6/10,f=800}, Module[{x1={0,0},x2={2r,0},x3=2r{Cos[-\[Pi]/3],Sin[-\[Pi]/3]},v1={0,0}, v2={0,0},v3={0,0},c=0,hist={}}, Do[With[{\[Alpha]=UnitVector[x2-x1],\[Beta]=UnitVector[x3-x1]}, With[{M={\[Alpha],\[Beta]}}, With[{a=LinearSolve[Inverse[M]+Transpose[M],F]/m//N}, With[{a1=LinearSolve[M,a], a2=a\[LeftDoubleBracket]1\[RightDoubleBracket]\[Alpha], a3=a\[LeftDoubleBracket]2\[RightDoubleBracket]\[Beta]},{x1,x2, x3}+={v1,v2,v3}dt/2;{v1,v2,v3}+={a1,a2,a3}dt;{x1,x2, x3}+={v1,v2,v3}dt/2; If[Mod[c++,f]\[Equal]0,AppendTo[hist,{x1,x2,x3}]]]]]],{t,0,T, dt}];hist]] With[{r=1/2}, With[{g=Graphics[Circle[#,r]&/@#]&/@%}, Show[#,PlotRange\[Rule]BoundingBox[g],AspectRatio\[Rule]Automatic, ImageSize\[Rule]1000]&/@g]];
%
to render the graphics; the BoundingBox
function is present to make a smooth movie. Enjoy! --
Tardis 21:49, 6 June 2007 (UTC)asolve[r_, vr22_, vr32_, alpha_, beta_, fom_] = Flatten[{a2, a3} /. Solve[{2 a2 + vr22/(2r) + a3 (beta.alpha) == fom.alpha, 2 a3 + vr32/(2r) + a2 (beta.alpha) == fom.beta}, {a2,a3}]] a2solve[r_, vr22_, alpha_, fom_] = (1/2)(fom.alpha - vr22/(2 r)) seq = With[{F = {1, 0}, m = 1, r = 1/2, dt = 1/5000, T = 5, f = 200}, Module[{x1 = {0, 0}, x2 = {2r, 0}, x3 = 2r{Cos[-\[Pi]/3], Sin[-\[Pi]/3]}, v1 = {0, 0},v2 = {0, 0}, v3 = {0, 0}, c = 0, hist = {}, contact = {True, True}, a, a1}, Do[With[{\[Alpha] = UnitVector[x2 - x1] // N, \[Beta] = UnitVector[x3 - x1] // N}, With[{M = {\[Alpha], \[Beta]}}, With[{vr22 = (v2 - v1).(v2 - v1), vr32 = (v3 - v1).(v3 - v1)}, a = If[contact\[LeftDoubleBracket]2\[RightDoubleBracket], asolve[r, vr22, vr32, \[Alpha], \[Beta], F/m] // N, If[contact\[LeftDoubleBracket]1\[RightDoubleBracket], {a2solve[r, vr22, \[Alpha], F/m], 0}, {0, 0}]]; With[{ a2 = Max[a\[LeftDoubleBracket]1\[RightDoubleBracket],0]\[Alpha], a3 = Max[a\[LeftDoubleBracket]2\[RightDoubleBracket],0]\[Beta]}, a1 = (F/m) - a2 - a3; {x1, x2, x3} += {v1, v2, v3}dt/2; {v1, v2, v3} += {a1, a2, a3}dt; {x1, x2, x3} += {v1, v2, v3}dt/2; contact\[LeftDoubleBracket]1\[RightDoubleBracket] = Evaluate[a\[LeftDoubleBracket]1\[RightDoubleBracket] > 0]; contact\[LeftDoubleBracket]2\[RightDoubleBracket] = Evaluate[a\[LeftDoubleBracket]2\[RightDoubleBracket] > 0]; If[Mod[++c, f] == 0, AppendTo[hist, {x1, x2, x3}]]]]]], {t, 0,T, dt}]; hist]]; With[{r = 1/2}, With[{g = Graphics[Circle[#, r] & /@ #] & /@ seq}, Show[#, PlotRange -> BoundingBox[g], AspectRatio -> Automatic, ImageSize -> 500] & /@ g]];
Just to say I appreciate your responses on the math and science desks. (Recently, the penny and probability ones.) iames 14:04, 25 June 2007 (UTC)
Hi mglg! I noticed my signature on a comment I didn't make (twice!) in the last few days. It seems that one of these occurences is from your edit. I certainly don't mind you referencing my comments, but please use caution and avoid adding my signature to comments I didn't make! Thanks, Nimur 06:59, 13 July 2007 (UTC)
(from Science ref-desk…) As a bonus, all the crinkly foil makes great confetti when the dewar explodes. I can try to find the video clip if you want. DMacks 22:50, 13 July 2007 (UTC)
The Reference Desk Barnstar | ||
Thank you for your reply to my query at the Science Reference Desk regarding the History of Quantum Mechanics. Your contribution to the discussion was insightful, and helped me find the answers I was looking for. Thanks! FusionKnight ( talk) 19:45, 22 January 2008 (UTC) |
Thanks for your comment at Wikipedia talk:How to put up a straight pole by pushing it at an angle. Thought-provoking. I've replied there. -- Dweller ( talk) 18:05, 26 February 2008 (UTC)
Thanks for your patience in helping my ignorance, and for the context. It's really Mugabe who's ancient at 84-not out. : ) Julia Rossi ( talk) 23:46, 7 April 2008 (UTC)
Hi,
You appear to be eligible to vote in the current
Arbitration Committee election. The
Arbitration Committee is the panel of editors responsible for conducting the Wikipedia
arbitration process. It has the authority to enact binding solutions for disputes between editors, primarily related to serious behavioural issues that the community has been unable to resolve. This includes the ability to impose
site bans,
topic bans, editing restrictions, and other measures needed to maintain our editing environment. The
arbitration policy describes the Committee's roles and responsibilities in greater detail. If you wish to participate, you are welcome to
review the candidates' statements and submit your choices on
the voting page. For the Election committee,
MediaWiki message delivery (
talk) 13:58, 23 November 2015 (UTC)