## How to Plot a Colored Surface Under plot3d That Is...

Hi MaplePrimes team,

I want to create two 3d surfaces with plot3d command in Maple, one of which represents a light-emitting diode (LED).

For that, my idea is simple: Just to disable the shade on a specific surface (representing the LED-like) among other surface. So, whatever the direction of the light, the LED surface keeps a constant luminosity.

Unfortunately, the glossiness = 0 option is still dependent of light direction.

I looked at all the options for plot3d and display commands, but I couldn't find anything for disable light on special surface.

Maybe in PLOT3D command?

If not, is there an option to add a second light source?

Simple example I would like create:

- 1. A surface with regular light:

BALL := plot3d(<cos(t)*cos(s), cos(t)*sin(s), sin(t)>, s = 0..2*Pi, t =-Pi/2..Pi/2, color = "Blue"):

- 2. An illuminated surface representing the LED:

LED := plot3d((<2 + cos(t)*cos(s), cos(t)*sin(s), sin(t)>, s = 0..2*Pi, t =-Pi/2..Pi/2, color = "Yellow", What option to insert?):

Then, the assembly will give:

display(BALL, LED);

My Advanced Applications Tests in Maple

Figure 1: Aisle LED light and LED-screens of first-class seats in an illuminated cabin on board of an aircraft.

Figure 2: Here is the problem in the darkness. The aisle LED light and LED-screen must be stay constantly illuminated for any direction of light.

To better understand my objectives, here is another image using lights. Note that the LEDs (pale yellow strip shapes) stay constantly illuminated whatever the daylight and therefore allowing the aircraft to be visible.

Figure 3: Exterior lighting systems and dazzling jet engine afterburner of a military transport aircraft concept.

Best.

Guy.

## Help to find exact solution of a ODE by "sinh" an...

Please help to find the exact solution of any ODE by the >sinh or cosh method. I have attached arbitrary ODE here:

>ode:=U""+c^2*U"+k*c*U"-(3U^2+a)*U''=0

## How do I print (3*Pi)/10 instead of Maple's (3/10)...

I need to get more tickmarks in my plots by reducing the size of fractions produced by Maple.
For example, instead of (3*Pi)/10, Maple gives me (3/10)*Pi. Any help would be appreciated.
I can actually convert all there Maple numbers to fractions, but Maple will not accept these conversions as tickmarks.
Thank you.
mapleatha

## creating and writing to a file and error...

fd := fopen("temp_file.txt", WRITE);
Error, (in fopen) permission denied

It is giving this error even to my download folder as I am able download files via internet can someone help with a small program to creating file and writing to it in maple.

Kind help it will be acknowleged

## Maple soft project...

1) Without the aid of a graph, find the absolute maximum and minimum values of the function

f(x)=36x6 +2665x4 +240x−675+4534x2 −5836x3−516x5 over the interval [0,4]

2) Find points P and Q on the parabola y = 1 − x 2 so that the triangle ABC formed by the x-axis and the tangent lines at P and Q is an equilateral triangle.

## How do I output sin(x) in red in this title?...

I need tto change the color of a word or a math expression inside the title of a Maple plot.
For example, I need to have sin(x) in red in this axes plot:

AX:=plot([[x,0,x=0..Pi],[0,y,y=0..1]],color=black,thickness=3,title=typeset("\nLeft Riemann Sum for the Function:\n",sin(x), "on the interval ", [0,Pi]\n),titlefont=["Arial",25]):

How do I do it?

Thank you!

mapleatha

## How do I solve a set of equations in Maple?...

Hi,

I want to solve a set of ODE(s) by Maple. How do I do that?(Please, see the attached file)
Thanks.

new.mw

## A question in Graph theory using theory...

Kind help Given graph G and an edge say (u,v)

how to get the number of vertices of G which are shorter distance v than from the vertex u

Similiarly the number of vertices of G which are shorter distance u than from the vertex v

Kind help if anyone possible. I apologize to distrurb I would 200% acknowedge and merit your efforts.

## Sum of all the elements of the Matrix...

Suppose I have a matrix say

A:=[[1,2,3],[3,4,5],[5,6,7]]

If I want to get the sum of all the elements of the matrix.

Kind help if any one.

I apologize for the disturbance

## Send my matrix to word as matrix either via maple ...

Send my matrix to word as matrix either via maple or phython

Say we have

A:=Matrix([[0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0], [1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 0], [0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0], [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0]])

How to write this matrix to a word file in a matrix form

In general If I have a n cross n matrix  How to write this matrix to a word file in a matrix form

If I have several n cross n matricies I want them to be fprintf in the same file one after other giving paragraph space with some name of the matrix at the top.

## Setup Differential Equation into a Matrixform...

I'm practicing with matrices in Maple, but I have a question. My question is, how do I set up the differential equation system on matrix form x '(t) = Ax (t) + B?

Here are the equations:

x'1(t) = x1(t) - x2(t) - 3

x'2(t) = 12x1(t) - 8x2(t) + 4

I've been looking around for some help sources, but the only one I could find is this. I tried to set it up like that, but didn't work, it gave me an error.

How should I set it up (using Maple commands)?

## Unexpected behavior of define(orderless)...

I have found an unpleaseant feature of the define command.
@Carl Love
See below for the example. Basically, after declaring a function orderless via the define command,
a simple use of Categorize stops working.  Details in the file.

How can one define a function f(x,y) to be symmetric under interchange x<-> y

primes2.mw

## How do some plot commands evaluate complex express...

In this worksheet, how do the several successful plot commands evaluate the complex expression being plotted, and why do the unsuccessful plot commands fail to do so?

Plot_complex_expression.mw

## How to develop a system for calculating in quatern...

What is the best (easiest) way to build up a small sytem (procedures) for calculating with base4-numbers ?

...  like multiplication, ln, square, root and so on.

I was thinking about padic or convert-procedures in maple, but before I will begin with that it would be very friendly to have a hint or the opinion of a professional maple programmer.

Thanks for helping ðŸ˜ƒ

Arno