NIntegrate does not evaluate this finite integral composed of divergent parts

I would like to numerically evaluate the following integral:

$ $ I = \int_{-\infty}^\infty d\tau_3 \int_{-\infty}^\infty d\tau_4 \frac{1}{1+\tau_3^2} \left\lbrace \frac{2}{1+\tau_4^2} \log (\tau_3 – \tau_4)^2 + \left(\frac{1}{1+\tau_3^2} + \frac{1}{1+\tau_4^2} \right) \phi(\tau_3,\tau_4) \right\rbrace \tag{1}$ $

with $ \phi(r,s)$ a complicated function as defined in the code below. Note that the first term with the log is divergent, but that this divergence is canceled by another divergence present in the 2nd term with the $ \phi$ -function. When I try to evaluate the integral, NIntegrate stays unevaluated. Why is that, and what is the numerical value of this integral?

Here is the code I used so far:

S[\[Tau]3_, \[Tau]4_] := (\[Tau]3 - \[Tau]4)^2/(1 + \[Tau]3^2); a[\[Tau]3_, \[Tau]4_] := 1/4 Sqrt[4*R[\[Tau]3, \[Tau]4]*S[\[Tau]3, \[Tau]4] - (1 - R[\[Tau]3, \[Tau]4] - S[\[Tau]3, \[Tau]4])^2] ;  F[\[Tau]3_, \[Tau]4_] := I Sqrt[-((1 - R[\[Tau]3, \[Tau]4] - S[\[Tau]3, \[Tau]4] - 4 I*a[\[Tau]3, \[Tau]4])/(1 - R[\[Tau]3, \[Tau]4] - S[\[Tau]3, \[Tau]4] + 4 I*a[\[Tau]3, \[Tau]4]))]; phi[\[Tau]3_, \[Tau]4_] := 1/a[\[Tau]3, \[Tau]4] Im[PolyLog[2, F[\[Tau]3, \[Tau]4]*Sqrt[R[\[Tau]3, \[Tau]4]/S[\[Tau]3, \[Tau]4]]] + Log[Sqrt[R[\[Tau]3, \[Tau]4]/S[\[Tau]3, \[Tau]4]]] Log[1 - F[\[Tau]3, \[Tau]4]*Sqrt[R[\[Tau]3, \[Tau]4]/S[\[Tau]3, \[Tau]4]]]]; NIntegrate[1/(1^2 + \[Tau]3^2) (2/(1^2 + \[Tau]4^2)Log[(\[Tau]3 - \[Tau]4)^2] + (1/(1^2 + \[Tau]3^2) + 1/(1^2 + \[Tau]4^2)) phi[\[Tau]3, \[Tau]4]), {\[Tau]3, -\[Infinity], \[Infinity]}, {\[Tau]4, -\[Infinity], \[Infinity]}] 

Hino Engine Parts suppliers

Quick Details
Place of Origin:QUANGZHOU, China (Mainland)/ JApan
OE NO.:HINO P11C
Size:OEM SIZE
Material:Forged Steel
Type:Crankshaft
Car Make:For HINO
Model Number:HINO P11C

Hino P11C crankshaft forging steel in good condition

Hino p11c engine parts Piston
Hino p11c  engine parts Piston ring
Hino p11c engine parts cylinder liner
Hino p11c engine parts full gasket kit
Hino p11c  engine parts main bearing and con rod bearing
Hino p11c  engine parts water pump
Hino p11c engine parts crankshaft
Hino p11c  engine parts oil pump

MakerEngine Model
For BENZOM314, OM352, OM360, OM366 REF. FORGING, OM442
For COMMINSK19  REF. FORGING
For DAIHATSUDL, DG
For MITSUBISH4D30, 4D31, 4D31 REF. FORGING, 4D32, 4D33, 4D34, 4D34 REF. FORGING, 4D34T,
4D55, 4D56, 4D56-T2, 4G33, 4G41, 4G54, 4G63, 4G63  REF. FORGING, 4G64,
4G64 REF. FORGING, 6D14, 6D15, 6D16, 6D16 REF. FORGING, 6D17, 6D22,
6D31, 6D34, 6DB10, 8DC11, 8DC91, S4S
For TOYOTA12R,13B,14B,2E,2KD,2TR,3B,3K,3L,3Y/4Y
For BEDFORD330
For ISUZU10PE1,4BC2,4BD1,4BD1 REF. FORGING,4BE1,4HE1,4HE1T,4HF1,4HF1 REF. FORGING,
4HG1T, 4HG1 REF. FORGING, 4JA1, 4JB1, 4JB1  REF. FORGING, 4JB1T, 4ZA1, 4ZB1,
4ZD1, 4ZE1, 6BD1, 6BD1T, 6BG1  REF. FORGING, 6HH1, 6QA1, 6SA1T, C223, C240
For NISSANFD6, FE6, FE6T, J08C, ND6, NE6, PE6(M14), PF6, RD8, RE8, RE10(NUT),
RF8(FLAT), RF8(NUT)
For KOMATSUS6D95 REF. FORGING
For CAT3304, 3306, S6KT
For HINOEP100, ED100, EF750, EH700, EK100, H06CT/H07CT, H07C, H07D, J08C,
P11C REF. FORGING
For DEUTZF8L413 REF. FORGING

MakerEngine Model
For BENZDE22,OM352 REF. FORGING,OM355 REF. FORGING,OM422 REF. FORGING,OM447
For COMMINSNH220/D80,NT855/D85,6BT REF. FORGING,6CT REF. FORGING,M11 REF. FORGING
For JOHN DEERE 6300,4219
For IVECOIVECO2.5L 98454453,4010,4912,3910
For MITSUBISH4D30 REF. FORGING,4D32 REF. FORGING,4D35,4D55 REF. FORGING,
4D56 REF. FORGING,4D56T2 REF. FORGING,4D95,4G32,6D15 REF. FORGING,   6D15T,6D16T,6D34T,6D40,6DB1T,6DS7,6G72,6G74,8DC9,8DC92,S4E
For TOYOTA15B,1AZ,1B,1C/2C,1DZ,1E,1HZ,1KZ-TE,1RZ/2RZ,1Z,1ZZ,22R,2B,2J,2L,2L-2,2LT,2Y,4AF,
4AFE,4AFG,5AFE,5E,5K,5L,5R,7A,7K,8A
For ISUZU4BC2 REF. FORGING,4BC2-II,4HE1 REF. FORGING,4HE1T REF. FORGING,
6BD1T REF. FORGING,6HE1,6SD1,6WA1,6QB2
For MAZDAVA,NA,R2,SL/T3500,FE,E5,WL84/51, FE(B-200)
For NISSANTD27,BD30,CK12,DG,EB300,ED30,ED33,FD6T,H20,NE6 REF. FORGING,
PD6,PE6T(M16),RF10(FLAT),RH10,SD22,SD23,TD42,VG30,Z5660,Z5661
For KOMATSU S4D95,4D95D,4D95L,S4D102,S4D105,4D130,S6D95,S6D102,S6D105,S6D108,S6D110,
S6D125,S6D125 REF. FORGING,S6D140,S6D155,S6D170
For CATS4K,4N7693
For HINOEM100,DS70,EB300,EF550,EF750+,EH100,EK100-Ⅱ,EL100,H06CT REF. FORGING,
J05C/J05E,J08CT,M10U,V22C,W04D,W06E
For DEUTZF4L912 REF. FORGING,F6L912 REF. FORGING,
F1L511,F2L511,F2L1011,F3L1011,F3M1011F,BF4M1011F,
F4L1011,F2L912,F3L912 2136928,F4L912 2138819,F4L913,F4L914,F6L912,F6L913
Hino Engine Parts suppliers
website:http://www.mancaparts.com/hino-spare-parts/hino-engine-parts/

Environmental/Economical benefits of not transmitting parts of a video?

Are there any potential environmental och economical benefits (in terms of infrastructure) derived from not transmitting video packets unless absolutely necessary or requested by the client for Media-Streaming services?

Skipping parts of the video: Lets say video quality isn´t an issue, and video packets are sent just in time. Segments that could remain unsent include: commercials, intro, outro, etc.

I´m thinking most of the energy consumption used is passive, that is, used to just keep the lights on. But some part must be active, when the individual video packets are transmitted.

How to remove some parts in contour-plot?

I am using this ContourPlot

With[{n = 18},   Module[{colors},    colors = Join[{White}, (Lighter[Blue, #] & /@ Subdivide[1, 0, n])[[      3 ;; -3]], {Black}];   ContourPlot[\[Alpha]1^2 \[Alpha]3^-1, {\[Alpha]3, 0,      0.8}, {\[Alpha]1, 0, 0.8}, AspectRatio -> 1,     BaseStyle -> {FontSize -> 9},     FrameLabel -> {Style[\[Alpha]3, FontSize -> 14, Blue],       Style[\[Alpha]1, FontSize -> 14, Blue]},     Contours ->      Function[{min, max},       Range[Floor[min, -50], Ceiling[max, 50], 0.5]],     ContourStyle -> {Dashed},     ContourShading -> {Black, Darker[Red, 0.6], Darker[Red, 0.4],       Darker[Red, 0.2], Lighter[Red, 0.4], Lighter[Red, 0.75],       Lighter[Red, 0.9], Lighter[Blue, 0.9], Lighter[Blue, 0.75],       Lighter[Blue, 0.6], Lighter[Blue, 0.4], Lighter[Blue, 0.2], Blue,       Darker[Blue, 0.2], Darker[Blue, 0.4], Darker[Blue, 0.6],       Darker[Blue, 0.8]}, PlotLegends -> Automatic,     ImageSize -> {Automatic, 500}, PlotRange -> All]]] 

The thing is, the left side of figure is kind of complicated. How can I reduce the contours in this area? In other words, how can I more decorate this plot and make it more professional?

Once Conjure Animal ends, do all animal body parts disappear?

I was reading about poisons when I stumbled upon the “Serpent Venom”. In short, you can harvest the poison of a Giant Poisonous Snake and then use it on weapons / poison edibles. I was wondering, if I use Conjure Animals to spawn eight Giant Poisonous Snakes can I harvest their poison and store it or will it disappear once the spell ends?

The spell description states that:

Each beast is also considered fey, and it disappears when it drops to 0 hit points or when the spell ends.

I would guess that means all parts of the animal will disappear but I would like some clarification before making any plans.

Need to fill in missing parts c++ Language

template void hashT::insert(int hashIndex, const CType2& rec) {

// Fill up this part!

}

template void hashT::search(int& hashIndex, const CType2& rec, bool& found) const {

// Fill up this part!

}

template void hashT::retrieve(int hashIndex, CType1& rec) const { // Fill up this part!

}

template void hashT::remove(int hashIndex, const CType2& rec) {

//  Fill up this part! 

}

// to print all the BSTs for the entire hash table // For each BST you need to print the stateData information stored template void hashT::print() const {

//  Fill up this part! 

}

template hashT::hashT(int size) {

//  Fill up this part!! 

}

template hashT::~hashT() {

//  Fill up this part!! 

}

Calculate occluded parts for planet like object

enter image description here

So I have camera position, planet position, radius and coordinates for every side (node) corners and I want to hide side that is beyond horizon (with some safety margins). I think I could easily calculate in 2D using trigonometry, but in 3D have no idea right now. I found some code online:

TileNode.prototype.isWithinHorizon = function () {   var r = this.master.getRadius();   var camToTile = this.master.getCamToTile(this);   var camToCenter = this.master.getCamToCenter();    var camDistToCenter = camToCenter.length();   var dotCtCc = camToTile.dot(camToCenter.divideScalar(camDistToCenter));    return dotCtCc - this.scale*0.5 < (camDistToCenter - r*r/camDistToCenter); }; 

but can’t make sense of it, as it is not commented. Any help appreciated!

P.S. i hope i use the term “occluded” right here

Displaying multiple parts of an expression in a single output

I have the following code:

names = {"Gly", "Ala", "Ser", "Pro",  "Val", "Thr", "Cys", "Leu/Ile",     "Asn", "Asp/isoAsp", "Gln", "Lys", "Glu", "Met", "His", "Phe",     "Arg", "Tyr", "Trp", "4-hydroxyPro", "5-hydroxyLys",     "6-N-methylLys", "\[Gamma]-carboxyGlu", "selenoCys", "phosphoSer",     "phosphoThr", "phosphoTyr", "\[Sigma]-N-methylArg",     "6-N-acetylLys", "Glu \[Gamma]-methyl ester", "Ornithine",     "Citrulline", "3-methylHis", "N,N,N-trimethylLys", "N-acetylAla",     "3-sulfinoAla", "N-acetylCys", "pyroGlu", "N-acetylGly",     "Met sulfoxide", "Met sulfone", "N-acetylSer", "N-acetylThr",     "Kynurenine", "Tyr O-sulfate"}; list = {57.0215, 71.0371, 87.0320, 97.0528, 99.0684, 101.0477,     103.0092, 113.0841, 114.0429, 115.0269, 128.0586, 128.0950,     129.0426, 131.0405, 137.0589, 147.0684, 156.1011, 163.0633,     186.0793, 113.048, 144.089, 142.110, 173.032, 150.954, 166.998,     181.014, 243.029, 170.116, 170.105, 143.058, 114.079, 157.085,     151.074, 170.141, 113.047, 134.999, 145.019, 111.032, 99.032,     147.035, 163.030, 129.042, 143.058, 190.047, 243.020}; subsets =   DeleteDuplicates@   Select[Subsets[list, {3}], 344.160 <= Total[#] <= 344.163 &] 

which produces the expression:

{{71.0371, 103.009, 170.116}}

To display the parts of this expression as their names, I’m using:

seqNam = names[[Position[list, subsets[[1]][[1]]] [[1]][[1]]]] seqNam = names[[Position[list, subsets[[1]][[2]]] [[1]][[1]]]]  seqNam = names[[Position[list, subsets[[1]][[3]]] [[1]][[1]]]] 

but I would like do display all parts as one line of output, and I don’t know how. Any help would be appreciated!