Mathematica Questions, Problems & Solutions : TransWikia.com ~ Page 122

How can I use Mathematica to solve a complex truth-teller/liar logic problem?

I have a logic puzzle I want to convert to Mathematica to solve:Person A states, "Exactly two people are truth-tellers,"Person B states, "I and Person C are truth-tellers."...

Asked on 04/13/2021 by Peter Burbery

1 answer

How to stop Mathematica 12.1 from chopping off the axes arrows?

Using the following code, I make a simple graph that is exported to pdf:format = AxesStyle -> {{Thickness[.01], Arrowheads[{0.0, 0.05}]}, { Arrowheads[{0.0, 0.05}]} }graph = ListLinePlot[Table[{t, 2*t}, {t, 0,...

Asked on 04/13/2021 by axsvl77

3 answer

How to draw the figure of $frac{x-1}{2}=frac{y-1}{3}=frac{z-2}{3}$-type straight line

I'd like to draw the straight line that is expressed in symmetrical form directly: $frac{x-1}{2}=frac{y-1}{3}=frac{z-2}{3}$ContourPlot3D[(x - 1)/2 == (y - 1)/3 == (z - 2)/3, {x, -5, 5},...

Asked on 04/13/2021

2 answer

Elegant way to rearrange year/date table into time series/values

I often have data in the form ofYEAR JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC1950 -1.022 -1.146...

Asked on 04/12/2021 by user9444

2 answer

Obtaining eigenvectors without using Eigenvectors

IntroductionI am trying to obtain the eigenvectors of a unitary matrix $M(k)$ which depends on a parameter k. This matrix $M(k)$ has dimension 6, and while for...

Asked on 04/12/2021 by Ben Pepper

1 answer

How do I decrypt message with RSA algorithm with modulus n = 302446877 and encryption key e 677?

Message: 196512625 25825210 250970710 140420423 22130212 288711674 26343056 Plaintext is grouped in blocks of 4 letters. What I have so far =(Fold[#1 n + #2 &, 0, %];IntegerDigits[%, 4];FromCharacterCode[%]...

Asked on 04/12/2021 by suffering undergrad

1 answer

Define derivative as a new function

I’m coding my first physics simulation in Mathematica, and have a problem. I want to do the following inside a single cell input.Clear[x, y]F[x_, y_] := Cos[x] Cos[y];!(*SubscriptBox[([PartialD]), (x)](F[x,...

Asked on 04/12/2021

2 answer