I want to extract data from the 3D plot in the following code. I have used MatrixForm[%], but it is not working. Can you help me to get the desired data.
This is a way:
Cases[Normal[%[]], Polygon[pts_, ___] :> pts, All]
Thanks Sir for your reply.
Sir, I want to have the data in matrix form, from where I can generate the Excel sheet. Can you help me?
This way you probably get a list of triples:
Union@Flatten[Cases[Normal[%[]], Polygon[pts_, ___] :> pts, All],
Thanks sir for your reply.