Hfrxdjt

Do I need to write [sic] when including a quotation with a number less than 10 that isn't written out?

What day is it again?

What flight has the highest ratio of timezone difference to flight time?

Can this note be analyzed as a non-chord tone?

free fall ellipse or parabola?

How to Implement Deterministic Encryption Safely in .NET

How to get the last not-null value in an ordered column of a huge table?

Are the names of these months realistic?

Would a grinding machine be a simple and workable propulsion system for an interplanetary spacecraft?

What difference does it make using sed with/without whitespaces?

Is there such a thing as a proper verb, like a proper noun?

What happened in Rome, when the western empire "fell"?

Why is the US ranked as #45 in Press Freedom ratings, despite its extremely permissive free speech laws?

Audio Conversion With ADS1243

Purpose of level-shifter with same in and out voltages

Where do students learn to solve polynomial equations these days?

Players Circumventing the limitations of Wish

Is it okay to majorly distort historical facts while writing a fiction story?

What are the unusually-enlarged wing sections on this P-38 Lightning?

In the "Harry Potter and the Order of the Phoenix" video game, what potion is used to sabotage Umbridge's speakers?

Do scriptures give a method to recognize a truly self-realized person/jivanmukta?

Physiological effects of huge anime eyes

Is it ever safe to open a suspicious HTML file (e.g. email attachment)?

The Ultimate Number Sequence Puzzle

vector calculus integration identity problem

2

$begingroup$

This is a follow up from another post . I was using the integration symbol available in the Basic Math Assistance available in Wolfram Mathematica.

I am new to vector calculus operations. There is a known identity found in the textbooks

$$int _4 pi hats (hatscdot A) d omega=frac4 pi3A$$

I have no idea how to do this type of integration. This is what I tried but return a dissaster

Integrate[s*(Dot[s, A]), s, 0, 4 [Pi]]

Also , without success

Integrate[Sin[[Theta]], 
 Cos[[Theta]]*(Dot[Sin[[Theta]], Cos[[Theta]], a1, 
 a2]), [Theta], 0, 4 [Pi]]

It is obviosu that I am doing something fundamentally not correct. I go to WM documentation on Vector Calculus but does not offer much substance or examples. How will you enter the equation above in order to return the identity in the right?

UPDATE 1

In respond to comment, here is a copy of the text. This is from page 10 Optical-Thermal Response of Laser-Irradiated Tissue ISBN 9789048188307

$$w$$ is the surface area of a sphere in solid angle steradian. s is the directional vector of a pencil of radiation located inside the sphere

vector-calculus

share|improve this question

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  What are $s$ and $omega$ supposed to be? It might be helpful if you can give an example of the textbook with the formula.
  $endgroup$
  – J. M. is slightly pensive♦
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Here's my guess: With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s [Element] Sphere[]] ] --- or this: With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s [Element] Sphere[]] == 4 Pi/3 A ]
  $endgroup$
  – Michael E2
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Michael, yes, that does seem to be it. This is why people should always define what their variables mean in their formulae.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Michael E2 please post it as an answear for upvote
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  I've never seen this author's notation. My guess is that $int_4picdots$ means the integral over the sphere of measure $4pi$, i.e., the unit sphere.
  $endgroup$
  – Michael E2
  58 mins ago
  
  

  
  
  
  

 | 
show 3 more comments

2

$begingroup$

This is a follow up from another post . I was using the integration symbol available in the Basic Math Assistance available in Wolfram Mathematica.

I am new to vector calculus operations. There is a known identity found in the textbooks

$$int _4 pi hats (hatscdot A) d omega=frac4 pi3A$$

I have no idea how to do this type of integration. This is what I tried but return a dissaster

Integrate[s*(Dot[s, A]), s, 0, 4 [Pi]]

Also , without success

Integrate[Sin[[Theta]], 
 Cos[[Theta]]*(Dot[Sin[[Theta]], Cos[[Theta]], a1, 
 a2]), [Theta], 0, 4 [Pi]]

It is obviosu that I am doing something fundamentally not correct. I go to WM documentation on Vector Calculus but does not offer much substance or examples. How will you enter the equation above in order to return the identity in the right?

UPDATE 1

In respond to comment, here is a copy of the text. This is from page 10 Optical-Thermal Response of Laser-Irradiated Tissue ISBN 9789048188307

$$w$$ is the surface area of a sphere in solid angle steradian. s is the directional vector of a pencil of radiation located inside the sphere

vector-calculus

share|improve this question

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  What are $s$ and $omega$ supposed to be? It might be helpful if you can give an example of the textbook with the formula.
  $endgroup$
  – J. M. is slightly pensive♦
  2 hours ago
  

  
  
  
  


• 
  
  
  

  
  2
  

  
  
  
  
  
  

  
  $begingroup$
  Here's my guess: With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s [Element] Sphere[]] ] --- or this: With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s [Element] Sphere[]] == 4 Pi/3 A ]
  $endgroup$
  – Michael E2
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Michael, yes, that does seem to be it. This is why people should always define what their variables mean in their formulae.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @Michael E2 please post it as an answear for upvote
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  I've never seen this author's notation. My guess is that $int_4picdots$ means the integral over the sphere of measure $4pi$, i.e., the unit sphere.
  $endgroup$
  – Michael E2
  58 mins ago
  
  

  
  
  
  

 | 
show 3 more comments

$begingroup$

This is a follow up from another post . I was using the integration symbol available in the Basic Math Assistance available in Wolfram Mathematica.

I am new to vector calculus operations. There is a known identity found in the textbooks

$$int _4 pi hats (hatscdot A) d omega=frac4 pi3A$$

I have no idea how to do this type of integration. This is what I tried but return a dissaster

Integrate[s*(Dot[s, A]), s, 0, 4 [Pi]]

Also , without success

Integrate[Sin[[Theta]], 
 Cos[[Theta]]*(Dot[Sin[[Theta]], Cos[[Theta]], a1, 
 a2]), [Theta], 0, 4 [Pi]]

It is obviosu that I am doing something fundamentally not correct. I go to WM documentation on Vector Calculus but does not offer much substance or examples. How will you enter the equation above in order to return the identity in the right?

UPDATE 1

In respond to comment, here is a copy of the text. This is from page 10 Optical-Thermal Response of Laser-Irradiated Tissue ISBN 9789048188307

$$w$$ is the surface area of a sphere in solid angle steradian. s is the directional vector of a pencil of radiation located inside the sphere

vector-calculus

share|improve this question

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

$endgroup$

Integrate[s*(Dot[s, A]), s, 0, 4 [Pi]]

Integrate[Sin[[Theta]], 
 Cos[[Theta]]*(Dot[Sin[[Theta]], Cos[[Theta]], a1, 
 a2]), [Theta], 0, 4 [Pi]]

share|improve this question

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

share|improve this question

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

edited 53 mins ago

J. M. is slightly pensive♦

98.8k10311467

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

asked 2 hours ago

Jose Enrique CalderonJose Enrique Calderon

1,058718

1 Answer
1

active

oldest

votes

2

$begingroup$

Here's my guess:

With[s = x, y, z,
 A = A1, A2, A3, Integrate[s (s.A), s ∈ Sphere[]] ] 
(* (4 A1 π)/3, (4 A2 π)/3, (4 A3 π)/3 *)

--- or this:

With[s = x, y, z, A = A1, A2, A3,
 Integrate[s (s.A), s ∈ Sphere[]] == 4 Pi/3 A ]
(* True *)

share|improve this answer

answered 1 hour ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Why it simply does not work with limits of integration s,0,4Pi
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose, the author was being lazy with the limits (basically, shorter than saying "integrate over the whole area of the unit sphere"). It is fine to be lazy in mathematics, but not so much when programming.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @J.M. is slightly pensive Ok.. but why Mathematica function proposed in the answear does not work with With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s,0,4Pi] ]
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose The syntax s, 0, 4 Pi already implies one-dimensional s from Mathematica's view, while in the "abuse of notation" used in your reference, $hats$ is implied to be a vector.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose: the easiest way is that you have to switch to spherical coordinates if you need to integrate across arbitrary angles. If you insist on keeping yourself to regions, you can use RegionIntersection[] with Sphere[] and either ConicHullRegion[] or HalfSpace[].
  $endgroup$
  – J. M. is slightly pensive♦
  54 mins ago
  

  
  
  
  

 | 
show 2 more comments

StackExchange.ifUsing("editor", function ()
return StackExchange.using("mathjaxEditing", function ()
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix)
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
);
);
, "mathjax-editing");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194347%2fvector-calculus-integration-identity-problem%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

2

$begingroup$

Here's my guess:

With[s = x, y, z,
 A = A1, A2, A3, Integrate[s (s.A), s ∈ Sphere[]] ] 
(* (4 A1 π)/3, (4 A2 π)/3, (4 A3 π)/3 *)

--- or this:

With[s = x, y, z, A = A1, A2, A3,
 Integrate[s (s.A), s ∈ Sphere[]] == 4 Pi/3 A ]
(* True *)

share|improve this answer

answered 1 hour ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Why it simply does not work with limits of integration s,0,4Pi
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose, the author was being lazy with the limits (basically, shorter than saying "integrate over the whole area of the unit sphere"). It is fine to be lazy in mathematics, but not so much when programming.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @J.M. is slightly pensive Ok.. but why Mathematica function proposed in the answear does not work with With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s,0,4Pi] ]
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose The syntax s, 0, 4 Pi already implies one-dimensional s from Mathematica's view, while in the "abuse of notation" used in your reference, $hats$ is implied to be a vector.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose: the easiest way is that you have to switch to spherical coordinates if you need to integrate across arbitrary angles. If you insist on keeping yourself to regions, you can use RegionIntersection[] with Sphere[] and either ConicHullRegion[] or HalfSpace[].
  $endgroup$
  – J. M. is slightly pensive♦
  54 mins ago
  

  
  
  
  

 | 
show 2 more comments

2

$begingroup$

Here's my guess:

With[s = x, y, z,
 A = A1, A2, A3, Integrate[s (s.A), s ∈ Sphere[]] ] 
(* (4 A1 π)/3, (4 A2 π)/3, (4 A3 π)/3 *)

--- or this:

With[s = x, y, z, A = A1, A2, A3,
 Integrate[s (s.A), s ∈ Sphere[]] == 4 Pi/3 A ]
(* True *)

share|improve this answer

answered 1 hour ago

Michael E2Michael E2

150k12203482

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Why it simply does not work with limits of integration s,0,4Pi
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose, the author was being lazy with the limits (basically, shorter than saying "integrate over the whole area of the unit sphere"). It is fine to be lazy in mathematics, but not so much when programming.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @J.M. is slightly pensive Ok.. but why Mathematica function proposed in the answear does not work with With[s = x, y, z, A = A1, A2, A3, Integrate[s (s.A), s,0,4Pi] ]
  $endgroup$
  – Jose Enrique Calderon
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose The syntax s, 0, 4 Pi already implies one-dimensional s from Mathematica's view, while in the "abuse of notation" used in your reference, $hats$ is implied to be a vector.
  $endgroup$
  – J. M. is slightly pensive♦
  1 hour ago
  
  

  
  
  
  


• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  @Jose: the easiest way is that you have to switch to spherical coordinates if you need to integrate across arbitrary angles. If you insist on keeping yourself to regions, you can use RegionIntersection[] with Sphere[] and either ConicHullRegion[] or HalfSpace[].
  $endgroup$
  – J. M. is slightly pensive♦
  54 mins ago
  

  
  
  
  

 | 
show 2 more comments

$begingroup$

Here's my guess:

With[s = x, y, z,
 A = A1, A2, A3, Integrate[s (s.A), s ∈ Sphere[]] ] 
(* (4 A1 π)/3, (4 A2 π)/3, (4 A3 π)/3 *)

--- or this:

With[s = x, y, z, A = A1, A2, A3,
 Integrate[s (s.A), s ∈ Sphere[]] == 4 Pi/3 A ]
(* True *)

share|improve this answer

answered 1 hour ago

Michael E2Michael E2

150k12203482

$endgroup$

With[s = x, y, z,
 A = A1, A2, A3, Integrate[s (s.A), s ∈ Sphere[]] ] 
(* (4 A1 π)/3, (4 A2 π)/3, (4 A3 π)/3 *)

With[s = x, y, z, A = A1, A2, A3,
 Integrate[s (s.A), s ∈ Sphere[]] == 4 Pi/3 A ]
(* True *)

share|improve this answer

answered 1 hour ago

Michael E2Michael E2

150k12203482

answered 1 hour ago

Michael E2Michael E2

150k12203482

answered 1 hour ago

Michael E2Michael E2

150k12203482