Hi @Joaomatos2002 ,
Not sure I understand your question. Please check the M code below:
let
Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hdRLjsMgEATQq4y8TiZU82c3cwpLke9/jQEmUtmQNF5YuCz1E79+Pref7bbt9blfXztC+4H6Ah4mPcSIu3x8GVs8hsgVIzVy+DbtqcN7eg2Pm4K1XDSrFo5ThEgLtKBajdmtbkmeIp9pCS1RrcbsTrNCwWiF4hwtS8uqlltasdhxDVOBoeVouW79frB8y4Nu+TFKxSdanpZX5xWWVno3L3eaV6AVVKuV2aNu9cLnKBfnaUVaUV3DthZ9IT9ZSMWEKbKn+5VoJdXKPdcm1irbKfKBWCaWVayfqBXmhx1DLpanHuwcMDrWW0fWsFrZT9HpOoOtA9AxWfUpMcVgigTE2DsgOmZXjapVHvZM8H8XXhibB/Tmgd49ko6NeyZSDG8Z2D3gdMyv9qxVHmcmlwPC9lGHx/EH", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID_CARD = _t, ID_ACTIVITY = _t, ID_LOCATION = _t, CALDAY = _t, STARTTIME = _t, ENDTIME = _t, latitude = _t, longitude = _t]),
#"Changed Type" = Table.TransformColumnTypes(Source,{{"STARTTIME", type datetime}, {"ENDTIME", type datetime}, {"latitude", type number}, {"longitude", type number}}),
#"Sorted Rows" = Table.Sort(#"Changed Type",{{"ID_CARD", Order.Ascending}, {"ENDTIME", Order.Ascending}}),
#"Added Index" = Table.AddIndexColumn(#"Sorted Rows", "Index", 1, 1, Int64.Type),
AddPreviousIndex = Table.AddColumn(#"Added Index", "PreviousIndex", each [Index] - 1),
MergedQueries = Table.NestedJoin(AddPreviousIndex, {"ID_CARD", "PreviousIndex"}, AddPreviousIndex, {"ID_CARD", "Index"}, "PreviousRow", JoinKind.LeftOuter),
ExpandedTable = Table.ExpandTableColumn(MergedQueries, "PreviousRow", {"latitude", "longitude"}, {"Prev_latitude", "Prev_longitude"}),
AddDistanceColumn = Table.AddColumn(ExpandedTable, "Distance_km", each
let
lat1 = [latitude] * Number.PI / 180,
lon1 = [longitude] * Number.PI / 180,
lat2 = [Prev_latitude] * Number.PI / 180,
lon2 = [Prev_longitude] * Number.PI / 180,
dlat = lat2 - lat1,
dlon = lon2 - lon1,
a = Number.Sin(dlat / 2) * Number.Sin(dlat / 2) + Number.Cos(lat1) * Number.Cos(lat2) * Number.Sin(dlon / 2) * Number.Sin(dlon / 2),
c = 2 * Number.Atan2(Number.Sqrt(a), Number.Sqrt(1 - a)),
R = 6371, // Radius of Earth in kilometers
distance = R * c
in
distance
),
#"Removed Columns" = Table.RemoveColumns(AddDistanceColumn,{"Index", "PreviousIndex", "Prev_latitude", "Prev_longitude"})
in
#"Removed Columns"
If I have misunderstood your question, please feel free to contact me.
Best Regards,
Gao
Community Support Team
If there is any post helps, then please consider Accept it as the solution to help the other members find it more quickly.
If I misunderstand your needs or you still have problems on it, please feel free to let us know. Thanks a lot!
How to get your questions answered quickly -- How to provide sample data in the Power BI Forum
Hi @Joaomatos2002 ,
Not sure I understand your question. Please check the M code below:
let
Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("hdRLjsMgEATQq4y8TiZU82c3cwpLke9/jQEmUtmQNF5YuCz1E79+Pref7bbt9blfXztC+4H6Ah4mPcSIu3x8GVs8hsgVIzVy+DbtqcN7eg2Pm4K1XDSrFo5ThEgLtKBajdmtbkmeIp9pCS1RrcbsTrNCwWiF4hwtS8uqlltasdhxDVOBoeVouW79frB8y4Nu+TFKxSdanpZX5xWWVno3L3eaV6AVVKuV2aNu9cLnKBfnaUVaUV3DthZ9IT9ZSMWEKbKn+5VoJdXKPdcm1irbKfKBWCaWVayfqBXmhx1DLpanHuwcMDrWW0fWsFrZT9HpOoOtA9AxWfUpMcVgigTE2DsgOmZXjapVHvZM8H8XXhibB/Tmgd49ko6NeyZSDG8Z2D3gdMyv9qxVHmcmlwPC9lGHx/EH", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID_CARD = _t, ID_ACTIVITY = _t, ID_LOCATION = _t, CALDAY = _t, STARTTIME = _t, ENDTIME = _t, latitude = _t, longitude = _t]),
#"Changed Type" = Table.TransformColumnTypes(Source,{{"STARTTIME", type datetime}, {"ENDTIME", type datetime}, {"latitude", type number}, {"longitude", type number}}),
#"Sorted Rows" = Table.Sort(#"Changed Type",{{"ID_CARD", Order.Ascending}, {"ENDTIME", Order.Ascending}}),
#"Added Index" = Table.AddIndexColumn(#"Sorted Rows", "Index", 1, 1, Int64.Type),
AddPreviousIndex = Table.AddColumn(#"Added Index", "PreviousIndex", each [Index] - 1),
MergedQueries = Table.NestedJoin(AddPreviousIndex, {"ID_CARD", "PreviousIndex"}, AddPreviousIndex, {"ID_CARD", "Index"}, "PreviousRow", JoinKind.LeftOuter),
ExpandedTable = Table.ExpandTableColumn(MergedQueries, "PreviousRow", {"latitude", "longitude"}, {"Prev_latitude", "Prev_longitude"}),
AddDistanceColumn = Table.AddColumn(ExpandedTable, "Distance_km", each
let
lat1 = [latitude] * Number.PI / 180,
lon1 = [longitude] * Number.PI / 180,
lat2 = [Prev_latitude] * Number.PI / 180,
lon2 = [Prev_longitude] * Number.PI / 180,
dlat = lat2 - lat1,
dlon = lon2 - lon1,
a = Number.Sin(dlat / 2) * Number.Sin(dlat / 2) + Number.Cos(lat1) * Number.Cos(lat2) * Number.Sin(dlon / 2) * Number.Sin(dlon / 2),
c = 2 * Number.Atan2(Number.Sqrt(a), Number.Sqrt(1 - a)),
R = 6371, // Radius of Earth in kilometers
distance = R * c
in
distance
),
#"Removed Columns" = Table.RemoveColumns(AddDistanceColumn,{"Index", "PreviousIndex", "Prev_latitude", "Prev_longitude"})
in
#"Removed Columns"If I have misunderstood your question, please feel free to contact me.
Best Regards,
Gao
Community Support Team
If there is any post helps, then please consider Accept it as the solution to help the other members find it more quickly.
If I misunderstand your needs or you still have problems on it, please feel free to let us know. Thanks a lot!
How to get your questions answered quickly -- How to provide sample data in the Power BI Forum
Helpful resources
Europe’s largest Microsoft Fabric Community Conference
Join the community in Stockholm for expert Microsoft Fabric learning including a very exciting keynote from Arun Ulag, Corporate Vice President, Azure Data.
Power BI Monthly Update - August 2024
Check out the August 2024 Power BI update to learn about new features.
Fabric Community Update - August 2024
Find out what's new and trending in the Fabric Community.
